This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Init PL_cop_seqmax to a high value under DEBUGGING
[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
d7cb65f2 18 * Don't forget to re-run regen/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 */
f2b88940
NC
46/* name of the scopes we've ENTERed. Only used with -DDEBUGGING, but needs to be
47 present always, as -DDEUBGGING must be binary compatible with non. */
48PERLVARI(Iscopestack_name, const char * *, NULL)
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)
3ad73efd 61PERLVAR(Imodcount, I32) /* how much op_lvalue()ification in
907b3e23
DM
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? */
febb3a6d 129PERLVAR(Irestartjmpenv, JMPENV *) /* target frame for longjmp in die */
910e0671 130PERLVAR(Icurcop, COP *)
907b3e23
DM
131PERLVAR(Icurstack, AV *) /* THE STACK */
132PERLVAR(Icurstackinfo, PERL_SI *) /* current stack + context */
133PERLVAR(Imainstack, AV *) /* the stack when nothing funny is
134 happening */
135
136PERLVAR(Itop_env, JMPENV *) /* ptr to current sigjmp environment */
137PERLVAR(Istart_env, JMPENV) /* empty startup sigjmp environment */
138PERLVARI(Ierrors, SV *, NULL) /* outstanding queued errors */
139
140/* statics "owned" by various functions */
907b3e23
DM
141PERLVAR(Ihv_fetch_ent_mh, HE*) /* owned by hv_fetch_ent() */
142
907b3e23
DM
143PERLVAR(Ilastgotoprobe, OP*) /* from pp_ctl.c */
144
145/* sort stuff */
146PERLVAR(Isortcop, OP *) /* user defined sort routine */
147PERLVAR(Isortstash, HV *) /* which is in some package or other */
148PERLVAR(Ifirstgv, GV *) /* $a */
149PERLVAR(Isecondgv, GV *) /* $b */
150
151/* float buffer */
152PERLVAR(Iefloatbuf, char *)
153PERLVAR(Iefloatsize, STRLEN)
154
155/* regex stuff */
156
157PERLVAR(Iscreamfirst, I32 *)
158PERLVAR(Iscreamnext, I32 *)
159PERLVAR(Ilastscream, SV *)
160
161PERLVAR(Ireg_state, struct re_save_state)
162
163PERLVAR(Iregdummy, regnode) /* from regcomp.c */
164
165PERLVARI(Idumpindent, U16, 4) /* number of blanks per dump
166 indentation level */
167
157b3822
NC
168
169PERLVAR(Iutf8locale, bool) /* utf8 locale detected */
170PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
907b3e23
DM
171
172PERLVARA(Icolors,6, char *) /* from regcomp.c */
173
9ea12537
Z
174/*
175=for apidoc Amn|peep_t|PL_peepp
176
177Pointer to the per-subroutine peephole optimiser. This is a function
178that gets called at the end of compilation of a Perl subroutine (or
179equivalently independent piece of Perl code) to perform fixups of
180some ops and to perform small-scale optimisations. The function is
181called once for each subroutine that is compiled, and is passed, as sole
182parameter, a pointer to the op that is the entry point to the subroutine.
183It modifies the op tree in place.
184
185The peephole optimiser should never be completely replaced. Rather,
186add code to it by wrapping the existing optimiser. The basic way to do
187this can be seen in L<perlguts/Compile pass 3: peephole optimization>.
188If the new code wishes to operate on ops throughout the subroutine's
189structure, rather than just at the top level, it is likely to be more
190convenient to wrap the L</PL_rpeepp> hook.
191
192=cut
193*/
194
ef69c8fc 195PERLVARI(Ipeepp, peep_t, Perl_peep)
9ea12537
Z
196
197/*
198=for apidoc Amn|peep_t|PL_rpeepp
199
200Pointer to the recursive peephole optimiser. This is a function
201that gets called at the end of compilation of a Perl subroutine (or
202equivalently independent piece of Perl code) to perform fixups of some
203ops and to perform small-scale optimisations. The function is called
204once for each chain of ops linked through their C<op_next> fields;
205it is recursively called to handle each side chain. It is passed, as
206sole parameter, a pointer to the op that is at the head of the chain.
207It modifies the op tree in place.
208
209The peephole optimiser should never be completely replaced. Rather,
210add code to it by wrapping the existing optimiser. The basic way to do
211this can be seen in L<perlguts/Compile pass 3: peephole optimization>.
212If the new code wishes to operate only on ops at a subroutine's top level,
213rather than throughout the structure, it is likely to be more convenient
214to wrap the L</PL_peepp> hook.
215
216=cut
217*/
218
ef69c8fc 219PERLVARI(Irpeepp, peep_t, Perl_rpeep)
907b3e23 220
2f175318
VP
221/*
222=for apidoc Amn|Perl_ophook_t|PL_opfreehook
223
224When 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.
225This allows extensions to free any extra attribute they have locally attached to an OP.
226It is also assured to first fire for the parent OP and then for its kids.
227
228When 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.
229
230=cut
231*/
232
799dfa8f 233PERLVARI(Iopfreehook, Perl_ophook_t, 0) /* op_free() hook */
f37b8c3f 234
907b3e23
DM
235PERLVARI(Imaxscream, I32, -1)
236PERLVARI(Ireginterp_cnt,I32, 0) /* Whether "Regexp" was interpolated. */
237PERLVARI(Iwatchaddr, char **, 0)
238PERLVAR(Iwatchok, char *)
239
240/* the currently active slab in a chain of slabs of regmatch states,
241 * and the currently active state within that slab */
242
243PERLVARI(Iregmatch_slab, regmatch_slab *, NULL)
244PERLVAR(Iregmatch_state, regmatch_state *)
245
907b3e23 246/* Put anything new that is pointer aligned here. */
d95e864f 247
907b3e23
DM
248PERLVAR(Idelaymagic, U16) /* ($<,$>) = ... */
249PERLVAR(Ilocalizing, U8) /* are we processing a local() list? */
250PERLVAR(Icolorset, bool) /* from regcomp.c */
910e0671 251PERLVAR(Iin_eval, U8) /* trap "fatal" errors? */
907b3e23 252PERLVAR(Itainted, bool) /* using variables controlled by $< */
d95e864f 253
9ebf26ad
FR
254/* current phase the interpreter is in */
255PERLVARI(Iphase, enum perl_phase, PERL_PHASE_CONSTRUCT)
256
d95e864f
NC
257/* This value may be set when embedding for full cleanup */
258/* 0=none, 1=full, 2=full with checks */
801627e8
NC
259/* mod_perl is special, and also assigns a meaning -1 */
260PERLVARI(Iperl_destruct_level, signed char, 0)
d95e864f
NC
261
262PERLVAR(Iperldb, U32)
263
49f531da 264/* pseudo environmental stuff */
d95e864f 265PERLVAR(Iorigargc, int)
cb68f92d
GS
266PERLVAR(Iorigargv, char **)
267PERLVAR(Ienvgv, GV *)
cb68f92d 268PERLVAR(Iincgv, GV *)
b3ac6de7 269PERLVAR(Ihintgv, GV *)
cb68f92d
GS
270PERLVAR(Iorigfilename, char *)
271PERLVAR(Idiehook, SV *)
272PERLVAR(Iwarnhook, SV *)
1d7c1841
GS
273
274/* switches */
a7cb1f99 275PERLVAR(Ipatchlevel, SV *)
1e8125c6 276PERLVAR(Iapiversion, SV *)
27da23d5 277PERLVAR(Ilocalpatches, const char * const *)
dd374669 278PERLVARI(Isplitstr, const char *, " ")
9f7da6d5
NC
279
280PERLVAR(Iminus_c, bool)
cb68f92d
GS
281PERLVAR(Iminus_n, bool)
282PERLVAR(Iminus_p, bool)
283PERLVAR(Iminus_l, bool)
284PERLVAR(Iminus_a, bool)
285PERLVAR(Iminus_F, bool)
286PERLVAR(Idoswitches, bool)
bc9b29db 287PERLVAR(Iminus_E, bool)
954c1994
GS
288
289/*
ccfc67b7 290
2eb25c99 291=for apidoc mn|bool|PL_dowarn
954c1994
GS
292
293The C variable which corresponds to Perl's $^W warning variable.
294
295=cut
296*/
297
d41ff1b8 298PERLVAR(Idowarn, U8)
07455d8f 299 /* Space for a U8 */
49f531da 300PERLVAR(Isawampersand, bool) /* must save all match strings */
cb68f92d 301PERLVAR(Iunsafe, bool)
9f7da6d5
NC
302PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */
303PERLVAR(Isrand_called, bool)
304/* Part of internal state, but makes the 16th 1 byte variable in a row. */
305PERLVAR(Itainting, bool) /* doing taint checks */
4fa7c2bf 306PERLVARI(Iin_load_module, bool, FALSE) /* to prevent recursions in PerlIO_find_layer */
cb68f92d
GS
307PERLVAR(Iinplace, char *)
308PERLVAR(Ie_script, SV *)
49f531da
NIS
309
310/* magical thingies */
311PERLVAR(Ibasetime, Time_t) /* $^T */
312PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1
NIS
313
314
cb68f92d
GS
315PERLVARI(Imaxsysfd, I32, MAXSYSFD)
316 /* top fd to pass to subprocesses */
49f531da
NIS
317PERLVAR(Istatusvalue, I32) /* $? */
318#ifdef VMS
cb68f92d 319PERLVAR(Istatusvalue_vms,U32)
e5218da5
GA
320#else
321PERLVAR(Istatusvalue_posix,I32)
49f531da
NIS
322#endif
323
157b3822
NC
324PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */
325PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */
326
49f531da 327/* shortcuts to various I/O objects */
16d811d4
DM
328PERLVAR(Istdingv, GV *) /* *STDIN */
329PERLVAR(Istderrgv, GV *) /* *STDERR */
cb68f92d 330PERLVAR(Idefgv, GV *)
16d811d4
DM
331PERLVAR(Iargvgv, GV *) /* *ARGV */
332PERLVAR(Iargvoutgv, GV *) /* *ARGVOUT */
1d7c1841 333PERLVAR(Iargvout_stack, AV *)
49f531da
NIS
334
335/* shortcuts to regexp stuff */
16d811d4 336PERLVAR(Ireplgv, GV *) /* *^R */
49f531da
NIS
337
338/* shortcuts to misc objects */
16d811d4 339PERLVAR(Ierrgv, GV *) /* *@ */
49f531da
NIS
340
341/* shortcuts to debugging objects */
16d811d4
DM
342PERLVAR(IDBgv, GV *) /* *DB::DB */
343PERLVAR(IDBline, GV *) /* *DB::line */
954c1994
GS
344
345/*
2eb25c99 346=for apidoc mn|GV *|PL_DBsub
954c1994
GS
347When Perl is run in debugging mode, with the B<-d> switch, this GV contains
348the SV which holds the name of the sub being debugged. This is the C
349variable which corresponds to Perl's $DB::sub variable. See
350C<PL_DBsingle>.
351
2eb25c99 352=for apidoc mn|SV *|PL_DBsingle
954c1994 353When Perl is run in debugging mode, with the B<-d> switch, this SV is a
7889fe52 354boolean which indicates whether subs are being single-stepped.
954c1994
GS
355Single-stepping is automatically turned on after every step. This is the C
356variable which corresponds to Perl's $DB::single variable. See
357C<PL_DBsub>.
358
2eb25c99 359=for apidoc mn|SV *|PL_DBtrace
954c1994
GS
360Trace variable used when Perl is run in debugging mode, with the B<-d>
361switch. This is the C variable which corresponds to Perl's $DB::trace
362variable. See C<PL_DBsingle>.
363
364=cut
365*/
366
16d811d4
DM
367PERLVAR(IDBsub, GV *) /* *DB::sub */
368PERLVAR(IDBsingle, SV *) /* $DB::single */
369PERLVAR(IDBtrace, SV *) /* $DB::trace */
370PERLVAR(IDBsignal, SV *) /* $DB::signal */
49f531da
NIS
371PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
372
373/* symbol tables */
49f531da
NIS
374PERLVAR(Idebstash, HV *) /* symbol table for perldb package */
375PERLVAR(Iglobalstash, HV *) /* global keyword overrides imported here */
376PERLVAR(Icurstname, SV *) /* name of current package */
377PERLVAR(Ibeginav, AV *) /* names of BEGIN subroutines */
d4cce5f1 378PERLVAR(Iendav, AV *) /* names of END subroutines */
3c10abe3 379PERLVAR(Iunitcheckav, AV *) /* names of UNITCHECK subroutines */
7d30b5c4 380PERLVAR(Icheckav, AV *) /* names of CHECK subroutines */
49f531da
NIS
381PERLVAR(Iinitav, AV *) /* names of INIT subroutines */
382PERLVAR(Istrtab, HV *) /* shared string table */
005a453c 383PERLVARI(Isub_generation,U32,1) /* incr to invalidate method cache */
49f531da 384
9f7da6d5
NC
385/* funky return mechanisms */
386PERLVAR(Iforkprocess, int) /* so do_open |- can return proc# */
387
49f531da 388/* memory management */
49f531da
NIS
389PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
390PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
391PERLVAR(Isv_root, SV*) /* storage for SVs belonging to interp */
392PERLVAR(Isv_arenaroot, SV*) /* list of areas for garbage collection */
393
49f531da 394/* subprocess state */
d4cce5f1 395PERLVAR(Ifdpid, AV *) /* keep fd-to-pid mappings for my_popen */
49f531da
NIS
396
397/* internal state */
49f531da
NIS
398PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
399
49f531da 400/* current interpreter roots */
cb68f92d
GS
401PERLVAR(Imain_cv, CV *)
402PERLVAR(Imain_root, OP *)
403PERLVAR(Imain_start, OP *)
404PERLVAR(Ieval_root, OP *)
405PERLVAR(Ieval_start, OP *)
49f531da
NIS
406
407/* runtime control stuff */
cb68f92d 408PERLVARI(Icurcopdb, COP *, NULL)
49f531da 409
49f531da
NIS
410PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
411PERLVAR(Ilastfd, int) /* what to preserve mode on */
412PERLVAR(Ioldname, char *) /* what to preserve mode on */
360ea906 413PERLVAR(IArgv, const char **) /* stuff to free from do_aexec, vfork safe */
d4cce5f1 414PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */
00accf8d
NC
415/* Elements in this array have ';' appended and are injected as a single line
416 into the tokeniser. You can't put any (literal) newlines into any program
417 you stuff in into this array, as the point where it's injected is expecting
418 a single physical line. */
cb68f92d 419PERLVAR(Ipreambleav, AV *)
cb68f92d 420PERLVAR(Imess_sv, SV *)
7889fe52 421PERLVAR(Iors_sv, SV *) /* output record separator $\ */
71eebe1e
NC
422/* statics moved here for shared library purposes */
423PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */
a4021b77 424PERLVARI(Icv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */
157b3822 425PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */
d95e864f
NC
426PERLVARI(Ilaststype, U16, OP_STAT)
427PERLVARI(Ilaststatval, int, -1)
d4cce5f1 428
4b556e6c 429/* interpreter atexit processing */
d95e864f 430PERLVARI(Iexitlistlen, I32, 0) /* length of same */
cb68f92d
GS
431PERLVARI(Iexitlist, PerlExitListEntry *, NULL)
432 /* list of exit functions */
954c1994
GS
433
434/*
435=for apidoc Amn|HV*|PL_modglobal
436
7889fe52 437C<PL_modglobal> is a general purpose, interpreter global HV for use by
954c1994 438extensions that need to keep information on a per-interpreter basis.
7889fe52
NIS
439In a pinch, it can also be used as a symbol table for extensions
440to share data among each other. It is a good idea to use keys
954c1994
GS
441prefixed by the package name of the extension that owns the data.
442
443=cut
444*/
445
cb68f92d
GS
446PERLVAR(Imodglobal, HV *) /* per-interp module data */
447
448/* these used to be in global before 5.004_68 */
449PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */
cb68f92d
GS
450
451PERLVAR(Icompiling, COP) /* compiling/done executing marker */
452
453PERLVAR(Icompcv, CV *) /* currently compiling subroutine */
454PERLVAR(Icomppad, AV *) /* storage for lexically scoped temporaries */
455PERLVAR(Icomppad_name, AV *) /* variable names for "my" variables */
456PERLVAR(Icomppad_name_fill, I32) /* last "introduced" variable offset */
457PERLVAR(Icomppad_name_floor, I32) /* start of vars in innermost block */
4b556e6c
JD
458
459#ifdef HAVE_INTERP_INTERN
cb68f92d
GS
460PERLVAR(Isys_intern, struct interp_intern)
461 /* platform internals */
4b556e6c
JD
462#endif
463
7fae4e64 464/* more statics moved here */
7fae4e64 465PERLVAR(IDBcv, CV *) /* from perl.c */
9f7da6d5 466PERLVARI(Igeneration, int, 100) /* from op.c */
56953603 467
cb68f92d 468PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
57ef47cc 469PERLVARI(Iin_clean_all, bool, FALSE) /* ptrs to freed SVs now legal */
9f7da6d5
NC
470PERLVAR(Inomemok, bool) /* let malloc context handle nomem */
471PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */
7fae4e64 472
d8eceb89
JH
473PERLVAR(Iuid, Uid_t) /* current real user id */
474PERLVAR(Ieuid, Uid_t) /* current effective user id */
475PERLVAR(Igid, Gid_t) /* current real group id */
476PERLVAR(Iegid, Gid_t) /* current effective group id */
bf9cdc68 477PERLVARI(Ian, U32, 0) /* malloc sequence number */
be2b6a89
DM
478
479#ifdef DEBUGGING
480 /* exercise wrap-around */
481 #define PERL_COP_SEQMAX (U32_MAX-50)
482#else
483 #define PERL_COP_SEQMAX 0
484#endif
485PERLVARI(Icop_seqmax, U32, PERL_COP_SEQMAX) /* statement sequence number */
486#undef PERL_COP_SEQMAX
487
bf9cdc68 488PERLVARI(Ievalseq, U32, 0) /* eval sequence number */
0672f40e 489PERLVAR(Iorigalen, U32)
9f7da6d5 490PERLVAR(Iorigenviron, char **)
ca0c25f6 491#ifdef PERL_USES_PL_PIDSTATUS
0672f40e 492PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */
ca0c25f6 493#endif
0672f40e 494PERLVAR(Iosname, char *) /* operating system */
5c728af0 495
0672f40e
GS
496PERLVAR(Isighandlerp, Sighandler_t)
497
232d1c15 498PERLVARA(Ibody_roots, PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
93e68bfb 499
ed29bbba 500PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
0672f40e 501
9f7da6d5
NC
502PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */
503
ef69c8fc 504PERLVARI(Irunops, runops_proc_t, RUNOPS_DEFAULT)
0672f40e 505
954c1994
GS
506/*
507=for apidoc Amn|SV|PL_sv_undef
508This is the C<undef> SV. Always refer to this as C<&PL_sv_undef>.
509
510=for apidoc Amn|SV|PL_sv_no
511This is the C<false> SV. See C<PL_sv_yes>. Always refer to this as
512C<&PL_sv_no>.
513
514=for apidoc Amn|SV|PL_sv_yes
515This is the C<true> SV. See C<PL_sv_no>. Always refer to this as
516C<&PL_sv_yes>.
517
518=cut
519*/
520
0672f40e
GS
521PERLVAR(Isv_undef, SV)
522PERLVAR(Isv_no, SV)
523PERLVAR(Isv_yes, SV)
524
0672f40e
GS
525PERLVAR(Isubname, SV *) /* name of current subroutine */
526
d95e864f 527PERLVAR(Isubline, I32) /* line this subroutine began on */
0672f40e 528PERLVAR(Imin_intro_pending, I32) /* start of vars to introduce */
d95e864f 529
0672f40e
GS
530PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */
531PERLVAR(Ipadix, I32) /* max used index in current "register" pad */
d95e864f 532
0672f40e 533PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */
0672f40e 534
1d7c1841 535PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */
0672f40e
GS
536
537PERLVAR(Idebug, VOL U32) /* flags given to -D switch */
538
f0cb02e3
NC
539/* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen" */
540PERLVARI(Ibreakable_sub_gen, U32, 0)
541
bf9cdc68 542PERLVARI(Iamagic_generation, long, 0)
0672f40e
GS
543
544#ifdef USE_LOCALE_COLLATE
0672f40e 545PERLVAR(Icollation_name,char *) /* Name of current collation */
0672f40e
GS
546PERLVAR(Icollxfrm_base, Size_t) /* Basic overhead in *xfrm() */
547PERLVARI(Icollxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */
9f7da6d5
NC
548PERLVARI(Icollation_ix, U32, 0) /* Collation generation index */
549PERLVARI(Icollation_standard, bool, TRUE)
550 /* Assume simple collation */
0672f40e
GS
551#endif /* USE_LOCALE_COLLATE */
552
9f7da6d5 553
edd11d75 554#if defined (PERL_UTF8_CACHE_ASSERT) || defined (DEBUGGING)
95ca8690 555# define PERL___I -1
9f7da6d5 556#else
7cd91da4 557# define PERL___I 1
9f7da6d5 558#endif
95ca8690
DM
559PERLVARI(Iutf8cache, I8, PERL___I) /* Is the utf8 caching code enabled? */
560#undef PERL___I
561
9f7da6d5 562
0672f40e
GS
563#ifdef USE_LOCALE_NUMERIC
564
0672f40e
GS
565PERLVARI(Inumeric_standard, bool, TRUE)
566 /* Assume simple numerics */
567PERLVARI(Inumeric_local, bool, TRUE)
568 /* Assume local numerics */
9f7da6d5 569PERLVAR(Inumeric_name, char *) /* Name of current numeric locale */
0672f40e
GS
570#endif /* !USE_LOCALE_NUMERIC */
571
572/* utf8 character classes */
573PERLVAR(Iutf8_alnum, SV *)
b8c5462f 574PERLVAR(Iutf8_ascii, SV *)
0672f40e
GS
575PERLVAR(Iutf8_alpha, SV *)
576PERLVAR(Iutf8_space, SV *)
d1eb3177
YO
577PERLVAR(Iutf8_perl_space, SV *)
578PERLVAR(Iutf8_perl_word, SV *)
579PERLVAR(Iutf8_posix_digit, SV *)
b8c5462f
JH
580PERLVAR(Iutf8_cntrl, SV *)
581PERLVAR(Iutf8_graph, SV *)
0672f40e
GS
582PERLVAR(Iutf8_digit, SV *)
583PERLVAR(Iutf8_upper, SV *)
584PERLVAR(Iutf8_lower, SV *)
585PERLVAR(Iutf8_print, SV *)
b8c5462f
JH
586PERLVAR(Iutf8_punct, SV *)
587PERLVAR(Iutf8_xdigit, SV *)
0672f40e 588PERLVAR(Iutf8_mark, SV *)
37e2e78e
KW
589PERLVAR(Iutf8_X_begin, SV *)
590PERLVAR(Iutf8_X_extend, SV *)
591PERLVAR(Iutf8_X_prepend, SV *)
592PERLVAR(Iutf8_X_non_hangul, SV *)
593PERLVAR(Iutf8_X_L, SV *)
594PERLVAR(Iutf8_X_LV, SV *)
595PERLVAR(Iutf8_X_LVT, SV *)
596PERLVAR(Iutf8_X_T, SV *)
597PERLVAR(Iutf8_X_V, SV *)
598PERLVAR(Iutf8_X_LV_LVT_V, SV *)
0672f40e
GS
599PERLVAR(Iutf8_toupper, SV *)
600PERLVAR(Iutf8_totitle, SV *)
601PERLVAR(Iutf8_tolower, SV *)
b4e400f9 602PERLVAR(Iutf8_tofold, SV *)
0672f40e 603PERLVAR(Ilast_swash_hv, HV *)
0672f40e
GS
604PERLVAR(Ilast_swash_tmps, U8 *)
605PERLVAR(Ilast_swash_slen, STRLEN)
9f7da6d5 606PERLVARA(Ilast_swash_key,10, U8)
d95e864f
NC
607PERLVAR(Ilast_swash_klen, U8) /* Only needs to store 0-10 */
608
609#ifdef FCRYPT
610PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */
611#endif
612
f0cb02e3 613PERLVAR(Ipad_reset_pending, bool) /* reset pad on next attempted alloc */
49947b44 614
d95e864f
NC
615PERLVARI(Iglob_index, int, 0)
616
0672f40e 617
5912531f 618PERLVAR(Iparser, yy_parser *) /* current parser state */
12fbd33b 619
c4a30c8c
NC
620/* Array of signal handlers, indexed by signal number, through which the C
621 signal handler dispatches. */
1d7c1841 622PERLVAR(Ipsig_ptr, SV**)
c4a30c8c 623/* Array of names of signals, indexed by signal number, for (re)use as the first
d525a7b2
NC
624 argument to a signal handler. Only one block of memory is allocated for
625 both psig_name and psig_ptr. */
c4a30c8c 626PERLVAR(Ipsig_name, SV**)
1d7c1841 627
c5be433b 628#if defined(PERL_IMPLICIT_SYS)
32e30700 629PERLVAR(IMem, struct IPerlMem*)
1d7c1841
GS
630PERLVAR(IMemShared, struct IPerlMem*)
631PERLVAR(IMemParse, struct IPerlMem*)
32e30700
GS
632PERLVAR(IEnv, struct IPerlEnv*)
633PERLVAR(IStdIO, struct IPerlStdIO*)
634PERLVAR(ILIO, struct IPerlLIO*)
635PERLVAR(IDir, struct IPerlDir*)
636PERLVAR(ISock, struct IPerlSock*)
637PERLVAR(IProc, struct IPerlProc*)
76e3520e 638#endif
1d7c1841 639
1d7c1841 640PERLVAR(Iptr_table, PTR_TBL_t*)
7d49f689 641PERLVARI(Ibeginav_save, AV*, NULL) /* save BEGIN{}s when compiling */
f180df80 642
fdda85ca 643PERLVAR(Ibody_arenas, void*) /* pointer to list of body-arenas */
93e68bfb 644
d95e864f 645
a453c169
JH
646#ifdef USE_LOCALE_NUMERIC
647
648PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */
649
650#endif
ce08f86c 651
1fcf4c12 652#if defined(USE_ITHREADS)
e6853197
NC
653PERLVAR(Iregex_pad, SV**) /* Shortcut into the array of
654 regex_padav */
655PERLVAR(Iregex_padav, AV*) /* All regex objects, indexed via the
656 values in op_pmoffset of pmop.
402d2eb1
NC
657 Entry 0 is an SV whose PV is a
658 "packed" list of IVs listing
e6853197 659 the now-free slots in the array */
1fcf4c12
AB
660#endif
661
ea68fd67
NC
662#ifdef USE_REENTRANT_API
663PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */
f5a82810
JH
664#endif
665
53e06cf0
SC
666PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */
667PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */
19e8ce8e 668
a1ea730d 669#ifdef PERLIO_LAYERS
303f2dc3 670PERLVARI(Iperlio, PerlIOl *,NULL)
3a1ee7e8
NIS
671PERLVARI(Iknown_layers, PerlIO_list_t *,NULL)
672PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL)
a1ea730d
NIS
673#endif
674
a0714e2c 675PERLVARI(Iencoding, SV*, NULL) /* character encoding */
0a378802 676
128e8167 677PERLVAR(Idebug_pad, struct perl_debug_pad) /* always needed because of the re extension */
ce333219 678
82686b01
JH
679PERLVAR(Iutf8_idstart, SV *)
680PERLVAR(Iutf8_idcont, SV *)
681
147f47de
AB
682PERLVAR(Isort_RealCmp, SVCOMPARE_t)
683
7d49f689 684PERLVARI(Icheckav_save, AV*, NULL) /* save CHECK{}s when compiling */
3c10abe3 685PERLVARI(Iunitcheckav_save, AV*, NULL) /* save UNITCHECK{}s when compiling */
ece599bd 686
5311654c
JH
687PERLVARI(Iclocktick, long, 0) /* this many times() ticks in a second */
688
4ffa73a3
JH
689PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */
690
57c6e6d2
JH
691PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions */
692
9f7da6d5
NC
693PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */
694
15a5279a 695/* Hooks to shared SVs and locks. */
ef69c8fc
BM
696PERLVARI(Isharehook, share_proc_t, Perl_sv_nosharing)
697PERLVARI(Ilockhook, share_proc_t, Perl_sv_nosharing)
d0647d4e
NC
698#ifdef NO_MATHOMS
699# define PERL_UNLOCK_HOOK Perl_sv_nosharing
700#else
701/* This reference ensures that the mathoms are linked with perl */
702# define PERL_UNLOCK_HOOK Perl_sv_nounlocking
703#endif
ef69c8fc 704PERLVARI(Iunlockhook, share_proc_t, PERL_UNLOCK_HOOK)
d0647d4e 705
ef69c8fc 706PERLVARI(Ithreadhook, thrhook_proc_t, Perl_nothreadhook)
15a5279a 707
ef69c8fc 708PERLVARI(Isignalhook, despatch_signals_proc_t, Perl_despatch_signals)
92f022bb 709
504f80c1
JH
710PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */
711
008fb0c0 712PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */
4b5190b5 713
ba6d381e 714PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */
f16dd614 715
ffee3ff6
NC
716/* The last unconditional member of the interpreter structure when 5.10.0 was
717 released. The offset of the end of this is baked into a global variable in
718 any shared perl library which will allow a sanity test in future perl
719 releases. */
720#define PERL_LAST_5_10_0_INTERP_MEMBER Iisarev
721
f16dd614 722#ifdef PERL_IMPLICIT_CONTEXT
4c901e72 723PERLVARI(Imy_cxt_size, int, 0) /* size of PL_my_cxt_list */
f16dd614 724PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
ba6d381e 725# ifdef PERL_GLOBAL_STRUCT_PRIVATE
53d44271 726PERLVARI(Imy_cxt_keys, const char **, NULL) /* per-module array of pointers to MY_CXT_KEY constants */
ba6d381e 727# endif
f16dd614
DM
728#endif
729
7cb608b5
NC
730#ifdef PERL_TRACK_MEMPOOL
731/* For use with the memory debugging code in util.c */
732PERLVAR(Imemory_debug_header, struct perl_memory_debug_header)
733#endif
734
ba6d381e
NC
735#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
736/* File descriptor to talk to the child which dumps scalars. */
737PERLVARI(Idumper_fd, int, -1)
738#endif
739
740/* Stores the PPID */
741#ifdef THREADS_HAVE_PIDS
742PERLVARI(Ippid, IV, 0)
743#endif
744
745#ifdef PERL_MAD
746PERLVARI(Imadskills, bool, FALSE) /* preserve all syntactic info */
747 /* (MAD = Misc Attribute Decoration) */
748PERLVARI(Ixmlfp, PerlIO *,NULL)
749#endif
750
751#ifdef PL_OP_SLAB_ALLOC
752PERLVAR(IOpPtr,I32 **)
753PERLVARI(IOpSpace,I32,0)
754PERLVAR(IOpSlab,I32 *)
755#endif
756
f1fac472
NC
757#ifdef PERL_DEBUG_READONLY_OPS
758PERLVARI(Islabs, I32**, NULL) /* Array of slabs that have been allocated */
759PERLVARI(Islab_count, U32, 0) /* Size of the array */
760#endif
761
eba16661 762/* Can shared object be destroyed */
ef69c8fc 763PERLVARI(Idestroyhook, destroyable_proc_t, Perl_sv_destroyable)
eba16661 764
d7a2c63c
MHM
765#ifdef DEBUG_LEAKING_SCALARS
766PERLVARI(Isv_serial, U32, 0) /* SV serial number, used in sv.c */
767#endif
768
a3e6e81e
NC
769/* Register of known Method Resolution Orders.
770 What this actually points to is an implementation detail (it may change to
771 a structure incorporating a reference count - use mro_get_from_name to
772 retrieve a C<struct mro_alg *> */
773PERLVAR(Iregistered_mros, HV *)
774
1930840b
BM
775/* Compile-time block start/end hooks */
776PERLVAR(Iblockhooks, AV *)
777
2726813d 778
41fc8fee
KW
779/* Everything that folds to a given character, for case insensitivity regex
780 * matching */
2726813d
KW
781PERLVARI(Iutf8_foldclosures, HV *, NULL)
782
1bd9dc91
KW
783/* List of characters that participate in folds (except marks, etc in
784 * multi-char folds) */
785PERLVAR(Iutf8_foldable, HV *)
786
1830b3d9
BM
787PERLVAR(Icustom_ops, HV *) /* custom op registrations */
788
157b3822
NC
789/* If you are adding a U8 or U16, check to see if there are 'Space' comments
790 * above on where there are gaps which currently will be structure padding. */
d95e864f
NC
791
792/* Within a stable branch, new variables must be added to the very end, before
793 * this comment, for binary compatibility (the offsets of the old members must
794 * not change).
b83cd129 795 * (Don't forget to add your variable also to perl_clone()!)
e3acbfda 796 * XSUB.h provides wrapper functions via perlapi.h that make this
b83cd129
JH
797 * irrelevant, but not all code may be expected to #include XSUB.h.
798 */