This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
delete unused vars PL_av_fetch_sv, PL_hv_fetch_sv
[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? */
127PERLVAR(Icurcop, COP * VOL)
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
165/* Space for U16 here without increasing the structure size */
166
167PERLVARA(Icolors,6, char *) /* from regcomp.c */
168
169PERLVARI(Ipeepp, peep_t, MEMBER_TO_FPTR(Perl_peep))
170 /* Pointer to peephole optimizer */
171
172PERLVARI(Imaxscream, I32, -1)
173PERLVARI(Ireginterp_cnt,I32, 0) /* Whether "Regexp" was interpolated. */
174PERLVARI(Iwatchaddr, char **, 0)
175PERLVAR(Iwatchok, char *)
176
177/* the currently active slab in a chain of slabs of regmatch states,
178 * and the currently active state within that slab */
179
180PERLVARI(Iregmatch_slab, regmatch_slab *, NULL)
181PERLVAR(Iregmatch_state, regmatch_state *)
182
183PERLVARI(Idelayedisa, HV*, NULL) /* stash for PL_delaymagic for magic_setisa */
cb68f92d 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? */
192PERLVAR(Iin_eval, VOL U8) /* trap "fatal" errors? */
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 */
197PERLVARI(Iperl_destruct_level, U8, 0)
198
199PERLVAR(Iperldb, U32)
200
49f531da 201/* pseudo environmental stuff */
d95e864f 202PERLVAR(Iorigargc, int)
cb68f92d
GS
203PERLVAR(Iorigargv, char **)
204PERLVAR(Ienvgv, GV *)
cb68f92d 205PERLVAR(Iincgv, GV *)
b3ac6de7 206PERLVAR(Ihintgv, GV *)
cb68f92d
GS
207PERLVAR(Iorigfilename, char *)
208PERLVAR(Idiehook, SV *)
209PERLVAR(Iwarnhook, SV *)
1d7c1841
GS
210
211/* switches */
a7cb1f99 212PERLVAR(Ipatchlevel, SV *)
27da23d5 213PERLVAR(Ilocalpatches, const char * const *)
dd374669 214PERLVARI(Isplitstr, const char *, " ")
9f7da6d5
NC
215
216PERLVAR(Iminus_c, bool)
cb68f92d
GS
217PERLVAR(Ipreprocess, bool)
218PERLVAR(Iminus_n, bool)
219PERLVAR(Iminus_p, bool)
220PERLVAR(Iminus_l, bool)
221PERLVAR(Iminus_a, bool)
222PERLVAR(Iminus_F, bool)
223PERLVAR(Idoswitches, bool)
9f7da6d5 224
bc9b29db 225PERLVAR(Iminus_E, bool)
954c1994
GS
226
227/*
ccfc67b7 228
2eb25c99 229=for apidoc mn|bool|PL_dowarn
954c1994
GS
230
231The C variable which corresponds to Perl's $^W warning variable.
232
233=cut
234*/
235
d41ff1b8 236PERLVAR(Idowarn, U8)
cb68f92d 237PERLVAR(Idoextract, bool)
49f531da 238PERLVAR(Isawampersand, bool) /* must save all match strings */
cb68f92d 239PERLVAR(Iunsafe, bool)
9f7da6d5
NC
240PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */
241PERLVAR(Isrand_called, bool)
242/* Part of internal state, but makes the 16th 1 byte variable in a row. */
243PERLVAR(Itainting, bool) /* doing taint checks */
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
d95e864f
NC
261#ifdef CSH
262PERLVARI(Icshlen, I32, 0)
263PERLVARI(Icshname, const char *, CSH)
264#endif
9f7da6d5 265
49f531da 266/* shortcuts to various I/O objects */
cb68f92d 267PERLVAR(Istdingv, GV *)
bf49b057 268PERLVAR(Istderrgv, GV *)
cb68f92d
GS
269PERLVAR(Idefgv, GV *)
270PERLVAR(Iargvgv, GV *)
271PERLVAR(Iargvoutgv, GV *)
1d7c1841 272PERLVAR(Iargvout_stack, AV *)
49f531da
NIS
273
274/* shortcuts to regexp stuff */
cb68f92d 275PERLVAR(Ireplgv, GV *)
49f531da
NIS
276
277/* shortcuts to misc objects */
cb68f92d 278PERLVAR(Ierrgv, GV *)
49f531da
NIS
279
280/* shortcuts to debugging objects */
cb68f92d
GS
281PERLVAR(IDBgv, GV *)
282PERLVAR(IDBline, GV *)
954c1994
GS
283
284/*
2eb25c99 285=for apidoc mn|GV *|PL_DBsub
954c1994
GS
286When Perl is run in debugging mode, with the B<-d> switch, this GV contains
287the SV which holds the name of the sub being debugged. This is the C
288variable which corresponds to Perl's $DB::sub variable. See
289C<PL_DBsingle>.
290
2eb25c99 291=for apidoc mn|SV *|PL_DBsingle
954c1994 292When Perl is run in debugging mode, with the B<-d> switch, this SV is a
7889fe52 293boolean which indicates whether subs are being single-stepped.
954c1994
GS
294Single-stepping is automatically turned on after every step. This is the C
295variable which corresponds to Perl's $DB::single variable. See
296C<PL_DBsub>.
297
2eb25c99 298=for apidoc mn|SV *|PL_DBtrace
954c1994
GS
299Trace variable used when Perl is run in debugging mode, with the B<-d>
300switch. This is the C variable which corresponds to Perl's $DB::trace
301variable. See C<PL_DBsingle>.
302
303=cut
304*/
305
cb68f92d
GS
306PERLVAR(IDBsub, GV *)
307PERLVAR(IDBsingle, SV *)
308PERLVAR(IDBtrace, SV *)
309PERLVAR(IDBsignal, SV *)
49f531da
NIS
310PERLVAR(Ilineary, AV *) /* lines of script for debugger */
311PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
312
313/* symbol tables */
49f531da
NIS
314PERLVAR(Idebstash, HV *) /* symbol table for perldb package */
315PERLVAR(Iglobalstash, HV *) /* global keyword overrides imported here */
316PERLVAR(Icurstname, SV *) /* name of current package */
317PERLVAR(Ibeginav, AV *) /* names of BEGIN subroutines */
d4cce5f1 318PERLVAR(Iendav, AV *) /* names of END subroutines */
3c10abe3 319PERLVAR(Iunitcheckav, AV *) /* names of UNITCHECK subroutines */
7d30b5c4 320PERLVAR(Icheckav, AV *) /* names of CHECK subroutines */
49f531da
NIS
321PERLVAR(Iinitav, AV *) /* names of INIT subroutines */
322PERLVAR(Istrtab, HV *) /* shared string table */
005a453c 323PERLVARI(Isub_generation,U32,1) /* incr to invalidate method cache */
49f531da 324
9f7da6d5
NC
325/* funky return mechanisms */
326PERLVAR(Iforkprocess, int) /* so do_open |- can return proc# */
327
49f531da 328/* memory management */
49f531da
NIS
329PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
330PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
331PERLVAR(Isv_root, SV*) /* storage for SVs belonging to interp */
332PERLVAR(Isv_arenaroot, SV*) /* list of areas for garbage collection */
333
49f531da 334/* subprocess state */
d4cce5f1 335PERLVAR(Ifdpid, AV *) /* keep fd-to-pid mappings for my_popen */
49f531da
NIS
336
337/* internal state */
49f531da
NIS
338PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
339
49f531da 340/* current interpreter roots */
cb68f92d
GS
341PERLVAR(Imain_cv, CV *)
342PERLVAR(Imain_root, OP *)
343PERLVAR(Imain_start, OP *)
344PERLVAR(Ieval_root, OP *)
345PERLVAR(Ieval_start, OP *)
49f531da
NIS
346
347/* runtime control stuff */
cb68f92d 348PERLVARI(Icurcopdb, COP *, NULL)
49f531da 349
49f531da
NIS
350PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
351PERLVAR(Ilastfd, int) /* what to preserve mode on */
352PERLVAR(Ioldname, char *) /* what to preserve mode on */
d4cce5f1
NIS
353PERLVAR(IArgv, char **) /* stuff to free from do_aexec, vfork safe */
354PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */
cb68f92d 355PERLVAR(Ipreambleav, AV *)
cb68f92d 356PERLVAR(Imess_sv, SV *)
7889fe52 357PERLVAR(Iors_sv, SV *) /* output record separator $\ */
71eebe1e
NC
358/* statics moved here for shared library purposes */
359PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */
a4021b77
NC
360PERLVAR(Ierror_count, U8) /* how many errors so far, max 10 */
361PERLVARI(Icv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */
d95e864f
NC
362PERLVARI(Ilaststype, U16, OP_STAT)
363PERLVARI(Ilaststatval, int, -1)
d4cce5f1 364
4b556e6c 365/* interpreter atexit processing */
d95e864f 366PERLVARI(Iexitlistlen, I32, 0) /* length of same */
cb68f92d
GS
367PERLVARI(Iexitlist, PerlExitListEntry *, NULL)
368 /* list of exit functions */
954c1994
GS
369
370/*
371=for apidoc Amn|HV*|PL_modglobal
372
7889fe52 373C<PL_modglobal> is a general purpose, interpreter global HV for use by
954c1994 374extensions that need to keep information on a per-interpreter basis.
7889fe52
NIS
375In a pinch, it can also be used as a symbol table for extensions
376to share data among each other. It is a good idea to use keys
954c1994
GS
377prefixed by the package name of the extension that owns the data.
378
379=cut
380*/
381
cb68f92d
GS
382PERLVAR(Imodglobal, HV *) /* per-interp module data */
383
384/* these used to be in global before 5.004_68 */
385PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */
cb68f92d
GS
386
387PERLVAR(Icompiling, COP) /* compiling/done executing marker */
388
389PERLVAR(Icompcv, CV *) /* currently compiling subroutine */
390PERLVAR(Icomppad, AV *) /* storage for lexically scoped temporaries */
391PERLVAR(Icomppad_name, AV *) /* variable names for "my" variables */
392PERLVAR(Icomppad_name_fill, I32) /* last "introduced" variable offset */
393PERLVAR(Icomppad_name_floor, I32) /* start of vars in innermost block */
4b556e6c
JD
394
395#ifdef HAVE_INTERP_INTERN
cb68f92d
GS
396PERLVAR(Isys_intern, struct interp_intern)
397 /* platform internals */
4b556e6c
JD
398#endif
399
7fae4e64 400/* more statics moved here */
7fae4e64 401PERLVAR(IDBcv, CV *) /* from perl.c */
9f7da6d5 402PERLVARI(Igeneration, int, 100) /* from op.c */
56953603 403
cb68f92d
GS
404PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
405PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
9f7da6d5
NC
406PERLVAR(Inomemok, bool) /* let malloc context handle nomem */
407PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */
7fae4e64 408
d8eceb89
JH
409PERLVAR(Iuid, Uid_t) /* current real user id */
410PERLVAR(Ieuid, Uid_t) /* current effective user id */
411PERLVAR(Igid, Gid_t) /* current real group id */
412PERLVAR(Iegid, Gid_t) /* current effective group id */
bf9cdc68
RG
413PERLVARI(Ian, U32, 0) /* malloc sequence number */
414PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */
bf9cdc68 415PERLVARI(Ievalseq, U32, 0) /* eval sequence number */
0672f40e 416PERLVAR(Iorigalen, U32)
9f7da6d5 417PERLVAR(Iorigenviron, char **)
ca0c25f6 418#ifdef PERL_USES_PL_PIDSTATUS
0672f40e 419PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */
ca0c25f6 420#endif
0672f40e 421PERLVAR(Iosname, char *) /* operating system */
5c728af0 422
0672f40e
GS
423PERLVAR(Isighandlerp, Sighandler_t)
424
232d1c15 425PERLVARA(Ibody_roots, PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
93e68bfb 426
0672f40e
GS
427PERLVAR(Inice_chunk, char *) /* a nice chunk of memory to reuse */
428PERLVAR(Inice_chunk_size, U32) /* how nice the chunk of memory is */
429
9f7da6d5
NC
430PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */
431
0b94c7bb 432PERLVARI(Irunops, runops_proc_t, MEMBER_TO_FPTR(RUNOPS_DEFAULT))
0672f40e 433
51371543 434PERLVARA(Itokenbuf,256, char)
0672f40e 435
954c1994
GS
436/*
437=for apidoc Amn|SV|PL_sv_undef
438This is the C<undef> SV. Always refer to this as C<&PL_sv_undef>.
439
440=for apidoc Amn|SV|PL_sv_no
441This is the C<false> SV. See C<PL_sv_yes>. Always refer to this as
442C<&PL_sv_no>.
443
444=for apidoc Amn|SV|PL_sv_yes
445This is the C<true> SV. See C<PL_sv_no>. Always refer to this as
446C<&PL_sv_yes>.
447
448=cut
449*/
450
0672f40e
GS
451PERLVAR(Isv_undef, SV)
452PERLVAR(Isv_no, SV)
453PERLVAR(Isv_yes, SV)
454
0672f40e
GS
455PERLVAR(Isubname, SV *) /* name of current subroutine */
456
d95e864f 457PERLVAR(Isubline, I32) /* line this subroutine began on */
0672f40e 458PERLVAR(Imin_intro_pending, I32) /* start of vars to introduce */
d95e864f 459
0672f40e
GS
460PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */
461PERLVAR(Ipadix, I32) /* max used index in current "register" pad */
d95e864f 462
0672f40e
GS
463PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */
464PERLVAR(Ipad_reset_pending, I32) /* reset pad on next attempted alloc */
465
1d7c1841 466PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */
0672f40e
GS
467
468PERLVAR(Idebug, VOL U32) /* flags given to -D switch */
469
bf9cdc68 470PERLVARI(Iamagic_generation, long, 0)
0672f40e
GS
471
472#ifdef USE_LOCALE_COLLATE
0672f40e 473PERLVAR(Icollation_name,char *) /* Name of current collation */
0672f40e
GS
474PERLVAR(Icollxfrm_base, Size_t) /* Basic overhead in *xfrm() */
475PERLVARI(Icollxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */
9f7da6d5
NC
476PERLVARI(Icollation_ix, U32, 0) /* Collation generation index */
477PERLVARI(Icollation_standard, bool, TRUE)
478 /* Assume simple collation */
0672f40e
GS
479#endif /* USE_LOCALE_COLLATE */
480
9f7da6d5
NC
481
482#ifdef PERL_UTF8_CACHE_ASSERT
95ca8690 483# define PERL___I -1
9f7da6d5 484#else
95ca8690 485# define PERL___I -1
9f7da6d5 486#endif
95ca8690
DM
487PERLVARI(Iutf8cache, I8, PERL___I) /* Is the utf8 caching code enabled? */
488#undef PERL___I
489
9f7da6d5 490
0672f40e
GS
491#ifdef USE_LOCALE_NUMERIC
492
0672f40e
GS
493PERLVARI(Inumeric_standard, bool, TRUE)
494 /* Assume simple numerics */
495PERLVARI(Inumeric_local, bool, TRUE)
496 /* Assume local numerics */
9f7da6d5 497PERLVAR(Inumeric_name, char *) /* Name of current numeric locale */
0672f40e
GS
498#endif /* !USE_LOCALE_NUMERIC */
499
500/* utf8 character classes */
501PERLVAR(Iutf8_alnum, SV *)
b8c5462f
JH
502PERLVAR(Iutf8_alnumc, SV *)
503PERLVAR(Iutf8_ascii, SV *)
0672f40e
GS
504PERLVAR(Iutf8_alpha, SV *)
505PERLVAR(Iutf8_space, SV *)
b8c5462f
JH
506PERLVAR(Iutf8_cntrl, SV *)
507PERLVAR(Iutf8_graph, SV *)
0672f40e
GS
508PERLVAR(Iutf8_digit, SV *)
509PERLVAR(Iutf8_upper, SV *)
510PERLVAR(Iutf8_lower, SV *)
511PERLVAR(Iutf8_print, SV *)
b8c5462f
JH
512PERLVAR(Iutf8_punct, SV *)
513PERLVAR(Iutf8_xdigit, SV *)
0672f40e
GS
514PERLVAR(Iutf8_mark, SV *)
515PERLVAR(Iutf8_toupper, SV *)
516PERLVAR(Iutf8_totitle, SV *)
517PERLVAR(Iutf8_tolower, SV *)
b4e400f9 518PERLVAR(Iutf8_tofold, SV *)
0672f40e 519PERLVAR(Ilast_swash_hv, HV *)
0672f40e
GS
520PERLVAR(Ilast_swash_tmps, U8 *)
521PERLVAR(Ilast_swash_slen, STRLEN)
9f7da6d5 522PERLVARA(Ilast_swash_key,10, U8)
d95e864f
NC
523PERLVAR(Ilast_swash_klen, U8) /* Only needs to store 0-10 */
524
525#ifdef FCRYPT
526PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */
527#endif
528
529PERLVARI(Iglob_index, int, 0)
530
0672f40e 531
5912531f 532PERLVAR(Iparser, yy_parser *) /* current parser state */
12fbd33b 533
0672f40e 534PERLVAR(Ibitcount, char *)
0672f40e 535
1d7c1841
GS
536PERLVAR(Ipsig_ptr, SV**)
537PERLVAR(Ipsig_name, SV**)
538
c5be433b 539#if defined(PERL_IMPLICIT_SYS)
32e30700 540PERLVAR(IMem, struct IPerlMem*)
1d7c1841
GS
541PERLVAR(IMemShared, struct IPerlMem*)
542PERLVAR(IMemParse, struct IPerlMem*)
32e30700
GS
543PERLVAR(IEnv, struct IPerlEnv*)
544PERLVAR(IStdIO, struct IPerlStdIO*)
545PERLVAR(ILIO, struct IPerlLIO*)
546PERLVAR(IDir, struct IPerlDir*)
547PERLVAR(ISock, struct IPerlSock*)
548PERLVAR(IProc, struct IPerlProc*)
76e3520e 549#endif
1d7c1841 550
1d7c1841 551PERLVAR(Iptr_table, PTR_TBL_t*)
7d49f689 552PERLVARI(Ibeginav_save, AV*, NULL) /* save BEGIN{}s when compiling */
f180df80 553
fdda85ca 554PERLVAR(Ibody_arenas, void*) /* pointer to list of body-arenas */
93e68bfb 555
ce08f86c
NIS
556PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */
557PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */
558
d95e864f
NC
559
560PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */
561PERLVAR(Iutf8locale, bool) /* utf8 locale detected */
562PERLVARI(Ihash_seed_set, bool, FALSE) /* Hash initialized? */
563PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
564
a453c169
JH
565#ifdef USE_LOCALE_NUMERIC
566
567PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */
568
569#endif
ce08f86c 570
1fcf4c12 571#if defined(USE_ITHREADS)
aefff11f
JD
572PERLVAR(Iregex_pad, SV**) /* All regex objects */
573PERLVAR(Iregex_padav, AV*) /* All regex objects */
e5dd39fc 574
1fcf4c12
AB
575#endif
576
ea68fd67
NC
577#ifdef USE_REENTRANT_API
578PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */
f5a82810
JH
579#endif
580
aefff11f 581
598921a7
NC
582#ifdef PERL_MAD
583PERLVARI(Imadskills, bool, FALSE) /* preserve all syntactic info */
584 /* (MAD = Misc Attribute Decoration) */
585PERLVARI(Ixmlfp, PerlIO *,NULL)
586#endif
587
53e06cf0
SC
588PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */
589PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */
19e8ce8e 590
a1ea730d
NIS
591#ifdef PERLIO_LAYERS
592PERLVARI(Iperlio, PerlIO *,NULL)
3a1ee7e8
NIS
593PERLVARI(Iknown_layers, PerlIO_list_t *,NULL)
594PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL)
a1ea730d
NIS
595#endif
596
a0714e2c 597PERLVARI(Iencoding, SV*, NULL) /* character encoding */
0a378802 598
128e8167 599PERLVAR(Idebug_pad, struct perl_debug_pad) /* always needed because of the re extension */
ce333219 600
238a4c30 601#ifdef PL_OP_SLAB_ALLOC
5a8e194f
NIS
602PERLVAR(IOpPtr,I32 **)
603PERLVARI(IOpSpace,I32,0)
604PERLVAR(IOpSlab,I32 *)
238a4c30
NIS
605#endif
606
82686b01
JH
607PERLVAR(Iutf8_idstart, SV *)
608PERLVAR(Iutf8_idcont, SV *)
609
147f47de
AB
610PERLVAR(Isort_RealCmp, SVCOMPARE_t)
611
7d49f689 612PERLVARI(Icheckav_save, AV*, NULL) /* save CHECK{}s when compiling */
3c10abe3 613PERLVARI(Iunitcheckav_save, AV*, NULL) /* save UNITCHECK{}s when compiling */
ece599bd 614
5311654c
JH
615PERLVARI(Iclocktick, long, 0) /* this many times() ticks in a second */
616
edab1aa3
JH
617PERLVARI(Iin_load_module, int, 0) /* to prevent recursions in PerlIO_find_layer */
618
a05d7ebb
JH
619PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
620
4ffa73a3
JH
621PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */
622
57c6e6d2
JH
623PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions */
624
9f7da6d5
NC
625PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */
626
15a5279a
JH
627/* Hooks to shared SVs and locks. */
628PERLVARI(Isharehook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d5b2b27b 629PERLVARI(Ilockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d0647d4e
NC
630#ifdef NO_MATHOMS
631# define PERL_UNLOCK_HOOK Perl_sv_nosharing
632#else
633/* This reference ensures that the mathoms are linked with perl */
634# define PERL_UNLOCK_HOOK Perl_sv_nounlocking
635#endif
636PERLVARI(Iunlockhook, share_proc_t, MEMBER_TO_FPTR(PERL_UNLOCK_HOOK))
637
15a5279a
JH
638PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
639
bce260cd
JH
640/* Force inclusion of both runops options */
641PERLVARI(Irunops_std, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_standard))
642PERLVARI(Irunops_dbg, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_debug))
643
644/* Stores the PPID */
645#ifdef THREADS_HAVE_PIDS
646PERLVARI(Ippid, IV, 0)
647#endif
648
504f80c1
JH
649PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */
650
8b5c2100
JH
651PERLVAR(IDBassertion, SV *)
652
008fb0c0 653PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */
4b5190b5 654
41e4abd8
NC
655#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
656/* File descriptor to talk to the child which dumps scalars. */
657PERLVARI(Idumper_fd, int, -1)
658#endif
f16dd614 659
a4021b77
NC
660PERLVAR(Imulti_end, I32) /* last line of multi-line string */
661
f16dd614 662#ifdef PERL_IMPLICIT_CONTEXT
4c901e72 663PERLVARI(Imy_cxt_size, int, 0) /* size of PL_my_cxt_list */
f16dd614 664PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
53d44271
JH
665#ifdef PERL_GLOBAL_STRUCT_PRIVATE
666PERLVARI(Imy_cxt_keys, const char **, NULL) /* per-module array of pointers to MY_CXT_KEY constants */
667#endif
f16dd614
DM
668#endif
669
7cb608b5
NC
670#ifdef PERL_TRACK_MEMPOOL
671/* For use with the memory debugging code in util.c */
672PERLVAR(Imemory_debug_header, struct perl_memory_debug_header)
673#endif
674
f1fac472
NC
675#ifdef PERL_DEBUG_READONLY_OPS
676PERLVARI(Islabs, I32**, NULL) /* Array of slabs that have been allocated */
677PERLVARI(Islab_count, U32, 0) /* Size of the array */
678#endif
679
dd69841b
BB
680PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */
681
53a7735b
DM
682/* If you are adding a U8 or U16, see the 'Space' comments above on where
683 * there are gaps which currently will be structure padding. */
d95e864f
NC
684
685/* Within a stable branch, new variables must be added to the very end, before
686 * this comment, for binary compatibility (the offsets of the old members must
687 * not change).
b83cd129 688 * (Don't forget to add your variable also to perl_clone()!)
e3acbfda 689 * XSUB.h provides wrapper functions via perlapi.h that make this
b83cd129
JH
690 * irrelevant, but not all code may be expected to #include XSUB.h.
691 */