This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
move PL_lex_state into the PL_parser struct
[perl5.git] / intrpvar.h
CommitLineData
49f531da
NIS
1/***********************************************/
2/* Global only to current interpreter instance */
3/***********************************************/
4
cb68f92d
GS
5/* Don't forget to re-run embed.pl to propagate changes! */
6
6537fe72
MS
7/* New variables must be added to the very end for binary compatibility.
8 * XSUB.h provides wrapper functions via perlapi.h that make this
9 * irrelevant, but not all code may be expected to #include XSUB.h. */
10
02506efe
JH
11/* Don't forget to add your variable also to perl_clone()! */
12
cb68f92d
GS
13/* The 'I' prefix is only needed for vars that need appropriate #defines
14 * generated when built with or without MULTIPLICITY. It is also used
15 * to generate the appropriate export list for win32.
16 *
14dd3ad8 17 * When building without MULTIPLICITY, these variables will be truly global. */
cb68f92d 18
d95e864f
NC
19
20/* For historical reasons this file follows thrdvar.h into the interpeter
21 struct, and that file currently ends with 7 bytes of variables, so putting
22 one last byte here is good for alignment. */
23
24/* This value may be set when embedding for full cleanup */
25/* 0=none, 1=full, 2=full with checks */
26PERLVARI(Iperl_destruct_level, U8, 0)
27
28PERLVAR(Iperldb, U32)
29
49f531da 30/* pseudo environmental stuff */
d95e864f 31PERLVAR(Iorigargc, int)
cb68f92d
GS
32PERLVAR(Iorigargv, char **)
33PERLVAR(Ienvgv, GV *)
cb68f92d 34PERLVAR(Iincgv, GV *)
b3ac6de7 35PERLVAR(Ihintgv, GV *)
cb68f92d
GS
36PERLVAR(Iorigfilename, char *)
37PERLVAR(Idiehook, SV *)
38PERLVAR(Iwarnhook, SV *)
1d7c1841
GS
39
40/* switches */
a7cb1f99 41PERLVAR(Ipatchlevel, SV *)
27da23d5 42PERLVAR(Ilocalpatches, const char * const *)
dd374669 43PERLVARI(Isplitstr, const char *, " ")
9f7da6d5
NC
44
45PERLVAR(Iminus_c, bool)
cb68f92d
GS
46PERLVAR(Ipreprocess, bool)
47PERLVAR(Iminus_n, bool)
48PERLVAR(Iminus_p, bool)
49PERLVAR(Iminus_l, bool)
50PERLVAR(Iminus_a, bool)
51PERLVAR(Iminus_F, bool)
52PERLVAR(Idoswitches, bool)
9f7da6d5 53
bc9b29db 54PERLVAR(Iminus_E, bool)
954c1994
GS
55
56/*
ccfc67b7
JH
57=head1 Global Variables
58
2eb25c99 59=for apidoc mn|bool|PL_dowarn
954c1994
GS
60
61The C variable which corresponds to Perl's $^W warning variable.
62
63=cut
64*/
65
d41ff1b8 66PERLVAR(Idowarn, U8)
cb68f92d 67PERLVAR(Idoextract, bool)
49f531da 68PERLVAR(Isawampersand, bool) /* must save all match strings */
cb68f92d 69PERLVAR(Iunsafe, bool)
9f7da6d5
NC
70PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */
71PERLVAR(Isrand_called, bool)
72/* Part of internal state, but makes the 16th 1 byte variable in a row. */
73PERLVAR(Itainting, bool) /* doing taint checks */
cb68f92d
GS
74PERLVAR(Iinplace, char *)
75PERLVAR(Ie_script, SV *)
49f531da
NIS
76
77/* magical thingies */
78PERLVAR(Ibasetime, Time_t) /* $^T */
79PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1
NIS
80
81
cb68f92d
GS
82PERLVARI(Imaxsysfd, I32, MAXSYSFD)
83 /* top fd to pass to subprocesses */
49f531da
NIS
84PERLVAR(Istatusvalue, I32) /* $? */
85#ifdef VMS
cb68f92d 86PERLVAR(Istatusvalue_vms,U32)
e5218da5
GA
87#else
88PERLVAR(Istatusvalue_posix,I32)
49f531da
NIS
89#endif
90
d95e864f
NC
91#ifdef CSH
92PERLVARI(Icshlen, I32, 0)
93PERLVARI(Icshname, const char *, CSH)
94#endif
9f7da6d5 95
49f531da 96/* shortcuts to various I/O objects */
cb68f92d 97PERLVAR(Istdingv, GV *)
bf49b057 98PERLVAR(Istderrgv, GV *)
cb68f92d
GS
99PERLVAR(Idefgv, GV *)
100PERLVAR(Iargvgv, GV *)
101PERLVAR(Iargvoutgv, GV *)
1d7c1841 102PERLVAR(Iargvout_stack, AV *)
49f531da
NIS
103
104/* shortcuts to regexp stuff */
5c0ca799 105/* this one needs to be moved to thrdvar.h and accessed via
4d1ff10f 106 * find_threadsv() when USE_5005THREADS */
cb68f92d 107PERLVAR(Ireplgv, GV *)
49f531da
NIS
108
109/* shortcuts to misc objects */
cb68f92d 110PERLVAR(Ierrgv, GV *)
49f531da
NIS
111
112/* shortcuts to debugging objects */
cb68f92d
GS
113PERLVAR(IDBgv, GV *)
114PERLVAR(IDBline, GV *)
954c1994
GS
115
116/*
2eb25c99 117=for apidoc mn|GV *|PL_DBsub
954c1994
GS
118When Perl is run in debugging mode, with the B<-d> switch, this GV contains
119the SV which holds the name of the sub being debugged. This is the C
120variable which corresponds to Perl's $DB::sub variable. See
121C<PL_DBsingle>.
122
2eb25c99 123=for apidoc mn|SV *|PL_DBsingle
954c1994 124When Perl is run in debugging mode, with the B<-d> switch, this SV is a
7889fe52 125boolean which indicates whether subs are being single-stepped.
954c1994
GS
126Single-stepping is automatically turned on after every step. This is the C
127variable which corresponds to Perl's $DB::single variable. See
128C<PL_DBsub>.
129
2eb25c99 130=for apidoc mn|SV *|PL_DBtrace
954c1994
GS
131Trace variable used when Perl is run in debugging mode, with the B<-d>
132switch. This is the C variable which corresponds to Perl's $DB::trace
133variable. See C<PL_DBsingle>.
134
135=cut
136*/
137
cb68f92d
GS
138PERLVAR(IDBsub, GV *)
139PERLVAR(IDBsingle, SV *)
140PERLVAR(IDBtrace, SV *)
141PERLVAR(IDBsignal, SV *)
49f531da
NIS
142PERLVAR(Ilineary, AV *) /* lines of script for debugger */
143PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
144
145/* symbol tables */
49f531da
NIS
146PERLVAR(Idebstash, HV *) /* symbol table for perldb package */
147PERLVAR(Iglobalstash, HV *) /* global keyword overrides imported here */
148PERLVAR(Icurstname, SV *) /* name of current package */
149PERLVAR(Ibeginav, AV *) /* names of BEGIN subroutines */
d4cce5f1 150PERLVAR(Iendav, AV *) /* names of END subroutines */
3c10abe3 151PERLVAR(Iunitcheckav, AV *) /* names of UNITCHECK subroutines */
7d30b5c4 152PERLVAR(Icheckav, AV *) /* names of CHECK subroutines */
49f531da
NIS
153PERLVAR(Iinitav, AV *) /* names of INIT subroutines */
154PERLVAR(Istrtab, HV *) /* shared string table */
005a453c 155PERLVARI(Isub_generation,U32,1) /* incr to invalidate method cache */
49f531da 156
9f7da6d5
NC
157/* funky return mechanisms */
158PERLVAR(Iforkprocess, int) /* so do_open |- can return proc# */
159
49f531da 160/* memory management */
49f531da
NIS
161PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
162PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
163PERLVAR(Isv_root, SV*) /* storage for SVs belonging to interp */
164PERLVAR(Isv_arenaroot, SV*) /* list of areas for garbage collection */
165
49f531da 166/* subprocess state */
d4cce5f1 167PERLVAR(Ifdpid, AV *) /* keep fd-to-pid mappings for my_popen */
49f531da
NIS
168
169/* internal state */
49f531da
NIS
170PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
171
49f531da 172/* current interpreter roots */
cb68f92d
GS
173PERLVAR(Imain_cv, CV *)
174PERLVAR(Imain_root, OP *)
175PERLVAR(Imain_start, OP *)
176PERLVAR(Ieval_root, OP *)
177PERLVAR(Ieval_start, OP *)
49f531da
NIS
178
179/* runtime control stuff */
cb68f92d 180PERLVARI(Icurcopdb, COP *, NULL)
49f531da 181
49f531da
NIS
182PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
183PERLVAR(Ilastfd, int) /* what to preserve mode on */
184PERLVAR(Ioldname, char *) /* what to preserve mode on */
d4cce5f1
NIS
185PERLVAR(IArgv, char **) /* stuff to free from do_aexec, vfork safe */
186PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */
cb68f92d 187PERLVAR(Ipreambleav, AV *)
cb68f92d 188PERLVAR(Imess_sv, SV *)
7889fe52 189PERLVAR(Iors_sv, SV *) /* output record separator $\ */
71eebe1e
NC
190/* statics moved here for shared library purposes */
191PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */
d95e864f
NC
192PERLVAR(Iin_my, U16) /* we're compiling a "my" (or "our") declaration */
193PERLVARI(Ilaststype, U16, OP_STAT)
194PERLVARI(Ilaststatval, int, -1)
d4cce5f1 195
4b556e6c 196/* interpreter atexit processing */
d95e864f 197PERLVARI(Iexitlistlen, I32, 0) /* length of same */
cb68f92d
GS
198PERLVARI(Iexitlist, PerlExitListEntry *, NULL)
199 /* list of exit functions */
954c1994
GS
200
201/*
202=for apidoc Amn|HV*|PL_modglobal
203
7889fe52 204C<PL_modglobal> is a general purpose, interpreter global HV for use by
954c1994 205extensions that need to keep information on a per-interpreter basis.
7889fe52
NIS
206In a pinch, it can also be used as a symbol table for extensions
207to share data among each other. It is a good idea to use keys
954c1994
GS
208prefixed by the package name of the extension that owns the data.
209
210=cut
211*/
212
cb68f92d
GS
213PERLVAR(Imodglobal, HV *) /* per-interp module data */
214
215/* these used to be in global before 5.004_68 */
216PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */
4608196e 217PERLVARI(Irsfp, PerlIO * VOL, NULL) /* current source file pointer */
7d49f689 218PERLVARI(Irsfp_filters, AV *, NULL) /* keeps active source filters */
cb68f92d
GS
219
220PERLVAR(Icompiling, COP) /* compiling/done executing marker */
221
222PERLVAR(Icompcv, CV *) /* currently compiling subroutine */
223PERLVAR(Icomppad, AV *) /* storage for lexically scoped temporaries */
224PERLVAR(Icomppad_name, AV *) /* variable names for "my" variables */
225PERLVAR(Icomppad_name_fill, I32) /* last "introduced" variable offset */
226PERLVAR(Icomppad_name_floor, I32) /* start of vars in innermost block */
4b556e6c
JD
227
228#ifdef HAVE_INTERP_INTERN
cb68f92d
GS
229PERLVAR(Isys_intern, struct interp_intern)
230 /* platform internals */
4b556e6c
JD
231#endif
232
7fae4e64 233/* more statics moved here */
7fae4e64 234PERLVAR(IDBcv, CV *) /* from perl.c */
9f7da6d5 235PERLVARI(Igeneration, int, 100) /* from op.c */
56953603 236
cb68f92d
GS
237PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
238PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
9f7da6d5
NC
239PERLVAR(Inomemok, bool) /* let malloc context handle nomem */
240PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */
7fae4e64 241
d8eceb89
JH
242PERLVAR(Iuid, Uid_t) /* current real user id */
243PERLVAR(Ieuid, Uid_t) /* current effective user id */
244PERLVAR(Igid, Gid_t) /* current real group id */
245PERLVAR(Iegid, Gid_t) /* current effective group id */
bf9cdc68
RG
246PERLVARI(Ian, U32, 0) /* malloc sequence number */
247PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */
bf9cdc68 248PERLVARI(Ievalseq, U32, 0) /* eval sequence number */
0672f40e 249PERLVAR(Iorigalen, U32)
9f7da6d5 250PERLVAR(Iorigenviron, char **)
ca0c25f6 251#ifdef PERL_USES_PL_PIDSTATUS
0672f40e 252PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */
ca0c25f6 253#endif
0672f40e 254PERLVAR(Iosname, char *) /* operating system */
5c728af0 255
0672f40e
GS
256PERLVAR(Isighandlerp, Sighandler_t)
257
232d1c15 258PERLVARA(Ibody_roots, PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
93e68bfb 259
0672f40e
GS
260PERLVAR(Inice_chunk, char *) /* a nice chunk of memory to reuse */
261PERLVAR(Inice_chunk_size, U32) /* how nice the chunk of memory is */
262
9f7da6d5
NC
263PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */
264
0b94c7bb 265PERLVARI(Irunops, runops_proc_t, MEMBER_TO_FPTR(RUNOPS_DEFAULT))
0672f40e 266
51371543 267PERLVARA(Itokenbuf,256, char)
0672f40e 268
954c1994
GS
269/*
270=for apidoc Amn|SV|PL_sv_undef
271This is the C<undef> SV. Always refer to this as C<&PL_sv_undef>.
272
273=for apidoc Amn|SV|PL_sv_no
274This is the C<false> SV. See C<PL_sv_yes>. Always refer to this as
275C<&PL_sv_no>.
276
277=for apidoc Amn|SV|PL_sv_yes
278This is the C<true> SV. See C<PL_sv_no>. Always refer to this as
279C<&PL_sv_yes>.
280
281=cut
282*/
283
0672f40e
GS
284PERLVAR(Isv_undef, SV)
285PERLVAR(Isv_no, SV)
286PERLVAR(Isv_yes, SV)
287
d95e864f
NC
288PERLVAR(Ierror_count, U8) /* how many errors so far, max 10 */
289PERLVARI(Icv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */
bc177e6b 290/* Space for two more U8 here without increasing the structure size */
53a7735b 291
0672f40e 292PERLVAR(Imulti_end, I32) /* last line of multi-line string */
0672f40e 293
0672f40e
GS
294PERLVAR(Isubname, SV *) /* name of current subroutine */
295
d95e864f 296PERLVAR(Isubline, I32) /* line this subroutine began on */
0672f40e 297PERLVAR(Imin_intro_pending, I32) /* start of vars to introduce */
d95e864f 298
0672f40e
GS
299PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */
300PERLVAR(Ipadix, I32) /* max used index in current "register" pad */
d95e864f 301
0672f40e
GS
302PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */
303PERLVAR(Ipad_reset_pending, I32) /* reset pad on next attempted alloc */
304
0672f40e 305PERLVAR(Iin_my_stash, HV *) /* declared class of this "my" declaration */
0672f40e 306
1d7c1841 307PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */
0672f40e
GS
308
309PERLVAR(Idebug, VOL U32) /* flags given to -D switch */
310
bf9cdc68 311PERLVARI(Iamagic_generation, long, 0)
0672f40e
GS
312
313#ifdef USE_LOCALE_COLLATE
0672f40e 314PERLVAR(Icollation_name,char *) /* Name of current collation */
0672f40e
GS
315PERLVAR(Icollxfrm_base, Size_t) /* Basic overhead in *xfrm() */
316PERLVARI(Icollxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */
9f7da6d5
NC
317PERLVARI(Icollation_ix, U32, 0) /* Collation generation index */
318PERLVARI(Icollation_standard, bool, TRUE)
319 /* Assume simple collation */
0672f40e
GS
320#endif /* USE_LOCALE_COLLATE */
321
9f7da6d5
NC
322
323#ifdef PERL_UTF8_CACHE_ASSERT
324PERLVARI(Iutf8cache, I8, -1) /* Is the utf8 caching code enabled? */
325#else
326PERLVARI(Iutf8cache, I8, 1) /* Is the utf8 caching code enabled? */
327#endif
328
0672f40e
GS
329#ifdef USE_LOCALE_NUMERIC
330
0672f40e
GS
331PERLVARI(Inumeric_standard, bool, TRUE)
332 /* Assume simple numerics */
333PERLVARI(Inumeric_local, bool, TRUE)
334 /* Assume local numerics */
9f7da6d5 335PERLVAR(Inumeric_name, char *) /* Name of current numeric locale */
0672f40e
GS
336#endif /* !USE_LOCALE_NUMERIC */
337
338/* utf8 character classes */
339PERLVAR(Iutf8_alnum, SV *)
b8c5462f
JH
340PERLVAR(Iutf8_alnumc, SV *)
341PERLVAR(Iutf8_ascii, SV *)
0672f40e
GS
342PERLVAR(Iutf8_alpha, SV *)
343PERLVAR(Iutf8_space, SV *)
b8c5462f
JH
344PERLVAR(Iutf8_cntrl, SV *)
345PERLVAR(Iutf8_graph, SV *)
0672f40e
GS
346PERLVAR(Iutf8_digit, SV *)
347PERLVAR(Iutf8_upper, SV *)
348PERLVAR(Iutf8_lower, SV *)
349PERLVAR(Iutf8_print, SV *)
b8c5462f
JH
350PERLVAR(Iutf8_punct, SV *)
351PERLVAR(Iutf8_xdigit, SV *)
0672f40e
GS
352PERLVAR(Iutf8_mark, SV *)
353PERLVAR(Iutf8_toupper, SV *)
354PERLVAR(Iutf8_totitle, SV *)
355PERLVAR(Iutf8_tolower, SV *)
b4e400f9 356PERLVAR(Iutf8_tofold, SV *)
0672f40e 357PERLVAR(Ilast_swash_hv, HV *)
0672f40e
GS
358PERLVAR(Ilast_swash_tmps, U8 *)
359PERLVAR(Ilast_swash_slen, STRLEN)
9f7da6d5 360PERLVARA(Ilast_swash_key,10, U8)
d95e864f
NC
361PERLVAR(Ilast_swash_klen, U8) /* Only needs to store 0-10 */
362
363#ifdef FCRYPT
364PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */
365#endif
366
367PERLVARI(Iglob_index, int, 0)
368
0672f40e 369
5912531f 370PERLVAR(Iparser, yy_parser *) /* current parser state */
12fbd33b 371
0672f40e 372PERLVAR(Ibitcount, char *)
0672f40e 373
1d7c1841
GS
374PERLVAR(Ipsig_ptr, SV**)
375PERLVAR(Ipsig_name, SV**)
376
c5be433b 377#if defined(PERL_IMPLICIT_SYS)
32e30700 378PERLVAR(IMem, struct IPerlMem*)
1d7c1841
GS
379PERLVAR(IMemShared, struct IPerlMem*)
380PERLVAR(IMemParse, struct IPerlMem*)
32e30700
GS
381PERLVAR(IEnv, struct IPerlEnv*)
382PERLVAR(IStdIO, struct IPerlStdIO*)
383PERLVAR(ILIO, struct IPerlLIO*)
384PERLVAR(IDir, struct IPerlDir*)
385PERLVAR(ISock, struct IPerlSock*)
386PERLVAR(IProc, struct IPerlProc*)
76e3520e 387#endif
1d7c1841 388
1d7c1841 389PERLVAR(Iptr_table, PTR_TBL_t*)
7d49f689 390PERLVARI(Ibeginav_save, AV*, NULL) /* save BEGIN{}s when compiling */
f180df80 391
fdda85ca 392PERLVAR(Ibody_arenas, void*) /* pointer to list of body-arenas */
93e68bfb 393
ce08f86c
NIS
394PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */
395PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */
396
d95e864f
NC
397
398PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */
399PERLVAR(Iutf8locale, bool) /* utf8 locale detected */
400PERLVARI(Ihash_seed_set, bool, FALSE) /* Hash initialized? */
401PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
402
a453c169
JH
403#ifdef USE_LOCALE_NUMERIC
404
405PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */
406
407#endif
ce08f86c 408
1fcf4c12 409#if defined(USE_ITHREADS)
aefff11f
JD
410PERLVAR(Iregex_pad, SV**) /* All regex objects */
411PERLVAR(Iregex_padav, AV*) /* All regex objects */
e5dd39fc 412
1fcf4c12
AB
413#endif
414
ea68fd67
NC
415#ifdef USE_REENTRANT_API
416PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */
f5a82810
JH
417#endif
418
aefff11f 419
598921a7
NC
420#ifdef PERL_MAD
421PERLVARI(Imadskills, bool, FALSE) /* preserve all syntactic info */
422 /* (MAD = Misc Attribute Decoration) */
423PERLVARI(Ixmlfp, PerlIO *,NULL)
424#endif
425
53e06cf0
SC
426PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */
427PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */
19e8ce8e 428
a1ea730d
NIS
429#ifdef PERLIO_LAYERS
430PERLVARI(Iperlio, PerlIO *,NULL)
3a1ee7e8
NIS
431PERLVARI(Iknown_layers, PerlIO_list_t *,NULL)
432PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL)
a1ea730d
NIS
433#endif
434
a0714e2c 435PERLVARI(Iencoding, SV*, NULL) /* character encoding */
0a378802 436
128e8167 437PERLVAR(Idebug_pad, struct perl_debug_pad) /* always needed because of the re extension */
ce333219 438
238a4c30 439#ifdef PL_OP_SLAB_ALLOC
5a8e194f
NIS
440PERLVAR(IOpPtr,I32 **)
441PERLVARI(IOpSpace,I32,0)
442PERLVAR(IOpSlab,I32 *)
238a4c30
NIS
443#endif
444
82686b01
JH
445PERLVAR(Iutf8_idstart, SV *)
446PERLVAR(Iutf8_idcont, SV *)
447
147f47de
AB
448PERLVAR(Isort_RealCmp, SVCOMPARE_t)
449
7d49f689 450PERLVARI(Icheckav_save, AV*, NULL) /* save CHECK{}s when compiling */
3c10abe3 451PERLVARI(Iunitcheckav_save, AV*, NULL) /* save UNITCHECK{}s when compiling */
ece599bd 452
5311654c
JH
453PERLVARI(Iclocktick, long, 0) /* this many times() ticks in a second */
454
edab1aa3
JH
455PERLVARI(Iin_load_module, int, 0) /* to prevent recursions in PerlIO_find_layer */
456
a05d7ebb
JH
457PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
458
4ffa73a3
JH
459PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */
460
57c6e6d2
JH
461PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions */
462
9f7da6d5
NC
463PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */
464
15a5279a
JH
465/* Hooks to shared SVs and locks. */
466PERLVARI(Isharehook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d5b2b27b 467PERLVARI(Ilockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d0647d4e
NC
468#ifdef NO_MATHOMS
469# define PERL_UNLOCK_HOOK Perl_sv_nosharing
470#else
471/* This reference ensures that the mathoms are linked with perl */
472# define PERL_UNLOCK_HOOK Perl_sv_nounlocking
473#endif
474PERLVARI(Iunlockhook, share_proc_t, MEMBER_TO_FPTR(PERL_UNLOCK_HOOK))
475
15a5279a
JH
476PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
477
bce260cd
JH
478/* Force inclusion of both runops options */
479PERLVARI(Irunops_std, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_standard))
480PERLVARI(Irunops_dbg, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_debug))
481
482/* Stores the PPID */
483#ifdef THREADS_HAVE_PIDS
484PERLVARI(Ippid, IV, 0)
485#endif
486
504f80c1
JH
487PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */
488
8b5c2100
JH
489PERLVAR(IDBassertion, SV *)
490
008fb0c0 491PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */
4b5190b5 492
41e4abd8
NC
493#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
494/* File descriptor to talk to the child which dumps scalars. */
495PERLVARI(Idumper_fd, int, -1)
496#endif
f16dd614
DM
497
498#ifdef PERL_IMPLICIT_CONTEXT
4c901e72 499PERLVARI(Imy_cxt_size, int, 0) /* size of PL_my_cxt_list */
f16dd614 500PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
53d44271
JH
501#ifdef PERL_GLOBAL_STRUCT_PRIVATE
502PERLVARI(Imy_cxt_keys, const char **, NULL) /* per-module array of pointers to MY_CXT_KEY constants */
503#endif
f16dd614
DM
504#endif
505
7cb608b5
NC
506#ifdef PERL_TRACK_MEMPOOL
507/* For use with the memory debugging code in util.c */
508PERLVAR(Imemory_debug_header, struct perl_memory_debug_header)
509#endif
510
f1fac472
NC
511#ifdef PERL_DEBUG_READONLY_OPS
512PERLVARI(Islabs, I32**, NULL) /* Array of slabs that have been allocated */
513PERLVARI(Islab_count, U32, 0) /* Size of the array */
514#endif
515
dd69841b
BB
516PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */
517
53a7735b
DM
518/* If you are adding a U8 or U16, see the 'Space' comments above on where
519 * there are gaps which currently will be structure padding. */
d95e864f
NC
520
521/* Within a stable branch, new variables must be added to the very end, before
522 * this comment, for binary compatibility (the offsets of the old members must
523 * not change).
b83cd129 524 * (Don't forget to add your variable also to perl_clone()!)
e3acbfda 525 * XSUB.h provides wrapper functions via perlapi.h that make this
b83cd129
JH
526 * irrelevant, but not all code may be expected to #include XSUB.h.
527 */