Change 30216: In vms/vms.c's declaration of the LIB$INITIALIZE psect, try to get

[Craig A . Berry]

Change 30216 by [EMAIL PROTECTED] on 2007/02/11 23:48:46

        In vms/vms.c's declaration of the LIB$INITIALIZE psect, try to get
        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.

Affected files ...

... //depot/perl/vms/vms.c#187 edit

Differences ...

==== //depot/perl/vms/vms.c#187 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#186~29573~   2006-12-17 17:15:43.000000000 -0800
+++ perl/vms/vms.c      2007-02-11 15:48:46.000000000 -0800
@@ -12532,25 +12532,19 @@
 }
 
 #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;
 
 /*
End of Patch.