-#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(PERL_STATIC_SYMS) && !defined(PERL_OBJECT)
-# ifdef PERLDLL
-# define EXT extern __declspec(dllexport)
+
+# if defined(WIN32) && !defined(PERL_STATIC_SYMS)
+ /* miniperl should not export anything */
+# if defined(PERL_IS_MINIPERL)
+# define EXT extern
+# define dEXT
+# define EXTCONST extern const
+# define dEXTCONST const
+# elif defined(PERLDLL)
+# define EXT EXTERN_C __declspec(dllexport)