X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=EXTERN.h;h=ed541bb03337c47b1643be7d5d0e2d49ede03144;hb=39f1703b298e7cfad95b26600223fa7595098e73;hp=793da6d1e35493363d84bf5d61d1507370662c43;hpb=378cc40b38293ffc7298c6a7ed3cd740ad79be52;p=p5sagit%2Fp5-mst-13.2.git diff --git a/EXTERN.h b/EXTERN.h index 793da6d..ed541bb 100644 --- a/EXTERN.h +++ b/EXTERN.h @@ -1,13 +1,58 @@ -/* $Header: EXTERN.h,v 2.0 88/06/05 00:07:46 root Exp $ +/* EXTERN.h + * + * 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. * - * $Log: EXTERN.h,v $ - * Revision 2.0 88/06/05 00:07:46 root - * Baseline version 2.0. - * */ +/* + * EXT designates a global var which is defined in perl.h + * dEXT designates a global var which is defined in another + * file, so we can't count on finding it in perl.h + * (this practice should be avoided). + */ #undef EXT -#define EXT extern +#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 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) +# ifdef PERLDLL +# define EXT extern __declspec(dllexport) +# define dEXT +# define EXTCONST extern __declspec(dllexport) const +# define dEXTCONST const +# else +# define EXT extern __declspec(dllimport) +# define dEXT +# define EXTCONST extern __declspec(dllimport) const +# define dEXTCONST const +# endif +# else +# 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 #undef INIT #define INIT(x)