diff options
-rw-r--r-- | EXTERN.h | 12 | ||||
-rw-r--r-- | INTERN.h | 12 | ||||
-rw-r--r-- | vms/gen_shrfls.pl | 8 |
3 files changed, 2 insertions, 30 deletions
@@ -18,16 +18,7 @@ #undef dEXT #undef EXTCONST #undef dEXTCONST -#if defined(VMS) && !defined(__GNUC__) - /* Suppress portability warnings from DECC for VMS-specific extensions */ -# ifdef __DECC -# pragma message disable (GLOBALEXT,NOSHAREEXT,READONLYEXT) -# endif -# define EXT globalref -# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare -# define EXTCONST globalref -# define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly -#else + # if (defined(WIN32) || defined(__SYMBIAN32__)) && !defined(PERL_STATIC_SYMS) /* miniperl should not export anything */ # if defined(PERL_IS_MINIPERL) && !defined(UNDER_CE) && defined(_MSC_VER) @@ -61,7 +52,6 @@ # define dEXTCONST const # endif # endif -#endif #undef INIT #define INIT(x) @@ -18,16 +18,7 @@ #undef dEXT #undef EXTCONST #undef dEXTCONST -#if defined(VMS) && !defined(__GNUC__) - /* Suppress portability warnings from DECC for VMS-specific extensions */ -# ifdef __DECC -# pragma message disable (GLOBALEXT,NOSHAREEXT,READONLYEXT) -# endif -# define EXT globaldef {"$GLOBAL_RW_VARS"} noshare -# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare -# define EXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly -# define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly -#else + # if (defined(WIN32) && defined(__MINGW32__)) || defined(__SYMBIAN32__) # ifdef __cplusplus # define EXT __declspec(dllexport) @@ -53,7 +44,6 @@ # define dEXTCONST const # endif # endif -#endif #undef INIT #define INIT(x) = x diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 2ef3e89052..039528f41b 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -158,14 +158,6 @@ if ($isvax) { } unless ($isgcc) { - unless ($isvax) { - print OPTBLD "PSECT_ATTR=\$GLOBAL_RO_VARS,NOEXE,RD,NOWRT,SHR\n"; - print OPTBLD "PSECT_ATTR=\$GLOBAL_RW_VARS,NOEXE,RD,WRT,NOSHR\n"; - } - else { - print OPTBLD "PSECT_ATTR=\$GLOBAL_RO_VARS,PIC,NOEXE,RD,NOWRT,SHR\n"; - print OPTBLD "PSECT_ATTR=\$GLOBAL_RW_VARS,PIC,NOEXE,RD,WRT,NOSHR\n"; - } print OPTBLD "PSECT_ATTR=LIB\$INITIALIZE,GBL,NOEXE,NOWRT,NOSHR,LONG\n"; } print OPTBLD "case_sensitive=yes\n" if $care_about_case; |