diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-22 05:08:55 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-22 05:08:55 +0000 |
| commit | b94f085b40cdcc9b0f9c97bfb996ff08722c9ef8 (patch) | |
| tree | e0ab2fa4b7ee51ad78d02327b0006b1ba4f86f87 /vms | |
| parent | 7eda7aea6048cfa87ce1608689175b7c5e8a7370 (diff) | |
| download | perl-b94f085b40cdcc9b0f9c97bfb996ff08722c9ef8.tar.gz | |
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
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/config.vms | 49 |
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. |