X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/17f28c40fa08b585b95d4a2531b1cd975d11e986..97277bd37fa26714515f17503588be90e2fcd3fa:/EXTERN.h?ds=sidebyside diff --git a/EXTERN.h b/EXTERN.h index 8b0584e..4406b29 100644 --- a/EXTERN.h +++ b/EXTERN.h @@ -1,6 +1,7 @@ /* EXTERN.h * - * Copyright (c) 1991-1997, Larry Wall + * Copyright (C) 1991, 1992, 1993, 1995, 1996, 1997, 1998, 1999, + * 2000, 2001, by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -17,35 +18,38 @@ #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(__GNUC__) -# ifdef PERLDLL -# define EXT extern __declspec(dllexport) + +# if (defined(WIN32) || defined(__SYMBIAN32__)) && !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) || defined(__SYMBIAN32__) +# define EXT EXTERN_C __declspec(dllexport) # define dEXT -# define EXTCONST extern __declspec(dllexport) const +# define EXTCONST EXTERN_C __declspec(dllexport) const # define dEXTCONST const # else +# define EXT EXTERN_C __declspec(dllimport) +# define dEXT +# define EXTCONST EXTERN_C __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 -# else -# define EXT extern -# define dEXT -# define EXTCONST extern const -# define dEXTCONST const # endif -#endif #undef INIT #define INIT(x)