Add a test for [perl #17753].
[p5sagit/p5-mst-13.2.git] / EXTERN.h
CommitLineData
a0d0e21e 1/* EXTERN.h
a687059c 2 *
3f774658 3 * Copyright (c) 1991-2002, Larry Wall
a687059c 4 *
132b68a5 5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
8d063cd8 7 *
8d063cd8 8 */
9
4633a7c4 10/*
11 * EXT designates a global var which is defined in perl.h
12 * dEXT designates a global var which is defined in another
13 * file, so we can't count on finding it in perl.h
14 * (this practice should be avoided).
15 */
8d063cd8 16#undef EXT
4633a7c4 17#undef dEXT
36477c24 18#undef EXTCONST
19#undef dEXTCONST
4633a7c4 20#if defined(VMS) && !defined(__GNUC__)
17f28c40 21 /* Suppress portability warnings from DECC for VMS-specific extensions */
22# ifdef __DECC
23# pragma message disable (GLOBALEXT,NOSHAREEXT,READONLYEXT)
24# endif
4633a7c4 25# define EXT globalref
26# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare
36477c24 27# define EXTCONST globalref
28# define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly
4633a7c4 29#else
acfe0abc 30# if defined(WIN32) && !defined(PERL_STATIC_SYMS)
22239a37 31# ifdef PERLDLL
3e3baf6d 32# define EXT extern __declspec(dllexport)
54310121 33# define dEXT
3e3baf6d 34# define EXTCONST extern __declspec(dllexport) const
54310121 35# define dEXTCONST const
36# else
3e3baf6d 37# define EXT extern __declspec(dllimport)
38# define dEXT
39# define EXTCONST extern __declspec(dllimport) const
40# define dEXTCONST const
54310121 41# endif
42# else
d308986b 43# if defined(__CYGWIN__) && defined(USEIMPORTLIB)
8736538c 44# define EXT extern __declspec(dllimport)
45# define dEXT
46# define EXTCONST extern __declspec(dllimport) const
47# define dEXTCONST const
48# else
49# define EXT extern
50# define dEXT
51# define EXTCONST extern const
52# define dEXTCONST const
53# endif
54310121 54# endif
4633a7c4 55#endif
8d063cd8 56
57#undef INIT
58#define INIT(x)
59
60#undef DOINIT