VMS updates. Should now build, pass some tests.

5 files changed, 27 insertions, 41 deletions

diff --git a/ChangeLog b/ChangeLog
index 432fdf02..829907ed 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-14         Arnold D. Robbins     <arnold@skeeve.com>
+
+	* io.c (do_find_source): On VMS, don't add the `/' separater.
+	Thanks to Anders Wallin.
+
 2012-11-13         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* symbol.c (get_symbols): Check type, not vname. Keeps
diff --git a/io.c b/io.c
index 2607b6cb..45725c5b 100644
--- a/io.c
+++ b/io.c
@@ -2523,7 +2523,9 @@ do_find_source(const char *src, struct stat *stb, int *errcode, path_info *pi)
 			return NULL;
 		}
 		erealloc(path, char *, strlen(path) + strlen(src) + 2, "do_find_source");
+#ifndef VMS
 		strcat(path, "/");
+#endif
 		strcat(path, src);
 		return path;
 	}
diff --git a/vms/ChangeLog b/vms/ChangeLog
index 7689527d..5ac0fe1d 100644
--- a/vms/ChangeLog
+++ b/vms/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-14         Arnold D. Robbins     <arnold@skeeve.com>
+
+	* vmsbuild.com: Updated.  Thanks to Anders Wallin.
+	* vms-conf.h: Ditto, ditto.
+
 2012-11-12         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* gawkmisc.vms (os_isreadable): Change first argument type to
diff --git a/vms/vms-conf.h b/vms/vms-conf.h
index 3aee5ca6..fbd611f2 100644
--- a/vms/vms-conf.h
+++ b/vms/vms-conf.h
@@ -45,6 +45,10 @@
 #define STACK_DIRECTION (-1)
 #endif /*0*/
 
+#include <bitypes.h>
+#define INT32_MAX __INT32_MAX
+#define INT32_MIN __INT32_MIN
+
 /* dynamic loading is possible */
 #undef DYNAMIC
 
@@ -233,7 +237,7 @@
 #define HAVE_STDDEF_H 1
 
 /* Define to 1 if you have the <stdint.h> header file. */
-#define HAVE_STDINT_H  1
+#undef HAVE_STDINT_H
 
 /* Define if <stdint.h> exists, doesn't clash with <sys/types.h>, and declares
    uintmax_t. */
diff --git a/vms/vmsbuild.com b/vms/vmsbuild.com
index 047e49a2..95c6aeb3 100644
--- a/vms/vmsbuild.com
+++ b/vms/vmsbuild.com
@@ -10,9 +10,10 @@ $!						gawk 3.1.1 revised, Apr'02
 $!						gawk 3.1.6 revised, Mar'07
 $!						gawk-bytecode revd, Jan'10
 $!						gawk 4.0.0 revd, May'11
+$!						gawk 4.1.0 revd, Nov'12
 $!
-$ REL = "4.0"	!release version number
-$ PATCHLVL = "1"
+$ REL = "4.1"	!release version number
+$ PATCHLVL = "0"
 $!
 $!
 $ CCFLAGS = "/noList"	! "/noOpt/Debug"
@@ -90,12 +91,15 @@ $ cc regex.c
 $ cc replace.c
 $ cc version.c
 $ cc eval.c
-$ cc eval_p.c
-$ cc eval_d.c
 $ cc profile.c
-$ cc profile_p.c
 $ cc command.c
 $ cc debug.c
+$ cc int_array.c
+$ cc cint_array.c
+$ cc gawkapi.c
+$ cc mpfr.c
+$ cc str_array.c
+$ cc symbol.c
 $ cc [.vms]vms_misc.c
 $ cc [.vms]vms_popen.c
 $ cc [.vms]vms_fwrite.c
@@ -112,6 +116,7 @@ array.obj,awkgram.obj,builtin.obj,dfa.obj,ext.obj,field.obj,floatcomp.obj
 gawkmisc.obj,getopt.obj,getopt1.obj,io.obj
 main.obj,msg.obj,node.obj
 random.obj,re.obj,regex.obj,replace.obj,version.obj,eval.obj,profile.obj
+command.obj,debug.obj,int_array.obj,cint_array.obj,gawkapi.obj,mpfr.obj,str_array.obj,symbol.obj
 []vms_misc.obj,vms_popen.obj,vms_fwrite.obj,vms_args.obj
 []vms_gawk.obj,vms_cli.obj,gawk_cmd.obj
 psect_attr=environ,noshr	!extern [noshare] char **
@@ -122,42 +127,7 @@ $ write Fopt libs
 $ write Fopt "identification=""V''REL'.''PATCHLVL'"""
 $ close Fopt
 $!
-$ create pgawk.opt
-! PGAWK -- GNU awk w/ run-time profiling
-array.obj,awkgram.obj,builtin.obj,dfa.obj,ext.obj,field.obj,floatcomp.obj
-gawkmisc.obj,getopt.obj,getopt1.obj,io.obj
-main.obj,msg.obj,node.obj
-random.obj,re.obj,regex.obj,replace.obj,version.obj,eval_p.obj,profile_p.obj
-[]vms_misc.obj,vms_popen.obj,vms_fwrite.obj,vms_args.obj
-[]vms_gawk.obj,vms_cli.obj,gawk_cmd.obj
-psect_attr=environ,noshr	!extern [noshare] char **
-stack=48	!preallocate more pages (default is 20)
-iosegment=128	!ditto (default is 32)
-$ open/append Fopt pgawk.opt
-$ write Fopt libs
-$ write Fopt "identification=""V''REL'.''PATCHLVL'"""
-$ close Fopt
-$!
-$ create dgawk.opt
-! DGAWK -- GNU awk w/ debugging
-array.obj,awkgram.obj,builtin.obj,dfa.obj,ext.obj,field.obj,floatcomp.obj
-gawkmisc.obj,getopt.obj,getopt1.obj,io.obj
-main.obj,msg.obj,node.obj
-random.obj,re.obj,regex.obj,replace.obj,version.obj
-eval_d.obj,profile.obj,command.obj,debug.obj
-[]vms_misc.obj,vms_popen.obj,vms_fwrite.obj,vms_args.obj
-[]vms_gawk.obj,vms_cli.obj,gawk_cmd.obj
-psect_attr=environ,noshr	!extern [noshare] char **
-stack=48	!preallocate more pages (default is 20)
-iosegment=128	!ditto (default is 32)
-$ open/append Fopt dgawk.opt
-$ write Fopt libs
-$ write Fopt "identification=""V''REL'.''PATCHLVL'"""
-$ close Fopt
-$!
 $ v = f$verify(1)
 $ link/exe=gawk.exe gawk.opt/options
-$ link/exe=pgawk.exe pgawk.opt/options
-$ link/exe=dgawk.exe dgawk.opt/options
 $! 'f$verify(v)'
 $ exit