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