Emacs Bugs

A bug in distribution 19950919.
A bug in distribution 19951120.
A bug in distribution 19951121.
Bugs in distribution 19960225.
Bugs in distribution 19960529.
Bugs in distribution 19961225.
Bugs in distribution 19970601.
If there is a bug in earlier distributions, upgrade!

A bug in distribution 19950919

There is a bugs in the main description file. If there is no file [.VMS]CONFIG.DAT and you do the following, you will get problems:

$ MMS/IGNORE=WARNING INSTALL

The quick workaround is:

$ MMS/IGNORE=WARNING SETUP_CONFIG,INSTALL

This bug has been corrected in distribution 19951120 (now only available as update to distribution 19950919).

A bug in distribution 19951120

There is a bug in [.VMS]CHECK_VERB.C:

#include <cli$routines.h> .^ %CC-F-INCLUDEOPEN, An error occurred while attempting to open the include file "<cli$routines.h>": Key not found. at line number 29 in file DISK70:[TGW.EMACS19.EMACS-19_28.VMS]CHECK_VERB.C;1

The simple fix is to replace the preceding line:

#ifdef __DECC

with:

#if 0

This bug has been corrected in distribution 19951121 (now only available as update to distribution 19951120).

A bug in distribution 19951121

There's a bug in [.SRC]VMSPROC.C which gives some error messages having to do with the routine sys_select(). The patch to fix that is the following (Your line numbers may be slightly different from mine, bt that is not a problem):

*** vmsproc.c_old Thu Jan 18 23:05:19 1996 --- vmsproc.c Sat Jan 13 02:30:45 1996 *************** *** 38,43 **** --- 41,54 ---- #include "config.h" #include "getpagesize.h" + /* We need to do the following, or we may get declaration conflicts */ + #ifdef select + #undef select + #endif + #ifdef connect + #undef connect + #endif + #ifdef HAVE_SOCKETS #ifdef MULTINET #include "multinet_root:[multinet.include.vms]inetiodef.h" *************** *** 67,72 **** --- 78,86 ---- #include "systty.h" #include "systime.h" + #define select sys_select + #define connect sys_connect + extern Lisp_Object call_process_cleanup (); #define max(a,b) ((a) > (b) ? (a) : (b))

This bug has been corrected, and is not distributed in the 19960225 kit and update.

Bugs in distribution 19960225

If your C library doesn't have gethostname() (for some reason, this seams to be the case for some people), you'll most probably errors like these when [.SRC]SYSDEP.C is being compiled:

CC /define=("emacs",HAVE_CONFIG_H 'extra_defs')/include=(local_includes:) /debug USER3:[EMACS.EMACS-19_28.SRC]SYSDEP.C /obj = sys$disk:[]SYSDEP.obj !/list=sys$disk:[]SYSDEP.lis/show=all strcpy (hostname, "vax-vms"); %CC-E-UNDECLARED, "hostname" is not declared within the scope of this usage. At line number 2377 in USER3:[EMACS.EMACS-19_28.SRC]SYSDEP.C;3. strcpy (hostname, "vax-vms"); %CC-W-MISARGNUMBER, The number of arguments passed to the function does not match the number declared in a previous function prototype. At line number 2377 in USER3:[EMACS.EMACS-19_28.SRC]SYSDEP.C;3. strcpy (hostname, sp);

The solution to apply the following patch:

*** ED:[EMACS-1928-HACKING.SRC]SYSDEP.C;33 Sun Feb 25 17:41:59 1996 --- sysdep.c Sat Mar 9 02:18:26 1996 *************** *** 2287,2292 **** --- 2287,2294 ---- #ifdef BSD4_1 Vsystem_name = build_string (sysname); #else + int hostname_size = 256; + char *hostname = (char *) alloca (hostname_size); #ifndef HAVE_GETHOSTNAME #ifndef VMS struct utsname uts; *************** *** 2294,2301 **** Vsystem_name = build_string (uts.nodename); #endif /* not VMS */ #else /* HAVE_GETHOSTNAME */ - int hostname_size = 256; - char *hostname = (char *) alloca (hostname_size); /* Try to get the host name; if the buffer is too short, try again. Apparently, the only indication gethostname gives of --- 2296,2301 ----

Another bug will only be noticed under the following conditions:

The 24 lowest bits of the pids are %HEX 800000 or higher

The symptom is that subprocess handling hangs or fails. The solution is very simple:

*** ed1928:[src]process.c;29 Sun Feb 25 17:41:58 1996 --- ed1928:[src]process.c Wed May 29 16:08:11 1996 *************** *** 1214,1221 **** --- 1214,1226 ---- abort (); /* Was PROC started successfully? */ + #ifdef VMS + if (XINT (XPROCESS (proc)->pid) == -1) + remove_process (proc); + #else if (XINT (XPROCESS (proc)->pid) <= 0) remove_process (proc); + #endif return Qnil; }

But this wasn't enough, there was another one, that made dired hang. I was actually the code in call-process that had a quirk. The following patch fixes it:

*** ed1928:[src]callproc.c;36 Sun Feb 25 17:41:57 1996 --- ed1928:[src]callproc.c Wed May 29 19:54:48 1996 *************** *** 625,636 **** #define tmp_read read #endif ! while ((nread = tmp_read (fd[0], buf, sizeof buf)) >= 0) { #ifdef VMS extern int call_process_check_end (); #if 0 ! printf ("nread = %d\n", nread); #endif if (nread == 0 && call_process_check_end ()) break; --- 625,637 ---- #define tmp_read read #endif ! while ((nread = tmp_read (fd[0], buf, sizeof buf)) >= 0 ! && errno != EWOULDBLOCK) { #ifdef VMS extern int call_process_check_end (); #if 0 ! printf ("nread = %d, errno = %d\n", nread, errno); #endif if (nread == 0 && call_process_check_end ()) break; *************** *** 638,643 **** --- 639,647 ---- if (nread == 0) break; #endif + if (nread < 0) + continue; /* EWOULDBLOCK */ + immediate_quit = 0; #if 0 if (nread) *************** *** 673,678 **** --- 677,685 ---- immediate_quit = 1; QUIT; } + #if 0 + printf ("terminating: nread = %d, errno = %d\n", nread, errno); + #endif #undef tmp_read }

These bug has been corrected, and the fixed files are now distributed in the 19960529 kit and update.

Bugs in distribution 19960529

A small and stupid one that has to be applied:

*** ed1928:[src]callproc.c;42 Wed May 29 19:54:48 1996 --- ed1928:[src]callproc.c Thu May 30 10:30:50 1996 *************** *** 625,632 **** #define tmp_read read #endif ! while ((nread = tmp_read (fd[0], buf, sizeof buf)) >= 0 ! && errno != EWOULDBLOCK) { #ifdef VMS extern int call_process_check_end (); --- 625,634 ---- #define tmp_read read #endif ! /* The fourth argument "1" is for VMS. On other systems, it will just ! be ignored. -- Richard Levitte */ ! while ((nread = tmp_read (fd[0], buf, sizeof buf, 1)) >= 0 ! || errno == EWOULDBLOCK) { #ifdef VMS extern int call_process_check_end ();

Also, found newly (November 1, 1996), I found that some changes have been made in startup.el, which make some routines in vms-patch.el not work any more. The patches needed are the following:

*** [.lisp]vms-patch.el;3 Sat Sep 21 04:05:08 1996 --- [.lisp]vms-patch.el Sun Nov 3 17:52:49 1996 *************** *** 193,209 **** ;;; (defun vms-suspend-resume-hook () "When resuming suspended Emacs, check for file to be found. ! If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file." ! (let ((file (vms-system-info "LOGICAL" "EMACS_FILE_NAME")) ! (args (vms-system-info "LOGICAL" "EMACS_COMMAND_ARGS")) ! (line (vms-system-info "LOGICAL" "EMACS_FILE_LINE"))) ! (if (not args) ! (if file ! (progn (find-file file) ! (if line (goto-line (string-to-int line))))) ! (let ((dir (and file (file-name-directory file)))) ! (if (and file dir) (cd dir)) ! (vms-command-line-again args))))) (add-hook 'suspend-resume-hook 'vms-suspend-resume-hook) --- 193,204 ---- ;;; (defun vms-suspend-resume-hook () "When resuming suspended Emacs, check for file to be found. ! If the logical name `EMACS_COMMAND_ARGS' is defined, use the value as ! command line arguments (except the first argument is the new default ! directory." ! (let ((args (vms-system-info "LOGICAL" "EMACS_COMMAND_ARGS"))) ! (if args ! (vms-command-line-again args)))) (add-hook 'suspend-resume-hook 'vms-suspend-resume-hook) *************** *** 275,291 **** ; redo the initial display, and ; other things that should not be ; done now. ! (default-directory def-dir) ; Set up the default ! ; directory from which possible ; files will be loaded. ) ! (command-line-1 command-line-args-left) ! (setq def-dir default-directory)) ! ;; This is necessary, because the default-directory in ! ;; the let* will be restored to its original value, ! ;; which is very confusing when it happens to the last ! ;; buffer just loaded... ! (setq default-directory def-dir))))))) (setq dired-listing-switches ;; "/SIZE/DATE/OWNER/WIDTH=(FILENAME=32,SIZE=5)" --- 270,280 ---- ; redo the initial display, and ; other things that should not be ; done now. ! (command-line-default-directory def-dir) ; Set up the ! ; default directory from which possible ; files will be loaded. ) ! (command-line-1 command-line-args-left)))))))) (setq dired-listing-switches ;; "/SIZE/DATE/OWNER/WIDTH=(FILENAME=32,SIZE=5)" *** [.vms]kepteditor.com;1 Sun Feb 25 17:42:04 1996 --- [.vms]kepteditor.com Sun Nov 3 18:28:24 1996 *************** *** 115,125 **** $ message_status = f$environment("message") $ set noon $ on control_y then goto quit $ set message /nofacility/noidentification/noseverity/notext $ if f$edit(args,"COLLAPSE") .eqs. "" then goto no_logical $ ! We have to include the current directory as first item in the value $ definee/nolog/job emacs_command_args - ! "''f$trnlnm(""SYS$DISK"")'''f$directory()' ''args'" $ no_logical: $ write sys$error - "[Attaching to process ''NAME']" --- 115,126 ---- $ message_status = f$environment("message") $ set noon $ on control_y then goto quit + $ if a .eqs. "-NW" then args = args - f$edit(p'i',"lowercase") $ set message /nofacility/noidentification/noseverity/notext $ if f$edit(args,"COLLAPSE") .eqs. "" then goto no_logical $ ! We have to include the current directory as first item in the value $ definee/nolog/job emacs_command_args - ! "''f$trnlnm(""SYS$DISK"")'''f$directory()' ''args'" $ no_logical: $ write sys$error - "[Attaching to process ''NAME']"

Bugs in distribution 19961225

Of course, a small bug has creapt into [.SRC]DESCRIP.MMS_IN_IN:

*** ed1928_stable:[src]descrip.mms_in_in Wed Dec 25 16:39:47 1996 --- ed1928_hacking:[src]descrip.mms_in_in Tue Feb 25 06:36:56 1997 *************** *** 759,765 **** define /nolog local_src $(srcdir) extra_defs = "" set noon ! mcr sys$disk:[-.vms]check_verb $(MAKE) "__RESULT" set on __result = .not. __result if __result then set command [-.vms]make-command.cld --- 759,770 ---- define /nolog local_src $(srcdir) extra_defs = "" set noon ! __result := TRUE ! @ __save_message=f$environment("MESSAGE") ! @ set message/nofacility/noseverity/noident/notext ! if f$search("sys$disk:[-.vms]check_verb.exe") .nes. "" then - ! mcr sys$disk:[-.vms]check_verb $(MAKE) "__RESULT" ! @ set message'__save_message' set on __result = .not. __result if __result then set command [-.vms]make-command.cld *************** *** 972,978 **** a = f$environment("DEFAULT") set def $(lwlibdir) open /write foo macros-src.mms ! write foo "CC=$(CC)","CFLAGS=$(CFLAGS)","MAKE=$(MAKE)" close foo $(MAKE) $(MMSQUALIFIERS) LWLIB_OPTIONS - /macro=macros-src.mms --- 977,985 ---- a = f$environment("DEFAULT") set def $(lwlibdir) open /write foo macros-src.mms ! write foo "CC=$(CC)" ! write foo "CFLAGS=$(CFLAGS)" ! write foo "MAKE=$(MAKE)" close foo $(MAKE) $(MMSQUALIFIERS) LWLIB_OPTIONS - /macro=macros-src.mms *************** *** 1002,1008 **** a = f$environment("DEFAULT") set def $(oldXMenudir) open /write foo macros-src.mms ! write foo "CC=$(CC)","CFLAGS=$(CFLAGS)","MAKE=$(MAKE)" close foo $(MAKE) $(MMSQUALIFIERS) OLDXMENU_OPTIONS - /macro=macros-src.mms --- 1009,1017 ---- a = f$environment("DEFAULT") set def $(oldXMenudir) open /write foo macros-src.mms ! write foo "CC=$(CC)" ! write foo "CFLAGS=$(CFLAGS)" ! write foo "MAKE=$(MAKE)" close foo $(MAKE) $(MMSQUALIFIERS) OLDXMENU_OPTIONS - /macro=macros-src.mms

And also, I just (February 24 1997) found a longstanding bug in [.SRC]VMSGMALLOC.C:

*** ed1928_stable:[src]vmsgmalloc.c Wed Dec 25 16:39:52 1996 --- ed1928_hacking:[src]vmsgmalloc.c Mon Feb 24 20:39:34 1997 *************** *** 1550,1555 **** --- 1550,1557 ---- if (tmpadr[1][0] == -1 || tmpadr[1][1] - tmpadr[1][0] + 1 < increment) return NULL; + if (result >= vms_fake_heap_end && result < vms_real_heap_start) + result = tmpadr[1][0]; vms_brk_current = result + increment; if (vms_brk_end < tmpadr[1][1] + 1) vms_brk_end = tmpadr[1][1] + 1;

Bugs in distribution 19970601

1998-04-02, 04.30:
I just found a mean bug in the allocation routine __default_morecore(). It caused crashes. The following patch seems to fix it:

*** ed1928_stable:[src]vmsgmalloc.c Thu Jun 19 21:49:41 1997 --- ed1928_hacking:[src]vmsgmalloc.c Thu Apr 2 04:25:13 1998 *************** *** 1320,1326 **** #endif #ifdef VMS ! /*#define DEBUG_VMSGMALLOC*/ /* We use sys$expreg and friends, so we need the starlet definitions. */ #include <starlet.h> --- 1320,1326 ---- #endif #ifdef VMS ! /* #define DEBUG_VMSGMALLOC */ /* We use sys$expreg and friends, so we need the starlet definitions. */ #include <starlet.h> *************** *** 1555,1562 **** --- 1555,1566 ---- if (tmpadr[1][0] == -1 || tmpadr[1][1] - tmpadr[1][0] + 1 < increment) return NULL; + #if 0 /* experimental */ if (result >= vms_fake_heap_end && result < vms_real_heap_start) result = tmpadr[1][0]; + #else + result = tmpadr[1][0]; + #endif vms_brk_current = result + increment; if (vms_brk_end < tmpadr[1][1] + 1) vms_brk_end = tmpadr[1][1] + 1;

1998-04-05, 10.08: DEC C 5.6 and beyond surround operators with whitespace when expanding C macros. This has been a problem for a while, but is now solved with the following patches:

*** ed1928_stable:[000000]configure.com_in Thu Jun 19 21:49:38 1997 --- configure.com_in Sun Apr 5 09:41:46 1998 *************** *** 1081,1087 **** $ __compiler := cc $ if f$type(ac_cc) .nes. "" then __compiler := 'ac_cc' $ if f$type(CC) .nes. "" then __compiler := 'CC' ! $ '__compiler' '__tmp'/preprocess='tempcname'-i 'tempcname' $ search/nohead/output='tempcname'-stripped 'tempcname'-i "configure___" $ open/read in 'tempcname'-stripped $read_loop: --- 1081,1089 ---- $ __compiler := cc $ if f$type(ac_cc) .nes. "" then __compiler := 'ac_cc' $ if f$type(CC) .nes. "" then __compiler := 'CC' ! $ ! We need __tmp2. Otherwise, DEC C 5.6 and beyond will put whitespace ! $ ! around the operators, like "/", which would prove fatal ! $ '__compiler' '__tmp' 'CPP_NOOPSPACE' /preprocess='tempcname'-i 'tempcname' $ search/nohead/output='tempcname'-stripped 'tempcname'-i "configure___" $ open/read in 'tempcname'-stripped $read_loop: *************** *** 1094,1100 **** $ delete/nolog 'tempcname'*.* $ if f$type(CFLAGS) .eqs. "" $ then ! $ '__compiler' /preprocess='tempcname'-i /include=('mdir','sdir') - 'tempcname' /define=THIS_IS_CONFIGURE $ search/nohead/output='tempcname'-stripped 'tempcname'-i "configure___" $ open/read in 'tempcname'-stripped --- 1096,1102 ---- $ delete/nolog 'tempcname'*.* $ if f$type(CFLAGS) .eqs. "" $ then ! $ '__compiler' 'CPP_NOOPSPACE' /preprocess='tempcname'-i /include=('mdir','sdir') - 'tempcname' /define=THIS_IS_CONFIGURE $ search/nohead/output='tempcname'-stripped 'tempcname'-i "configure___" $ open/read in 'tempcname'-stripped *************** *** 1714,1720 **** $ if .not. f$trnlnm("DEBUG_CONFIGURE") then define/user sys$output nl: $ if .not. f$trnlnm("DEBUG_CONFIGURE") then define/user sys$error nl: $ CPP junk.i /include=(sys$disk:[],sys$disk:[-.src],'srcdir_dev'['srcdir_dir'.src]) - ! 'CPPFLAGS' junk.c $ set message 'save_mesg' $ set on $ junkname := junk.cpp --- 1716,1722 ---- $ if .not. f$trnlnm("DEBUG_CONFIGURE") then define/user sys$output nl: $ if .not. f$trnlnm("DEBUG_CONFIGURE") then define/user sys$error nl: $ CPP junk.i /include=(sys$disk:[],sys$disk:[-.src],'srcdir_dev'['srcdir_dir'.src]) - ! 'CPPFLAGS' 'CPP_NOOPSPACE' junk.c $ set message 'save_mesg' $ set on $ junkname := junk.cpp *************** *** 1850,1856 **** $ if .not. f$trnlnm("DEBUG_CONFIGURE") then define/user sys$output nl: $ if .not. f$trnlnm("DEBUG_CONFIGURE") then define/user sys$error nl: $ CPP junk.i /include=(sys$disk:[],sys$disk:[-.src],'srcdir_dev'['srcdir_dir'.src]) - ! 'CPPFLAGS' junk.c $ set message 'save_mesg' $ set on $ junkname := junk.cpp --- 1852,1858 ---- $ if .not. f$trnlnm("DEBUG_CONFIGURE") then define/user sys$output nl: $ if .not. f$trnlnm("DEBUG_CONFIGURE") then define/user sys$error nl: $ CPP junk.i /include=(sys$disk:[],sys$disk:[-.src],'srcdir_dev'['srcdir_dir'.src]) - ! 'CPPFLAGS' 'CPP_NOOPSPACE' junk.c $ set message 'save_mesg' $ set on $ junkname := junk.cpp *** ed1928_stable:[000000]configure.com Thu Jun 19 21:49:38 1997 --- configure.com Sun Apr 5 09:42:37 1998 *************** *** 941,946 **** --- 941,947 ---- $ close ac_prog_cc_in $ if f$type(LIBS) .eqs. "" then LIBS = "" $ if f$type(OPTS) .eqs. "" then OPTS = "" + $ if f$type(CPP_NOOPSPACE) .eqs. "" then CPP_NOOPSPACE = "" $ sys_includes = "" $ ac_GCC := no $ if _GNU_C *************** *** 957,962 **** --- 958,964 ---- $ if _DEC_C $ then $ CFLAGS := 'CFLAGS' /NESTED=INCLUDE + $ CPP_NOOPSPACE := /STANDARD=VAXC $ else $ if LIBS .nes. "" $ then LIBS = LIBS + " " *************** *** 2308,2314 **** $ __compiler := cc $ if f$type(ac_cc) .nes. "" then __compiler := 'ac_cc' $ if f$type(CC) .nes. "" then __compiler := 'CC' ! $ '__compiler' '__tmp'/preprocess='tempcname'-i 'tempcname' $ search/nohead/output='tempcname'-stripped 'tempcname'-i "configure___" $ open/read in 'tempcname'-stripped $read_loop: --- 2310,2318 ---- $ __compiler := cc $ if f$type(ac_cc) .nes. "" then __compiler := 'ac_cc' $ if f$type(CC) .nes. "" then __compiler := 'CC' ! $ ! We need __tmp2. Otherwise, DEC C 5.6 and beyond will put whitespace ! $ ! around the operators, like "/", which would prove fatal ! $ '__compiler' '__tmp' 'CPP_NOOPSPACE' /preprocess='tempcname'-i 'tempcname' $ search/nohead/output='tempcname'-stripped 'tempcname'-i "configure___" $ open/read in 'tempcname'-stripped $read_loop: *************** *** 2321,2327 **** $ delete/nolog 'tempcname'*.* $ if f$type(CFLAGS) .eqs. "" $ then ! $ '__compiler' /preprocess='tempcname'-i /include=('mdir','sdir') - 'tempcname' /define=THIS_IS_CONFIGURE $ search/nohead/output='tempcname'-stripped 'tempcname'-i "configure___" $ open/read in 'tempcname'-stripped --- 2325,2331 ---- $ delete/nolog 'tempcname'*.* $ if f$type(CFLAGS) .eqs. "" $ then ! $ '__compiler' 'CPP_NOOPSPACE' /preprocess='tempcname'-i /include=('mdir','sdir') - 'tempcname' /define=THIS_IS_CONFIGURE $ search/nohead/output='tempcname'-stripped 'tempcname'-i "configure___" $ open/read in 'tempcname'-stripped *************** *** 4820,4825 **** --- 4824,4830 ---- $ write config_status_file "$ OPTS=""''OPTS'""" ! Experimental $ write config_status_file "$ LIBS=""''LIBS'""" ! Experimental $ write config_status_file "$ CFLAGS=""''CFLAGS'""" ! Experimental + $ write config_status_file "$ CPP_NOOPSPACE=""''CPP_NOOPSPACE'""" ! Experimental $ write config_status_file "$ LN_S=""''LN_S'""" ! Experimental $ write config_status_file "$ CPP=""''CPP'""" ! Experimental $ write config_status_file "$ INSTALL=""''INSTALL'""" ! Experimental *************** *** 4956,4961 **** --- 4961,4967 ---- $ write config_status_file "$ OPTS := 'OPTS'" $ write config_status_file "$ LIBS := 'LIBS'" $ write config_status_file "$ CFLAGS := 'CFLAGS'" + $ write config_status_file "$ CPP_NOOPSPACE := 'CPP_NOOPSPACE'" $ write config_status_file "$ LN_S := 'LN_S'" $ write config_status_file "$ CPP := 'CPP'" $ write config_status_file "$ INSTALL := 'INSTALL'" *************** *** 5237,5242 **** --- 5243,5250 ---- $ write config_status_file "$ write config_status_tpu ""TPU_substitute(""""@""""+""""LIBS""""+""""@"""","""""",__config_status_tmp,"""""");""" ! Experimental $ write config_status_file "$ __config_status_tmp := 'CFLAGS'" $ write config_status_file "$ write config_status_tpu ""TPU_substitute(""""@""""+""""CFLAGS""""+""""@"""","""""",__config_status_tmp,"""""");""" ! Experimental + $ write config_status_file "$ __config_status_tmp := 'CPP_NOOPSPACE'" + $ write config_status_file "$ write config_status_tpu ""TPU_substitute(""""@""""+""""CPP_NOOPSPACE""""+""""@"""","""""",__config_status_tmp,"""""");""" ! Experimental $ write config_status_file "$ __config_status_tmp := 'LN_S'" $ write config_status_file "$ write config_status_tpu ""TPU_substitute(""""@""""+""""LN_S""""+""""@"""","""""",__config_status_tmp,"""""");""" ! Experimental $ write config_status_file "$ __config_status_tmp := 'CPP'" *************** *** 5717,5723 **** $ write config_status_file "$ if .not. f$trnlnm(""DEBUG_CONFIGURE"") then define/user sys$output nl:" $ write config_status_file "$ if .not. f$trnlnm(""DEBUG_CONFIGURE"") then define/user sys$error nl:" $ write config_status_file "$ CPP junk.i /include=(sys$disk:[],sys$disk:[-.src],'srcdir_dev'['srcdir_dir'.src]) -" ! $ write config_status_file " 'CPPFLAGS' junk.c" $ write config_status_file "$ set message 'save_mesg'" $ write config_status_file "$ set on" $ write config_status_file "$ junkname := junk.cpp" --- 5725,5731 ---- $ write config_status_file "$ if .not. f$trnlnm(""DEBUG_CONFIGURE"") then define/user sys$output nl:" $ write config_status_file "$ if .not. f$trnlnm(""DEBUG_CONFIGURE"") then define/user sys$error nl:" $ write config_status_file "$ CPP junk.i /include=(sys$disk:[],sys$disk:[-.src],'srcdir_dev'['srcdir_dir'.src]) -" ! $ write config_status_file " 'CPPFLAGS' 'CPP_NOOPSPACE' junk.c" $ write config_status_file "$ set message 'save_mesg'" $ write config_status_file "$ set on" $ write config_status_file "$ junkname := junk.cpp" *************** *** 5853,5859 **** $ write config_status_file "$ if .not. f$trnlnm(""DEBUG_CONFIGURE"") then define/user sys$output nl:" $ write config_status_file "$ if .not. f$trnlnm(""DEBUG_CONFIGURE"") then define/user sys$error nl:" $ write config_status_file "$ CPP junk.i /include=(sys$disk:[],sys$disk:[-.src],'srcdir_dev'['srcdir_dir'.src]) -" ! $ write config_status_file " 'CPPFLAGS' junk.c" $ write config_status_file "$ set message 'save_mesg'" $ write config_status_file "$ set on" $ write config_status_file "$ junkname := junk.cpp" --- 5861,5867 ---- $ write config_status_file "$ if .not. f$trnlnm(""DEBUG_CONFIGURE"") then define/user sys$output nl:" $ write config_status_file "$ if .not. f$trnlnm(""DEBUG_CONFIGURE"") then define/user sys$error nl:" $ write config_status_file "$ CPP junk.i /include=(sys$disk:[],sys$disk:[-.src],'srcdir_dev'['srcdir_dir'.src]) -" ! $ write config_status_file " 'CPPFLAGS' 'CPP_NOOPSPACE' junk.c" $ write config_status_file "$ set message 'save_mesg'" $ write config_status_file "$ set on" $ write config_status_file "$ junkname := junk.cpp"

Also, a small bug in [.VMS]RUNTEMACS.COM was discovered:

*** ed1928_stable:[000000]descrip.mms_in Wed Dec 25 16:38:40 1996 --- descrip.mms_in Sun Apr 5 09:04:44 1998 *************** *** 420,427 **** @ a = f$environment("DEFAULT") @ set default [.lib-src] @ lib_src_dir = f$environment("DEFAULT") @ set default [-.etc] ! @ etc_dir = f$environment("DEFAULT") @ set default 'a' @ write foo "$ args = """"" @ write foo "$ if args .nes. """" .or. p8 .nes. """" then args = p8 + "" "" + args" --- 420,428 ---- @ a = f$environment("DEFAULT") @ set default [.lib-src] @ lib_src_dir = f$environment("DEFAULT") + @ etc_dir := $(srcdir_dev)[$(srcdir_dir).etc] @ set default [-.etc] ! @ doc_dir = f$environment("DEFAULT") @ set default 'a' @ write foo "$ args = """"" @ write foo "$ if args .nes. """" .or. p8 .nes. """" then args = p8 + "" "" + args" *************** *** 434,440 **** @ write foo "$ define/user EMACSLOADPATH ""''lisp_dir',$(lisppath)""" @ write foo "$ define/user EMACSPATH ""''lib_src_dir'""" @ write foo "$ define/user EMACSDATA ""''etc_dir'""" ! @ write foo "$ define/user EMACSDOC ""''etc_dir'""" @ write foo "$ define/user TERMCAP ""''termcap_dir'TERMCAP.DAT""" @ write foo "$ define/user INFOPATH ""''info_dir'""" @ write foo "$ define/user SYS$INPUT SYS$COMMAND" --- 435,441 ---- @ write foo "$ define/user EMACSLOADPATH ""''lisp_dir',$(lisppath)""" @ write foo "$ define/user EMACSPATH ""''lib_src_dir'""" @ write foo "$ define/user EMACSDATA ""''etc_dir'""" ! @ write foo "$ define/user EMACSDOC ""''doc_dir'""" @ write foo "$ define/user TERMCAP ""''termcap_dir'TERMCAP.DAT""" @ write foo "$ define/user INFOPATH ""''info_dir'""" @ write foo "$ define/user SYS$INPUT SYS$COMMAND"

The GNU on VMS Project <admin@vms.gnu.ai.mit.edu>

Last modified: Sunday, April 05 1998, 10:13:07