perl 5.002_01: vms/config.vms

Add sigjmp and OSNAME macros, allow for compile-time specification
of ARCHLIB version suffix, and correct Uid_t prototype

1 files changed, 44 insertions, 5 deletions

diff --git a/vms/config.vms b/vms/config.vms
index 3927c24a0c..ec9523016b 100644
--- a/vms/config.vms
+++ b/vms/config.vms
@@ -8,10 +8,10 @@
  * GenConfig.pl when producing Config.pm.
  *
  * config.h for VMS
- * Version: 5.2.b1
+ * Version: 5.002_01
  */                 
 
-/* Configuration time:  4-Dec-1995 17:00
+/* Configuration time: 22-Mar-1996 14:45
  * Configured by: Charles Bailey  bailey@genetics.upenn.edu
  * Target system: VMS
  */
@@ -44,6 +44,13 @@
 #define STRINGIFY(a)"a"
 #endif
 
+/* Default value for version token in ARCHLIB_EXP;
+ * updated during build by FndVers.Com -- do not edit
+ */
+#ifndef _PVERS
+#  define _PVERS "5_00201"  /**/
+#endif
+
 /* config-start */
 
 /* MEM_ALIGNBYTES:
@@ -52,6 +59,12 @@
  */
 #define MEM_ALIGNBYTES 8	/**/
 
+/* OSNAME:
+ *	This symbol contains the name of the operating system, as determined
+ *	by Configure.
+ */
+#define OSNAME "VMS"		/**/
+
 /* ARCHLIB_EXP:
  *	This variable, if defined, holds the name of the directory in
  *	which the user wants to put architecture-dependent public
@@ -62,9 +75,9 @@
  *	program already searches PRIVLIB_EXP.
  */
 #ifdef __ALPHA
-#define ARCHLIB_EXP "/perl_root/lib/VMS_AXP/5_002"  /* config-skip */
+#define ARCHLIB_EXP CAT2("/perl_root/lib/VMS_AXP/",_PVERS)  /* config-skip */
 #else
-#define ARCHLIB_EXP "/perl_root/lib/VMS_VAX/5_002" /* config-skip */
+#define ARCHLIB_EXP CAT2("/perl_root/lib/VMS_VAX/",_PVERS)  /* config-skip */
 #endif
 
 /* CPPSTDIN:
@@ -1356,7 +1369,11 @@
  *	It can be int, ushort, uid_t, etc... It may be necessary to include
  *	<sys/types.h> to get any typedef'ed information.
  */
-#define Uid_t unsigned int		/* UID type */
+#if defined(__DECC) && defined(__DECC_VER) && (__DECC_VER >= 500000)
+#  define Uid_t uid_t		/* config-skip */
+#else
+#  define Uid_t unsigned int	/* config-skip */
+#endif
 
 /* I_SYS_PARAM:
  *	This symbol, if defined, indicates to the C program that it should
@@ -1494,6 +1511,28 @@
  */
 #define Gconvert(x,n,t,b) my_gconvert(x,n,t,b)
 
+/* Sigjmp_buf:
+ * This is the buffer type to be used with Sigsetjmp and Siglongjmp.
+ */
+/* Sigsetjmp:
+ * This macro is used in the same way as sigsetjmp(), but will invoke
+ * traditional setjmp() if sigsetjmp isn't available.
+ */
+/* Siglongjmp:
+ * This macro is used in the same way as siglongjmp(), but will invoke
+ * traditional longjmp() if siglongjmp isn't available.
+ */
+#undef HAS_SIGSETJMP	/**/
+#ifdef HAS_SIGSETJMP
+#define Sigjmp_buf sigjmp_buf	/* config-skip */
+#define Sigsetjmp(buf,save_mask) sigsetjmp(buf,save_mask)	/* config-skip */
+#define Siglongjmp(buf,retval) siglongjmp(buf,retval)	/* config-skip */
+#else
+#define Sigjmp_buf jmp_buf	/* config-skip */
+#define Sigsetjmp(buf,save_mask) setjmp(buf)	/* config-skip */
+#define Siglongjmp(buf,retval) longjmp(buf,retval)	/* config-skip */
+#endif
+
 /* USE_DYNAMIC_LOADING:
  *	This symbol, if defined, indicates that dynamic loading of
  *	some sort is available.