summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CORE/INTERN.h
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/INTERN.h')
-rw-r--r--Master/tlpkg/tlperl/lib/CORE/INTERN.h27
1 files changed, 12 insertions, 15 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/INTERN.h b/Master/tlpkg/tlperl/lib/CORE/INTERN.h
index da3057a83c6..e6e06026576 100644
--- a/Master/tlpkg/tlperl/lib/CORE/INTERN.h
+++ b/Master/tlpkg/tlperl/lib/CORE/INTERN.h
@@ -18,21 +18,19 @@
#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__)
-# define EXT __declspec(dllexport)
-# define dEXT
-# define EXTCONST __declspec(dllexport) const
-# define dEXTCONST const
+# ifdef __cplusplus
+# define EXT __declspec(dllexport)
+# define dEXT
+# define EXTCONST __declspec(dllexport) extern const
+# define dEXTCONST const
+# else
+# define EXT __declspec(dllexport)
+# define dEXT
+# define EXTCONST __declspec(dllexport) const
+# define dEXTCONST const
+# endif
# else
# ifdef __cplusplus
# define EXT
@@ -46,7 +44,6 @@
# define dEXTCONST const
# endif
# endif
-#endif
#undef INIT
#define INIT(x) = x