X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=INTERN.h;h=6ce0367dee560ed3e5fde4733574df12191f2363;hb=2d259d9294e79c03b1a69d3eaac3d6e5647468d7;hp=22e42c5b97817e31fae5a3985a86ab3ea1336a2b;hpb=f0f333f45536802923a359d930d1dcfd5b4589ea;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/INTERN.h b/INTERN.h
index 22e42c5..6ce0367 100644
--- a/INTERN.h
+++ b/INTERN.h
@@ -18,6 +18,10 @@
 #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