This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Confusing error from perl -e "x'"
[perl5.git] / INTERN.h
... / ...
CommitLineData
1/* INTERN.h
2 *
3 * Copyright (c) 1991-1997, Larry Wall
4 *
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.
7 *
8 */
9
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 */
16#undef EXT
17#undef dEXT
18#undef EXTCONST
19#undef dEXTCONST
20#if defined(VMS) && !defined(__GNUC__)
21# define EXT globaldef {"$GLOBAL_RW_VARS"} noshare
22# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare
23# define EXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly
24# define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly
25#else
26# ifdef __cplusplus
27# define EXT
28# define dEXT
29# define EXTCONST extern const
30# define dEXTCONST const
31#else
32# define EXT
33# define dEXT
34# define EXTCONST const
35# define dEXTCONST const
36#endif
37#endif
38
39#undef INIT
40#define INIT(x) = x
41
42#define DOINIT