This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In vms/vms.c's declaration of the LIB$INITIALIZE psect, try to get
authorCraig A. Berry <craigberry@mac.com>
Sun, 11 Feb 2007 23:48:46 +0000 (23:48 +0000)
committerCraig A. Berry <craigberry@mac.com>
Sun, 11 Feb 2007 23:48:46 +0000 (23:48 +0000)
all of the attributes we need without any of the ones we don't, and
try to be friendly to older compilers without too much damage to
readability.  Thanks to Saku Setala for the problem report.

p4raw-id: //depot/perl@30216

vms/vms.c

index b5256ea..10f46f2 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -12532,25 +12532,19 @@ static int set_features
 }
 
 #ifdef __DECC
-/* DECC dependent attributes */
-#if __DECC_VER < 60560002
-#define relative
-#define not_executable
-#else
-#define relative ,rel
-#define not_executable ,noexe
-#endif
 #pragma nostandard
 #pragma extern_model save
 #pragma extern_model strict_refdef "LIB$INITIALIZ" nowrt
-#endif
        const __align (LONGWORD) int spare[8] = {0};
-/* .psect LIB$INITIALIZE, NOPIC, USR, CON, REL, GBL, NOSHR, NOEXE, RD, */
-/*                       NOWRT, LONG */
-#ifdef __DECC
-#pragma extern_model strict_refdef "LIB$INITIALIZE" con, gbl,noshr, \
-       nowrt,noshr relative not_executable
+
+/* .psect LIB$INITIALIZE, NOPIC, USR, CON, REL, GBL, NOSHR, NOEXE, RD, NOWRT, LONG */
+#if __DECC_VER >= 60560002
+#pragma extern_model strict_refdef "LIB$INITIALIZE" nopic, con, rel, gbl, noshr, noexe, nowrt, long
+#else
+#pragma extern_model strict_refdef "LIB$INITIALIZE" nopic, con, gbl, noshr, nowrt, long
 #endif
+#endif /* __DECC */
+
 const long vms_cc_features = (const long)set_features;
 
 /*