This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #34976] substr uses utf8 length cache incorrectly
[perl5.git] / INTERN.h
CommitLineData
a0d0e21e 1/* INTERN.h
a687059c 2 *
4bb101f2
JH
3 * Copyright (C) 1991, 1992, 1993, 1995, 1996, 1998, 2000, 2001,
4 * by Larry Wall and others
a687059c 5 *
132b68a5
LW
6 * You may distribute under the terms of either the GNU General Public
7 * License or the Artistic License, as specified in the README file.
8d063cd8 8 *
8d063cd8
LW
9 */
10
4633a7c4
LW
11/*
12 * EXT designates a global var which is defined in perl.h
13 * dEXT designates a global var which is defined in another
14 * file, so we can't count on finding it in perl.h
15 * (this practice should be avoided).
16 */
8d063cd8 17#undef EXT
4633a7c4 18#undef dEXT
36477c24
PP
19#undef EXTCONST
20#undef dEXTCONST
4633a7c4 21#if defined(VMS) && !defined(__GNUC__)
17f28c40
CB
22 /* Suppress portability warnings from DECC for VMS-specific extensions */
23# ifdef __DECC
24# pragma message disable (GLOBALEXT,NOSHAREEXT,READONLYEXT)
25# endif
4633a7c4
LW
26# define EXT globaldef {"$GLOBAL_RW_VARS"} noshare
27# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare
36477c24
PP
28# define EXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly
29# define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly
4633a7c4 30#else
7340a771 31#if defined(WIN32) && defined(__MINGW32__)
5db10396 32# define EXT __declspec(dllexport)
7340a771 33# define dEXT
5db10396 34# define EXTCONST __declspec(dllexport) const
7340a771 35# define dEXTCONST const
5db10396
GS
36#else
37#ifdef __cplusplus
38# define EXT
39# define dEXT
40# define EXTCONST extern const
41# define dEXTCONST const
f0f333f4 42#else
4633a7c4
LW
43# define EXT
44# define dEXT
36477c24
PP
45# define EXTCONST const
46# define dEXTCONST const
4633a7c4 47#endif
f0f333f4 48#endif
5db10396 49#endif
8d063cd8
LW
50
51#undef INIT
52#define INIT(x) = x
53
54#define DOINIT