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