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