This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add ENTER_with_name and LEAVE_with_name to automaticly check for matching ENTER/LEAVE...
[perl5.git] / intrpvar.h
CommitLineData
907b3e23
DM
1/* intrpvar.h
2 *
3 * Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
1129b882 4 * 2006, 2007, 2008 by Larry Wall and others
907b3e23
DM
5 *
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.
8 *
9 */
10
11/*
12=head1 Per-Interpreter Variables
13*/
49f531da 14
907b3e23
DM
15/* These variables are per-interpreter in threaded/multiplicity builds,
16 * global otherwise.
17
18 * Don't forget to re-run embed.pl to propagate changes! */
cb68f92d 19
6537fe72
MS
20/* New variables must be added to the very end for binary compatibility.
21 * XSUB.h provides wrapper functions via perlapi.h that make this
22 * irrelevant, but not all code may be expected to #include XSUB.h. */
23
02506efe
JH
24/* Don't forget to add your variable also to perl_clone()! */
25
cb68f92d
GS
26/* The 'I' prefix is only needed for vars that need appropriate #defines
27 * generated when built with or without MULTIPLICITY. It is also used
28 * to generate the appropriate export list for win32.
29 *
907b3e23
DM
30 * When building without MULTIPLICITY, these variables will be truly global.
31 *
32 * Important ones in the first cache line (if alignment is done right) */
33
34PERLVAR(Istack_sp, SV **) /* top of the stack */
35#ifdef OP_IN_REGISTER
36PERLVAR(Iopsave, OP *)
37#else
38PERLVAR(Iop, OP *) /* currently executing op */
39#endif
40PERLVAR(Icurpad, SV **) /* active pad (lexicals+tmps) */
41
42PERLVAR(Istack_base, SV **)
43PERLVAR(Istack_max, SV **)
44
45PERLVAR(Iscopestack, I32 *) /* scopes we've ENTERed */
d343c3ef
GG
46#ifdef DEBUGGING
47PERLVAR(Iscopestack_name, const char * *) /* name of the scopes we've ENTERed */
48#endif
907b3e23
DM
49PERLVAR(Iscopestack_ix, I32)
50PERLVAR(Iscopestack_max,I32)
51
52PERLVAR(Isavestack, ANY *) /* items that need to be restored when
53 LEAVEing scopes we've ENTERed */
54PERLVAR(Isavestack_ix, I32)
55PERLVAR(Isavestack_max, I32)
56
57PERLVAR(Itmps_stack, SV **) /* mortals we've made */
58PERLVARI(Itmps_ix, I32, -1)
59PERLVARI(Itmps_floor, I32, -1)
60PERLVAR(Itmps_max, I32)
61PERLVAR(Imodcount, I32) /* how much mod()ification in
62 assignment? */
63
64PERLVAR(Imarkstack, I32 *) /* stack_sp locations we're
65 remembering */
66PERLVAR(Imarkstack_ptr, I32 *)
67PERLVAR(Imarkstack_max, I32 *)
68
69PERLVAR(ISv, SV *) /* used to hold temporary values */
70PERLVAR(IXpv, XPV *) /* used to hold temporary values */
71
72/*
73=for apidoc Amn|STRLEN|PL_na
74
75A convenience variable which is typically used with C<SvPV> when one
76doesn't care about the length of the string. It is usually more efficient
77to either declare a local variable and use that instead or to use the
78C<SvPV_nolen> macro.
79
80=cut
81*/
82
83PERLVAR(Ina, STRLEN) /* for use in SvPV when length is
84 Not Applicable */
85
86/* stat stuff */
87PERLVAR(Istatbuf, Stat_t)
88PERLVAR(Istatcache, Stat_t) /* _ */
89PERLVAR(Istatgv, GV *)
90PERLVARI(Istatname, SV *, NULL)
91
92#ifdef HAS_TIMES
93PERLVAR(Itimesbuf, struct tms)
94#endif
95
96/* Fields used by magic variables such as $@, $/ and so on */
97PERLVAR(Icurpm, PMOP *) /* what to do \ interps in REs from */
98
99/*
100=for apidoc mn|SV*|PL_rs
101
102The input record separator - C<$/> in Perl space.
103
104=for apidoc mn|GV*|PL_last_in_gv
105
106The GV which was last used for a filehandle input operation. (C<< <FH> >>)
107
e23d9e2f 108=for apidoc mn|GV*|PL_ofsgv
907b3e23 109
e23d9e2f 110The glob containing the output field separator - C<*,> in Perl space.
907b3e23
DM
111
112=cut
113*/
114
115PERLVAR(Irs, SV *) /* input record separator $/ */
116PERLVAR(Ilast_in_gv, GV *) /* GV used in last <FH> */
e23d9e2f 117PERLVAR(Iofsgv, GV *) /* GV of output field separator *, */
907b3e23
DM
118PERLVAR(Idefoutgv, GV *) /* default FH for output */
119PERLVARI(Ichopset, const char *, " \n-") /* $: */
120PERLVAR(Iformtarget, SV *)
121PERLVAR(Ibodytarget, SV *)
122PERLVAR(Itoptarget, SV *)
123
124/* Stashes */
125PERLVAR(Idefstash, HV *) /* main symbol table */
126PERLVAR(Icurstash, HV *) /* symbol table for current package */
127
128PERLVAR(Irestartop, OP *) /* propagating an error from croak? */
910e0671 129PERLVAR(Icurcop, COP *)
907b3e23
DM
130PERLVAR(Icurstack, AV *) /* THE STACK */
131PERLVAR(Icurstackinfo, PERL_SI *) /* current stack + context */
132PERLVAR(Imainstack, AV *) /* the stack when nothing funny is
133 happening */
134
135PERLVAR(Itop_env, JMPENV *) /* ptr to current sigjmp environment */
136PERLVAR(Istart_env, JMPENV) /* empty startup sigjmp environment */
137PERLVARI(Ierrors, SV *, NULL) /* outstanding queued errors */
138
139/* statics "owned" by various functions */
907b3e23
DM
140PERLVAR(Ihv_fetch_ent_mh, HE*) /* owned by hv_fetch_ent() */
141
907b3e23
DM
142PERLVAR(Ilastgotoprobe, OP*) /* from pp_ctl.c */
143
144/* sort stuff */
145PERLVAR(Isortcop, OP *) /* user defined sort routine */
146PERLVAR(Isortstash, HV *) /* which is in some package or other */
147PERLVAR(Ifirstgv, GV *) /* $a */
148PERLVAR(Isecondgv, GV *) /* $b */
149
150/* float buffer */
151PERLVAR(Iefloatbuf, char *)
152PERLVAR(Iefloatsize, STRLEN)
153
154/* regex stuff */
155
156PERLVAR(Iscreamfirst, I32 *)
157PERLVAR(Iscreamnext, I32 *)
158PERLVAR(Ilastscream, SV *)
159
160PERLVAR(Ireg_state, struct re_save_state)
161
162PERLVAR(Iregdummy, regnode) /* from regcomp.c */
163
164PERLVARI(Idumpindent, U16, 4) /* number of blanks per dump
165 indentation level */
166
157b3822
NC
167
168PERLVAR(Iutf8locale, bool) /* utf8 locale detected */
169PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
907b3e23
DM
170
171PERLVARA(Icolors,6, char *) /* from regcomp.c */
172
173PERLVARI(Ipeepp, peep_t, MEMBER_TO_FPTR(Perl_peep))
174 /* Pointer to peephole optimizer */
175
2f175318
VP
176/*
177=for apidoc Amn|Perl_ophook_t|PL_opfreehook
178
179When non-C<NULL>, the function pointed by this variable will be called each time an OP is freed with the corresponding OP as the argument.
180This allows extensions to free any extra attribute they have locally attached to an OP.
181It is also assured to first fire for the parent OP and then for its kids.
182
183When you replace this variable, it is considered a good practice to store the possibly previously installed hook and that you recall it inside your own.
184
185=cut
186*/
187
799dfa8f 188PERLVARI(Iopfreehook, Perl_ophook_t, 0) /* op_free() hook */
f37b8c3f 189
907b3e23
DM
190PERLVARI(Imaxscream, I32, -1)
191PERLVARI(Ireginterp_cnt,I32, 0) /* Whether "Regexp" was interpolated. */
192PERLVARI(Iwatchaddr, char **, 0)
193PERLVAR(Iwatchok, char *)
194
195/* the currently active slab in a chain of slabs of regmatch states,
196 * and the currently active state within that slab */
197
198PERLVARI(Iregmatch_slab, regmatch_slab *, NULL)
199PERLVAR(Iregmatch_state, regmatch_state *)
200
907b3e23 201/* Put anything new that is pointer aligned here. */
d95e864f 202
907b3e23
DM
203PERLVAR(Idelaymagic, U16) /* ($<,$>) = ... */
204PERLVAR(Ilocalizing, U8) /* are we processing a local() list? */
205PERLVAR(Icolorset, bool) /* from regcomp.c */
206PERLVARI(Idirty, bool, FALSE) /* in the middle of tearing things
207 down? */
910e0671 208PERLVAR(Iin_eval, U8) /* trap "fatal" errors? */
907b3e23 209PERLVAR(Itainted, bool) /* using variables controlled by $< */
d95e864f
NC
210
211/* This value may be set when embedding for full cleanup */
212/* 0=none, 1=full, 2=full with checks */
801627e8
NC
213/* mod_perl is special, and also assigns a meaning -1 */
214PERLVARI(Iperl_destruct_level, signed char, 0)
d95e864f
NC
215
216PERLVAR(Iperldb, U32)
217
49f531da 218/* pseudo environmental stuff */
d95e864f 219PERLVAR(Iorigargc, int)
cb68f92d
GS
220PERLVAR(Iorigargv, char **)
221PERLVAR(Ienvgv, GV *)
cb68f92d 222PERLVAR(Iincgv, GV *)
b3ac6de7 223PERLVAR(Ihintgv, GV *)
cb68f92d
GS
224PERLVAR(Iorigfilename, char *)
225PERLVAR(Idiehook, SV *)
226PERLVAR(Iwarnhook, SV *)
1d7c1841
GS
227
228/* switches */
a7cb1f99 229PERLVAR(Ipatchlevel, SV *)
27da23d5 230PERLVAR(Ilocalpatches, const char * const *)
dd374669 231PERLVARI(Isplitstr, const char *, " ")
9f7da6d5
NC
232
233PERLVAR(Iminus_c, bool)
cb68f92d
GS
234PERLVAR(Iminus_n, bool)
235PERLVAR(Iminus_p, bool)
236PERLVAR(Iminus_l, bool)
237PERLVAR(Iminus_a, bool)
238PERLVAR(Iminus_F, bool)
239PERLVAR(Idoswitches, bool)
bc9b29db 240PERLVAR(Iminus_E, bool)
954c1994
GS
241
242/*
ccfc67b7 243
2eb25c99 244=for apidoc mn|bool|PL_dowarn
954c1994
GS
245
246The C variable which corresponds to Perl's $^W warning variable.
247
248=cut
249*/
250
d41ff1b8 251PERLVAR(Idowarn, U8)
cb68f92d 252PERLVAR(Idoextract, bool)
49f531da 253PERLVAR(Isawampersand, bool) /* must save all match strings */
cb68f92d 254PERLVAR(Iunsafe, bool)
9f7da6d5
NC
255PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */
256PERLVAR(Isrand_called, bool)
257/* Part of internal state, but makes the 16th 1 byte variable in a row. */
258PERLVAR(Itainting, bool) /* doing taint checks */
96889982 259/* Space for a U8 */
cb68f92d
GS
260PERLVAR(Iinplace, char *)
261PERLVAR(Ie_script, SV *)
49f531da
NIS
262
263/* magical thingies */
264PERLVAR(Ibasetime, Time_t) /* $^T */
265PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1
NIS
266
267
cb68f92d
GS
268PERLVARI(Imaxsysfd, I32, MAXSYSFD)
269 /* top fd to pass to subprocesses */
49f531da
NIS
270PERLVAR(Istatusvalue, I32) /* $? */
271#ifdef VMS
cb68f92d 272PERLVAR(Istatusvalue_vms,U32)
e5218da5
GA
273#else
274PERLVAR(Istatusvalue_posix,I32)
49f531da
NIS
275#endif
276
157b3822
NC
277PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */
278PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */
279
49f531da 280/* shortcuts to various I/O objects */
cb68f92d 281PERLVAR(Istdingv, GV *)
bf49b057 282PERLVAR(Istderrgv, GV *)
cb68f92d
GS
283PERLVAR(Idefgv, GV *)
284PERLVAR(Iargvgv, GV *)
285PERLVAR(Iargvoutgv, GV *)
1d7c1841 286PERLVAR(Iargvout_stack, AV *)
49f531da
NIS
287
288/* shortcuts to regexp stuff */
cb68f92d 289PERLVAR(Ireplgv, GV *)
49f531da
NIS
290
291/* shortcuts to misc objects */
cb68f92d 292PERLVAR(Ierrgv, GV *)
49f531da
NIS
293
294/* shortcuts to debugging objects */
cb68f92d
GS
295PERLVAR(IDBgv, GV *)
296PERLVAR(IDBline, GV *)
954c1994
GS
297
298/*
2eb25c99 299=for apidoc mn|GV *|PL_DBsub
954c1994
GS
300When Perl is run in debugging mode, with the B<-d> switch, this GV contains
301the SV which holds the name of the sub being debugged. This is the C
302variable which corresponds to Perl's $DB::sub variable. See
303C<PL_DBsingle>.
304
2eb25c99 305=for apidoc mn|SV *|PL_DBsingle
954c1994 306When Perl is run in debugging mode, with the B<-d> switch, this SV is a
7889fe52 307boolean which indicates whether subs are being single-stepped.
954c1994
GS
308Single-stepping is automatically turned on after every step. This is the C
309variable which corresponds to Perl's $DB::single variable. See
310C<PL_DBsub>.
311
2eb25c99 312=for apidoc mn|SV *|PL_DBtrace
954c1994
GS
313Trace variable used when Perl is run in debugging mode, with the B<-d>
314switch. This is the C variable which corresponds to Perl's $DB::trace
315variable. See C<PL_DBsingle>.
316
317=cut
318*/
319
cb68f92d
GS
320PERLVAR(IDBsub, GV *)
321PERLVAR(IDBsingle, SV *)
322PERLVAR(IDBtrace, SV *)
323PERLVAR(IDBsignal, SV *)
49f531da
NIS
324PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
325
326/* symbol tables */
49f531da
NIS
327PERLVAR(Idebstash, HV *) /* symbol table for perldb package */
328PERLVAR(Iglobalstash, HV *) /* global keyword overrides imported here */
329PERLVAR(Icurstname, SV *) /* name of current package */
330PERLVAR(Ibeginav, AV *) /* names of BEGIN subroutines */
d4cce5f1 331PERLVAR(Iendav, AV *) /* names of END subroutines */
3c10abe3 332PERLVAR(Iunitcheckav, AV *) /* names of UNITCHECK subroutines */
7d30b5c4 333PERLVAR(Icheckav, AV *) /* names of CHECK subroutines */
49f531da
NIS
334PERLVAR(Iinitav, AV *) /* names of INIT subroutines */
335PERLVAR(Istrtab, HV *) /* shared string table */
005a453c 336PERLVARI(Isub_generation,U32,1) /* incr to invalidate method cache */
49f531da 337
9f7da6d5
NC
338/* funky return mechanisms */
339PERLVAR(Iforkprocess, int) /* so do_open |- can return proc# */
340
49f531da 341/* memory management */
49f531da
NIS
342PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
343PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
344PERLVAR(Isv_root, SV*) /* storage for SVs belonging to interp */
345PERLVAR(Isv_arenaroot, SV*) /* list of areas for garbage collection */
346
49f531da 347/* subprocess state */
d4cce5f1 348PERLVAR(Ifdpid, AV *) /* keep fd-to-pid mappings for my_popen */
49f531da
NIS
349
350/* internal state */
49f531da
NIS
351PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
352
49f531da 353/* current interpreter roots */
cb68f92d
GS
354PERLVAR(Imain_cv, CV *)
355PERLVAR(Imain_root, OP *)
356PERLVAR(Imain_start, OP *)
357PERLVAR(Ieval_root, OP *)
358PERLVAR(Ieval_start, OP *)
49f531da
NIS
359
360/* runtime control stuff */
cb68f92d 361PERLVARI(Icurcopdb, COP *, NULL)
49f531da 362
49f531da
NIS
363PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
364PERLVAR(Ilastfd, int) /* what to preserve mode on */
365PERLVAR(Ioldname, char *) /* what to preserve mode on */
360ea906 366PERLVAR(IArgv, const char **) /* stuff to free from do_aexec, vfork safe */
d4cce5f1 367PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */
00accf8d
NC
368/* Elements in this array have ';' appended and are injected as a single line
369 into the tokeniser. You can't put any (literal) newlines into any program
370 you stuff in into this array, as the point where it's injected is expecting
371 a single physical line. */
cb68f92d 372PERLVAR(Ipreambleav, AV *)
cb68f92d 373PERLVAR(Imess_sv, SV *)
7889fe52 374PERLVAR(Iors_sv, SV *) /* output record separator $\ */
71eebe1e
NC
375/* statics moved here for shared library purposes */
376PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */
a4021b77 377PERLVARI(Icv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */
157b3822 378PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */
d95e864f
NC
379PERLVARI(Ilaststype, U16, OP_STAT)
380PERLVARI(Ilaststatval, int, -1)
d4cce5f1 381
4b556e6c 382/* interpreter atexit processing */
d95e864f 383PERLVARI(Iexitlistlen, I32, 0) /* length of same */
cb68f92d
GS
384PERLVARI(Iexitlist, PerlExitListEntry *, NULL)
385 /* list of exit functions */
954c1994
GS
386
387/*
388=for apidoc Amn|HV*|PL_modglobal
389
7889fe52 390C<PL_modglobal> is a general purpose, interpreter global HV for use by
954c1994 391extensions that need to keep information on a per-interpreter basis.
7889fe52
NIS
392In a pinch, it can also be used as a symbol table for extensions
393to share data among each other. It is a good idea to use keys
954c1994
GS
394prefixed by the package name of the extension that owns the data.
395
396=cut
397*/
398
cb68f92d
GS
399PERLVAR(Imodglobal, HV *) /* per-interp module data */
400
401/* these used to be in global before 5.004_68 */
402PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */
cb68f92d
GS
403
404PERLVAR(Icompiling, COP) /* compiling/done executing marker */
405
406PERLVAR(Icompcv, CV *) /* currently compiling subroutine */
407PERLVAR(Icomppad, AV *) /* storage for lexically scoped temporaries */
408PERLVAR(Icomppad_name, AV *) /* variable names for "my" variables */
409PERLVAR(Icomppad_name_fill, I32) /* last "introduced" variable offset */
410PERLVAR(Icomppad_name_floor, I32) /* start of vars in innermost block */
4b556e6c
JD
411
412#ifdef HAVE_INTERP_INTERN
cb68f92d
GS
413PERLVAR(Isys_intern, struct interp_intern)
414 /* platform internals */
4b556e6c
JD
415#endif
416
7fae4e64 417/* more statics moved here */
7fae4e64 418PERLVAR(IDBcv, CV *) /* from perl.c */
9f7da6d5 419PERLVARI(Igeneration, int, 100) /* from op.c */
56953603 420
cb68f92d
GS
421PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
422PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
9f7da6d5
NC
423PERLVAR(Inomemok, bool) /* let malloc context handle nomem */
424PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */
7fae4e64 425
d8eceb89
JH
426PERLVAR(Iuid, Uid_t) /* current real user id */
427PERLVAR(Ieuid, Uid_t) /* current effective user id */
428PERLVAR(Igid, Gid_t) /* current real group id */
429PERLVAR(Iegid, Gid_t) /* current effective group id */
bf9cdc68
RG
430PERLVARI(Ian, U32, 0) /* malloc sequence number */
431PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */
bf9cdc68 432PERLVARI(Ievalseq, U32, 0) /* eval sequence number */
0672f40e 433PERLVAR(Iorigalen, U32)
9f7da6d5 434PERLVAR(Iorigenviron, char **)
ca0c25f6 435#ifdef PERL_USES_PL_PIDSTATUS
0672f40e 436PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */
ca0c25f6 437#endif
0672f40e 438PERLVAR(Iosname, char *) /* operating system */
5c728af0 439
0672f40e
GS
440PERLVAR(Isighandlerp, Sighandler_t)
441
232d1c15 442PERLVARA(Ibody_roots, PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
93e68bfb 443
0672f40e
GS
444PERLVAR(Inice_chunk, char *) /* a nice chunk of memory to reuse */
445PERLVAR(Inice_chunk_size, U32) /* how nice the chunk of memory is */
446
9f7da6d5
NC
447PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */
448
0b94c7bb 449PERLVARI(Irunops, runops_proc_t, MEMBER_TO_FPTR(RUNOPS_DEFAULT))
0672f40e 450
954c1994
GS
451/*
452=for apidoc Amn|SV|PL_sv_undef
453This is the C<undef> SV. Always refer to this as C<&PL_sv_undef>.
454
455=for apidoc Amn|SV|PL_sv_no
456This is the C<false> SV. See C<PL_sv_yes>. Always refer to this as
457C<&PL_sv_no>.
458
459=for apidoc Amn|SV|PL_sv_yes
460This is the C<true> SV. See C<PL_sv_no>. Always refer to this as
461C<&PL_sv_yes>.
462
463=cut
464*/
465
0672f40e
GS
466PERLVAR(Isv_undef, SV)
467PERLVAR(Isv_no, SV)
468PERLVAR(Isv_yes, SV)
469
0672f40e
GS
470PERLVAR(Isubname, SV *) /* name of current subroutine */
471
d95e864f 472PERLVAR(Isubline, I32) /* line this subroutine began on */
0672f40e 473PERLVAR(Imin_intro_pending, I32) /* start of vars to introduce */
d95e864f 474
0672f40e
GS
475PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */
476PERLVAR(Ipadix, I32) /* max used index in current "register" pad */
d95e864f 477
0672f40e 478PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */
0672f40e 479
1d7c1841 480PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */
0672f40e
GS
481
482PERLVAR(Idebug, VOL U32) /* flags given to -D switch */
483
f0cb02e3
NC
484/* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen" */
485PERLVARI(Ibreakable_sub_gen, U32, 0)
486
bf9cdc68 487PERLVARI(Iamagic_generation, long, 0)
0672f40e
GS
488
489#ifdef USE_LOCALE_COLLATE
0672f40e 490PERLVAR(Icollation_name,char *) /* Name of current collation */
0672f40e
GS
491PERLVAR(Icollxfrm_base, Size_t) /* Basic overhead in *xfrm() */
492PERLVARI(Icollxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */
9f7da6d5
NC
493PERLVARI(Icollation_ix, U32, 0) /* Collation generation index */
494PERLVARI(Icollation_standard, bool, TRUE)
495 /* Assume simple collation */
0672f40e
GS
496#endif /* USE_LOCALE_COLLATE */
497
9f7da6d5 498
edd11d75 499#if defined (PERL_UTF8_CACHE_ASSERT) || defined (DEBUGGING)
95ca8690 500# define PERL___I -1
9f7da6d5 501#else
7cd91da4 502# define PERL___I 1
9f7da6d5 503#endif
95ca8690
DM
504PERLVARI(Iutf8cache, I8, PERL___I) /* Is the utf8 caching code enabled? */
505#undef PERL___I
506
9f7da6d5 507
0672f40e
GS
508#ifdef USE_LOCALE_NUMERIC
509
0672f40e
GS
510PERLVARI(Inumeric_standard, bool, TRUE)
511 /* Assume simple numerics */
512PERLVARI(Inumeric_local, bool, TRUE)
513 /* Assume local numerics */
9f7da6d5 514PERLVAR(Inumeric_name, char *) /* Name of current numeric locale */
0672f40e
GS
515#endif /* !USE_LOCALE_NUMERIC */
516
517/* utf8 character classes */
518PERLVAR(Iutf8_alnum, SV *)
b8c5462f 519PERLVAR(Iutf8_ascii, SV *)
0672f40e
GS
520PERLVAR(Iutf8_alpha, SV *)
521PERLVAR(Iutf8_space, SV *)
d1eb3177
YO
522PERLVAR(Iutf8_perl_space, SV *)
523PERLVAR(Iutf8_perl_word, SV *)
524PERLVAR(Iutf8_posix_digit, SV *)
b8c5462f
JH
525PERLVAR(Iutf8_cntrl, SV *)
526PERLVAR(Iutf8_graph, SV *)
0672f40e
GS
527PERLVAR(Iutf8_digit, SV *)
528PERLVAR(Iutf8_upper, SV *)
529PERLVAR(Iutf8_lower, SV *)
530PERLVAR(Iutf8_print, SV *)
b8c5462f
JH
531PERLVAR(Iutf8_punct, SV *)
532PERLVAR(Iutf8_xdigit, SV *)
0672f40e
GS
533PERLVAR(Iutf8_mark, SV *)
534PERLVAR(Iutf8_toupper, SV *)
535PERLVAR(Iutf8_totitle, SV *)
536PERLVAR(Iutf8_tolower, SV *)
b4e400f9 537PERLVAR(Iutf8_tofold, SV *)
0672f40e 538PERLVAR(Ilast_swash_hv, HV *)
0672f40e
GS
539PERLVAR(Ilast_swash_tmps, U8 *)
540PERLVAR(Ilast_swash_slen, STRLEN)
9f7da6d5 541PERLVARA(Ilast_swash_key,10, U8)
d95e864f
NC
542PERLVAR(Ilast_swash_klen, U8) /* Only needs to store 0-10 */
543
544#ifdef FCRYPT
545PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */
546#endif
547
f0cb02e3 548PERLVAR(Ipad_reset_pending, bool) /* reset pad on next attempted alloc */
49947b44 549
d95e864f
NC
550PERLVARI(Iglob_index, int, 0)
551
0672f40e 552
5912531f 553PERLVAR(Iparser, yy_parser *) /* current parser state */
12fbd33b 554
c4a30c8c
NC
555/* Array of signal handlers, indexed by signal number, through which the C
556 signal handler dispatches. */
1d7c1841 557PERLVAR(Ipsig_ptr, SV**)
c4a30c8c 558/* Array of names of signals, indexed by signal number, for (re)use as the first
d525a7b2
NC
559 argument to a signal handler. Only one block of memory is allocated for
560 both psig_name and psig_ptr. */
c4a30c8c 561PERLVAR(Ipsig_name, SV**)
1d7c1841 562
c5be433b 563#if defined(PERL_IMPLICIT_SYS)
32e30700 564PERLVAR(IMem, struct IPerlMem*)
1d7c1841
GS
565PERLVAR(IMemShared, struct IPerlMem*)
566PERLVAR(IMemParse, struct IPerlMem*)
32e30700
GS
567PERLVAR(IEnv, struct IPerlEnv*)
568PERLVAR(IStdIO, struct IPerlStdIO*)
569PERLVAR(ILIO, struct IPerlLIO*)
570PERLVAR(IDir, struct IPerlDir*)
571PERLVAR(ISock, struct IPerlSock*)
572PERLVAR(IProc, struct IPerlProc*)
76e3520e 573#endif
1d7c1841 574
1d7c1841 575PERLVAR(Iptr_table, PTR_TBL_t*)
7d49f689 576PERLVARI(Ibeginav_save, AV*, NULL) /* save BEGIN{}s when compiling */
f180df80 577
fdda85ca 578PERLVAR(Ibody_arenas, void*) /* pointer to list of body-arenas */
93e68bfb 579
d95e864f 580
a453c169
JH
581#ifdef USE_LOCALE_NUMERIC
582
583PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */
584
585#endif
ce08f86c 586
1fcf4c12 587#if defined(USE_ITHREADS)
e6853197
NC
588PERLVAR(Iregex_pad, SV**) /* Shortcut into the array of
589 regex_padav */
590PERLVAR(Iregex_padav, AV*) /* All regex objects, indexed via the
591 values in op_pmoffset of pmop.
402d2eb1
NC
592 Entry 0 is an SV whose PV is a
593 "packed" list of IVs listing
e6853197 594 the now-free slots in the array */
1fcf4c12
AB
595#endif
596
ea68fd67
NC
597#ifdef USE_REENTRANT_API
598PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */
f5a82810
JH
599#endif
600
53e06cf0
SC
601PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */
602PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */
19e8ce8e 603
a1ea730d
NIS
604#ifdef PERLIO_LAYERS
605PERLVARI(Iperlio, PerlIO *,NULL)
3a1ee7e8
NIS
606PERLVARI(Iknown_layers, PerlIO_list_t *,NULL)
607PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL)
a1ea730d
NIS
608#endif
609
a0714e2c 610PERLVARI(Iencoding, SV*, NULL) /* character encoding */
0a378802 611
128e8167 612PERLVAR(Idebug_pad, struct perl_debug_pad) /* always needed because of the re extension */
ce333219 613
82686b01
JH
614PERLVAR(Iutf8_idstart, SV *)
615PERLVAR(Iutf8_idcont, SV *)
616
147f47de
AB
617PERLVAR(Isort_RealCmp, SVCOMPARE_t)
618
7d49f689 619PERLVARI(Icheckav_save, AV*, NULL) /* save CHECK{}s when compiling */
3c10abe3 620PERLVARI(Iunitcheckav_save, AV*, NULL) /* save UNITCHECK{}s when compiling */
ece599bd 621
5311654c
JH
622PERLVARI(Iclocktick, long, 0) /* this many times() ticks in a second */
623
edab1aa3
JH
624PERLVARI(Iin_load_module, int, 0) /* to prevent recursions in PerlIO_find_layer */
625
a05d7ebb
JH
626PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
627
4ffa73a3
JH
628PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */
629
57c6e6d2
JH
630PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions */
631
9f7da6d5
NC
632PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */
633
15a5279a
JH
634/* Hooks to shared SVs and locks. */
635PERLVARI(Isharehook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d5b2b27b 636PERLVARI(Ilockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d0647d4e
NC
637#ifdef NO_MATHOMS
638# define PERL_UNLOCK_HOOK Perl_sv_nosharing
639#else
640/* This reference ensures that the mathoms are linked with perl */
641# define PERL_UNLOCK_HOOK Perl_sv_nounlocking
642#endif
643PERLVARI(Iunlockhook, share_proc_t, MEMBER_TO_FPTR(PERL_UNLOCK_HOOK))
644
15a5279a
JH
645PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
646
504f80c1
JH
647PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */
648
008fb0c0 649PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */
4b5190b5 650
ba6d381e 651PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */
f16dd614 652
ffee3ff6
NC
653/* The last unconditional member of the interpreter structure when 5.10.0 was
654 released. The offset of the end of this is baked into a global variable in
655 any shared perl library which will allow a sanity test in future perl
656 releases. */
657#define PERL_LAST_5_10_0_INTERP_MEMBER Iisarev
658
f16dd614 659#ifdef PERL_IMPLICIT_CONTEXT
4c901e72 660PERLVARI(Imy_cxt_size, int, 0) /* size of PL_my_cxt_list */
f16dd614 661PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
ba6d381e 662# ifdef PERL_GLOBAL_STRUCT_PRIVATE
53d44271 663PERLVARI(Imy_cxt_keys, const char **, NULL) /* per-module array of pointers to MY_CXT_KEY constants */
ba6d381e 664# endif
f16dd614
DM
665#endif
666
7cb608b5
NC
667#ifdef PERL_TRACK_MEMPOOL
668/* For use with the memory debugging code in util.c */
669PERLVAR(Imemory_debug_header, struct perl_memory_debug_header)
670#endif
671
ba6d381e
NC
672#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
673/* File descriptor to talk to the child which dumps scalars. */
674PERLVARI(Idumper_fd, int, -1)
675#endif
676
677/* Stores the PPID */
678#ifdef THREADS_HAVE_PIDS
679PERLVARI(Ippid, IV, 0)
680#endif
681
682#ifdef PERL_MAD
683PERLVARI(Imadskills, bool, FALSE) /* preserve all syntactic info */
684 /* (MAD = Misc Attribute Decoration) */
685PERLVARI(Ixmlfp, PerlIO *,NULL)
686#endif
687
688#ifdef PL_OP_SLAB_ALLOC
689PERLVAR(IOpPtr,I32 **)
690PERLVARI(IOpSpace,I32,0)
691PERLVAR(IOpSlab,I32 *)
692#endif
693
f1fac472
NC
694#ifdef PERL_DEBUG_READONLY_OPS
695PERLVARI(Islabs, I32**, NULL) /* Array of slabs that have been allocated */
696PERLVARI(Islab_count, U32, 0) /* Size of the array */
697#endif
698
eba16661
JH
699/* Can shared object be destroyed */
700PERLVARI(Idestroyhook, destroyable_proc_t, MEMBER_TO_FPTR(Perl_sv_destroyable))
701
d7a2c63c
MHM
702#ifdef DEBUG_LEAKING_SCALARS
703PERLVARI(Isv_serial, U32, 0) /* SV serial number, used in sv.c */
704#endif
705
a3e6e81e
NC
706/* Register of known Method Resolution Orders.
707 What this actually points to is an implementation detail (it may change to
708 a structure incorporating a reference count - use mro_get_from_name to
709 retrieve a C<struct mro_alg *> */
710PERLVAR(Iregistered_mros, HV *)
711
157b3822
NC
712/* If you are adding a U8 or U16, check to see if there are 'Space' comments
713 * above on where there are gaps which currently will be structure padding. */
d95e864f
NC
714
715/* Within a stable branch, new variables must be added to the very end, before
716 * this comment, for binary compatibility (the offsets of the old members must
717 * not change).
b83cd129 718 * (Don't forget to add your variable also to perl_clone()!)
e3acbfda 719 * XSUB.h provides wrapper functions via perlapi.h that make this
b83cd129
JH
720 * irrelevant, but not all code may be expected to #include XSUB.h.
721 */