X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=EXTERN.h;h=ed541bb03337c47b1643be7d5d0e2d49ede03144;hb=c3bddb1d8f216d2ee6362d46156d74303ed87611;hp=91c8d4a0238928a6549e2626a5b59561848d978a;hpb=54310121b442974721115f93666234a200f5c7e4;p=p5sagit%2Fp5-mst-13.2.git diff --git a/EXTERN.h b/EXTERN.h index 91c8d4a..ed541bb 100644 --- a/EXTERN.h +++ b/EXTERN.h @@ -1,6 +1,6 @@ /* EXTERN.h * - * Copyright (c) 1991-1997, Larry Wall + * Copyright (c) 1991-2002, Larry Wall * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -18,28 +18,39 @@ #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 globalref # define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare # define EXTCONST globalref # define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly #else -# if defined(_MSC_VER) && defined(_WIN32) +# if defined(WIN32) && !defined(PERL_STATIC_SYMS) # ifdef PERLDLL -# define EXT __declspec(dllexport) +# define EXT extern __declspec(dllexport) # define dEXT -# define EXTCONST __declspec(dllexport) const +# define EXTCONST extern __declspec(dllexport) const # define dEXTCONST const # else -# define EXT __declspec(dllimport) +# define EXT extern __declspec(dllimport) # define dEXT -# define EXTCONST __declspec(dllimport) const +# define EXTCONST extern __declspec(dllimport) const # define dEXTCONST const # endif # else -# define EXT extern -# define dEXT -# define EXTCONST extern const -# define dEXTCONST const +# if defined(__CYGWIN__) && defined(USEIMPORTLIB) +# define EXT extern __declspec(dllimport) +# define dEXT +# define EXTCONST extern __declspec(dllimport) const +# define dEXTCONST const +# else +# define EXT extern +# define dEXT +# define EXTCONST extern const +# define dEXTCONST const +# endif # endif #endif