This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
5.9.1 suidperl
[perl5.git] / intrpvar.h
CommitLineData
49f531da
NIS
1/***********************************************/
2/* Global only to current interpreter instance */
3/***********************************************/
4
cb68f92d
GS
5/* Don't forget to re-run embed.pl to propagate changes! */
6
6537fe72
MS
7/* New variables must be added to the very end for binary compatibility.
8 * XSUB.h provides wrapper functions via perlapi.h that make this
9 * irrelevant, but not all code may be expected to #include XSUB.h. */
10
02506efe
JH
11/* Don't forget to add your variable also to perl_clone()! */
12
cb68f92d
GS
13/* The 'I' prefix is only needed for vars that need appropriate #defines
14 * generated when built with or without MULTIPLICITY. It is also used
15 * to generate the appropriate export list for win32.
16 *
14dd3ad8 17 * When building without MULTIPLICITY, these variables will be truly global. */
cb68f92d 18
49f531da 19/* pseudo environmental stuff */
cb68f92d
GS
20PERLVAR(Iorigargc, int)
21PERLVAR(Iorigargv, char **)
22PERLVAR(Ienvgv, GV *)
cb68f92d 23PERLVAR(Iincgv, GV *)
b3ac6de7 24PERLVAR(Ihintgv, GV *)
cb68f92d
GS
25PERLVAR(Iorigfilename, char *)
26PERLVAR(Idiehook, SV *)
27PERLVAR(Iwarnhook, SV *)
1d7c1841
GS
28
29/* switches */
cb68f92d 30PERLVAR(Iminus_c, bool)
a7cb1f99 31PERLVAR(Ipatchlevel, SV *)
cb68f92d
GS
32PERLVAR(Ilocalpatches, char **)
33PERLVARI(Isplitstr, char *, " ")
34PERLVAR(Ipreprocess, bool)
35PERLVAR(Iminus_n, bool)
36PERLVAR(Iminus_p, bool)
37PERLVAR(Iminus_l, bool)
38PERLVAR(Iminus_a, bool)
39PERLVAR(Iminus_F, bool)
40PERLVAR(Idoswitches, bool)
954c1994
GS
41
42/*
ccfc67b7
JH
43=head1 Global Variables
44
2eb25c99 45=for apidoc mn|bool|PL_dowarn
954c1994
GS
46
47The C variable which corresponds to Perl's $^W warning variable.
48
49=cut
50*/
51
d41ff1b8 52PERLVAR(Idowarn, U8)
a05d7ebb 53PERLVAR(Iwidesyscalls, bool) /* unused since 5.8.1 */
cb68f92d 54PERLVAR(Idoextract, bool)
49f531da 55PERLVAR(Isawampersand, bool) /* must save all match strings */
cb68f92d
GS
56PERLVAR(Iunsafe, bool)
57PERLVAR(Iinplace, char *)
58PERLVAR(Ie_script, SV *)
59PERLVAR(Iperldb, U32)
d4cce5f1 60
1d7c1841 61/* This value may be set when embedding for full cleanup */
d4cce5f1 62/* 0=none, 1=full, 2=full with checks */
7c474504 63PERLVARI(Iperl_destruct_level, int, 0)
49f531da
NIS
64
65/* magical thingies */
66PERLVAR(Ibasetime, Time_t) /* $^T */
67PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1
NIS
68
69
cb68f92d
GS
70PERLVARI(Imaxsysfd, I32, MAXSYSFD)
71 /* top fd to pass to subprocesses */
49f531da
NIS
72PERLVAR(Imultiline, int) /* $*--do strings hold >1 line? */
73PERLVAR(Istatusvalue, I32) /* $? */
1d7c1841 74PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */
49f531da 75#ifdef VMS
cb68f92d 76PERLVAR(Istatusvalue_vms,U32)
49f531da
NIS
77#endif
78
49f531da 79/* shortcuts to various I/O objects */
cb68f92d 80PERLVAR(Istdingv, GV *)
bf49b057 81PERLVAR(Istderrgv, GV *)
cb68f92d
GS
82PERLVAR(Idefgv, GV *)
83PERLVAR(Iargvgv, GV *)
84PERLVAR(Iargvoutgv, GV *)
1d7c1841 85PERLVAR(Iargvout_stack, AV *)
49f531da
NIS
86
87/* shortcuts to regexp stuff */
5c0ca799 88/* this one needs to be moved to thrdvar.h and accessed via
4d1ff10f 89 * find_threadsv() when USE_5005THREADS */
cb68f92d 90PERLVAR(Ireplgv, GV *)
49f531da
NIS
91
92/* shortcuts to misc objects */
cb68f92d 93PERLVAR(Ierrgv, GV *)
49f531da
NIS
94
95/* shortcuts to debugging objects */
cb68f92d
GS
96PERLVAR(IDBgv, GV *)
97PERLVAR(IDBline, GV *)
954c1994
GS
98
99/*
2eb25c99 100=for apidoc mn|GV *|PL_DBsub
954c1994
GS
101When Perl is run in debugging mode, with the B<-d> switch, this GV contains
102the SV which holds the name of the sub being debugged. This is the C
103variable which corresponds to Perl's $DB::sub variable. See
104C<PL_DBsingle>.
105
2eb25c99 106=for apidoc mn|SV *|PL_DBsingle
954c1994 107When Perl is run in debugging mode, with the B<-d> switch, this SV is a
7889fe52 108boolean which indicates whether subs are being single-stepped.
954c1994
GS
109Single-stepping is automatically turned on after every step. This is the C
110variable which corresponds to Perl's $DB::single variable. See
111C<PL_DBsub>.
112
2eb25c99 113=for apidoc mn|SV *|PL_DBtrace
954c1994
GS
114Trace variable used when Perl is run in debugging mode, with the B<-d>
115switch. This is the C variable which corresponds to Perl's $DB::trace
116variable. See C<PL_DBsingle>.
117
118=cut
119*/
120
cb68f92d
GS
121PERLVAR(IDBsub, GV *)
122PERLVAR(IDBsingle, SV *)
123PERLVAR(IDBtrace, SV *)
124PERLVAR(IDBsignal, SV *)
49f531da
NIS
125PERLVAR(Ilineary, AV *) /* lines of script for debugger */
126PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
127
128/* symbol tables */
49f531da
NIS
129PERLVAR(Idebstash, HV *) /* symbol table for perldb package */
130PERLVAR(Iglobalstash, HV *) /* global keyword overrides imported here */
131PERLVAR(Icurstname, SV *) /* name of current package */
132PERLVAR(Ibeginav, AV *) /* names of BEGIN subroutines */
d4cce5f1 133PERLVAR(Iendav, AV *) /* names of END subroutines */
7d30b5c4 134PERLVAR(Icheckav, AV *) /* names of CHECK subroutines */
49f531da
NIS
135PERLVAR(Iinitav, AV *) /* names of INIT subroutines */
136PERLVAR(Istrtab, HV *) /* shared string table */
005a453c 137PERLVARI(Isub_generation,U32,1) /* incr to invalidate method cache */
49f531da
NIS
138
139/* memory management */
49f531da
NIS
140PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
141PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
142PERLVAR(Isv_root, SV*) /* storage for SVs belonging to interp */
143PERLVAR(Isv_arenaroot, SV*) /* list of areas for garbage collection */
144
145/* funky return mechanisms */
49f531da
NIS
146PERLVAR(Iforkprocess, int) /* so do_open |- can return proc# */
147
148/* subprocess state */
d4cce5f1 149PERLVAR(Ifdpid, AV *) /* keep fd-to-pid mappings for my_popen */
49f531da
NIS
150
151/* internal state */
49f531da
NIS
152PERLVAR(Itainting, bool) /* doing taint checks */
153PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
154
49f531da 155/* current interpreter roots */
cb68f92d
GS
156PERLVAR(Imain_cv, CV *)
157PERLVAR(Imain_root, OP *)
158PERLVAR(Imain_start, OP *)
159PERLVAR(Ieval_root, OP *)
160PERLVAR(Ieval_start, OP *)
49f531da
NIS
161
162/* runtime control stuff */
cb68f92d
GS
163PERLVARI(Icurcopdb, COP *, NULL)
164PERLVARI(Icopline, line_t, NOLINE)
49f531da
NIS
165
166/* statics moved here for shared library purposes */
49f531da
NIS
167PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
168PERLVAR(Ilastfd, int) /* what to preserve mode on */
169PERLVAR(Ioldname, char *) /* what to preserve mode on */
d4cce5f1
NIS
170PERLVAR(IArgv, char **) /* stuff to free from do_aexec, vfork safe */
171PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */
bf9cdc68 172PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */
cb68f92d
GS
173PERLVAR(Ipreambled, bool)
174PERLVAR(Ipreambleav, AV *)
175PERLVARI(Ilaststatval, int, -1)
176PERLVARI(Ilaststype, I32, OP_STAT)
177PERLVAR(Imess_sv, SV *)
49f531da 178
cb68f92d 179/* XXX shouldn't these be per-thread? --GSAR */
7889fe52 180PERLVAR(Iors_sv, SV *) /* output record separator $\ */
cb68f92d 181PERLVAR(Iofmt, char *) /* output format for numbers $# */
d4cce5f1 182
4b556e6c 183/* interpreter atexit processing */
cb68f92d
GS
184PERLVARI(Iexitlist, PerlExitListEntry *, NULL)
185 /* list of exit functions */
186PERLVARI(Iexitlistlen, I32, 0) /* length of same */
954c1994
GS
187
188/*
189=for apidoc Amn|HV*|PL_modglobal
190
7889fe52 191C<PL_modglobal> is a general purpose, interpreter global HV for use by
954c1994 192extensions that need to keep information on a per-interpreter basis.
7889fe52
NIS
193In a pinch, it can also be used as a symbol table for extensions
194to share data among each other. It is a good idea to use keys
954c1994
GS
195prefixed by the package name of the extension that owns the data.
196
197=cut
198*/
199
cb68f92d
GS
200PERLVAR(Imodglobal, HV *) /* per-interp module data */
201
202/* these used to be in global before 5.004_68 */
203PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */
204PERLVARI(Irsfp, PerlIO * VOL, Nullfp) /* current source file pointer */
205PERLVARI(Irsfp_filters, AV *, Nullav) /* keeps active source filters */
206
207PERLVAR(Icompiling, COP) /* compiling/done executing marker */
208
209PERLVAR(Icompcv, CV *) /* currently compiling subroutine */
210PERLVAR(Icomppad, AV *) /* storage for lexically scoped temporaries */
211PERLVAR(Icomppad_name, AV *) /* variable names for "my" variables */
212PERLVAR(Icomppad_name_fill, I32) /* last "introduced" variable offset */
213PERLVAR(Icomppad_name_floor, I32) /* start of vars in innermost block */
4b556e6c
JD
214
215#ifdef HAVE_INTERP_INTERN
cb68f92d
GS
216PERLVAR(Isys_intern, struct interp_intern)
217 /* platform internals */
4b556e6c
JD
218#endif
219
7fae4e64 220/* more statics moved here */
7fae4e64
GS
221PERLVARI(Igeneration, int, 100) /* from op.c */
222PERLVAR(IDBcv, CV *) /* from perl.c */
56953603 223
cb68f92d
GS
224PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
225PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
7fae4e64
GS
226
227PERLVAR(Ilinestart, char *) /* beg. of most recently read line */
228PERLVAR(Ipending_ident, char) /* pending identifier lookup */
229PERLVAR(Isublex_info, SUBLEXINFO) /* from toke.c */
230
d8eceb89
JH
231PERLVAR(Iuid, Uid_t) /* current real user id */
232PERLVAR(Ieuid, Uid_t) /* current effective user id */
233PERLVAR(Igid, Gid_t) /* current real group id */
234PERLVAR(Iegid, Gid_t) /* current effective group id */
0672f40e 235PERLVAR(Inomemok, bool) /* let malloc context handle nomem */
bf9cdc68
RG
236PERLVARI(Ian, U32, 0) /* malloc sequence number */
237PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */
bf9cdc68 238PERLVARI(Ievalseq, U32, 0) /* eval sequence number */
0672f40e
GS
239PERLVAR(Iorigenviron, char **)
240PERLVAR(Iorigalen, U32)
241PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */
242PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */
243PERLVAR(Iosname, char *) /* operating system */
5c728af0
IZ
244
245/* For binary compatibility with older versions only */
246PERLVARI(Ish_path_compat, char *, SH_PATH)/* full path of shell */
247
0672f40e
GS
248PERLVAR(Isighandlerp, Sighandler_t)
249
250PERLVAR(Ixiv_arenaroot, XPV*) /* list of allocated xiv areas */
612f20c3 251PERLVAR(Ixiv_root, IV *) /* free xiv list */
612f20c3 252PERLVAR(Ixnv_root, NV *) /* free xnv list */
612f20c3 253PERLVAR(Ixrv_root, XRV *) /* free xrv list */
612f20c3 254PERLVAR(Ixpv_root, XPV *) /* free xpv list */
612f20c3 255PERLVAR(Ixpviv_root, XPVIV *) /* free xpviv list */
612f20c3 256PERLVAR(Ixpvnv_root, XPVNV *) /* free xpvnv list */
612f20c3 257PERLVAR(Ixpvcv_root, XPVCV *) /* free xpvcv list */
612f20c3 258PERLVAR(Ixpvav_root, XPVAV *) /* free xpvav list */
612f20c3 259PERLVAR(Ixpvhv_root, XPVHV *) /* free xpvhv list */
612f20c3 260PERLVAR(Ixpvmg_root, XPVMG *) /* free xpvmg list */
612f20c3 261PERLVAR(Ixpvlv_root, XPVLV *) /* free xpvlv list */
612f20c3 262PERLVAR(Ixpvbm_root, XPVBM *) /* free xpvbm list */
612f20c3 263PERLVAR(Ihe_root, HE *) /* free he list */
0672f40e
GS
264PERLVAR(Inice_chunk, char *) /* a nice chunk of memory to reuse */
265PERLVAR(Inice_chunk_size, U32) /* how nice the chunk of memory is */
266
0b94c7bb 267PERLVARI(Irunops, runops_proc_t, MEMBER_TO_FPTR(RUNOPS_DEFAULT))
0672f40e 268
51371543 269PERLVARA(Itokenbuf,256, char)
0672f40e 270
954c1994
GS
271/*
272=for apidoc Amn|SV|PL_sv_undef
273This is the C<undef> SV. Always refer to this as C<&PL_sv_undef>.
274
275=for apidoc Amn|SV|PL_sv_no
276This is the C<false> SV. See C<PL_sv_yes>. Always refer to this as
277C<&PL_sv_no>.
278
279=for apidoc Amn|SV|PL_sv_yes
280This is the C<true> SV. See C<PL_sv_no>. Always refer to this as
281C<&PL_sv_yes>.
282
283=cut
284*/
285
0672f40e
GS
286PERLVAR(Isv_undef, SV)
287PERLVAR(Isv_no, SV)
288PERLVAR(Isv_yes, SV)
289
290#ifdef CSH
291PERLVARI(Icshname, char *, CSH)
bf9cdc68 292PERLVARI(Icshlen, I32, 0)
0672f40e
GS
293#endif
294
295PERLVAR(Ilex_state, U32) /* next token is determined */
296PERLVAR(Ilex_defer, U32) /* state after determined token */
1d7c1841 297PERLVAR(Ilex_expect, int) /* expect after determined token */
0672f40e
GS
298PERLVAR(Ilex_brackets, I32) /* bracket count */
299PERLVAR(Ilex_formbrack, I32) /* bracket count at outer format level */
0672f40e
GS
300PERLVAR(Ilex_casemods, I32) /* casemod count */
301PERLVAR(Ilex_dojoin, I32) /* doing an array interpolation */
302PERLVAR(Ilex_starts, I32) /* how many interps done on level */
303PERLVAR(Ilex_stuff, SV *) /* runtime pattern from m// or s/// */
304PERLVAR(Ilex_repl, SV *) /* runtime replacement from s/// */
305PERLVAR(Ilex_op, OP *) /* extra info to pass back on op */
306PERLVAR(Ilex_inpat, OP *) /* in pattern $) and $| are special */
307PERLVAR(Ilex_inwhat, I32) /* what kind of quoting are we in */
308PERLVAR(Ilex_brackstack,char *) /* what kind of brackets to pop */
309PERLVAR(Ilex_casestack, char *) /* what kind of case mods in effect */
310
311/* What we know when we're in LEX_KNOWNEXT state. */
51371543
GS
312PERLVARA(Inextval,5, YYSTYPE) /* value of next token, if any */
313PERLVARA(Inexttype,5, I32) /* type of next token */
0672f40e
GS
314PERLVAR(Inexttoke, I32)
315
316PERLVAR(Ilinestr, SV *)
317PERLVAR(Ibufptr, char *)
318PERLVAR(Ioldbufptr, char *)
319PERLVAR(Ioldoldbufptr, char *)
320PERLVAR(Ibufend, char *)
1d7c1841 321PERLVARI(Iexpect,int, XSTATE) /* how to interpret ambiguous tokens */
0672f40e
GS
322
323PERLVAR(Imulti_start, I32) /* 1st line of multi-line string */
324PERLVAR(Imulti_end, I32) /* last line of multi-line string */
325PERLVAR(Imulti_open, I32) /* delimiter of said string */
326PERLVAR(Imulti_close, I32) /* delimiter of said string */
327
328PERLVAR(Ierror_count, I32) /* how many errors so far, max 10 */
329PERLVAR(Isubline, I32) /* line this subroutine began on */
330PERLVAR(Isubname, SV *) /* name of current subroutine */
331
332PERLVAR(Imin_intro_pending, I32) /* start of vars to introduce */
333PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */
334PERLVAR(Ipadix, I32) /* max used index in current "register" pad */
335PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */
336PERLVAR(Ipad_reset_pending, I32) /* reset pad on next attempted alloc */
337
0672f40e
GS
338PERLVAR(Ilast_uni, char *) /* position of last named-unary op */
339PERLVAR(Ilast_lop, char *) /* position of last list operator */
340PERLVAR(Ilast_lop_op, OPCODE) /* last list operator */
77ca0c92 341PERLVAR(Iin_my, I32) /* we're compiling a "my" (or "our") declaration */
0672f40e
GS
342PERLVAR(Iin_my_stash, HV *) /* declared class of this "my" declaration */
343#ifdef FCRYPT
bf9cdc68 344PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */
0672f40e
GS
345#endif
346
1d7c1841 347PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */
0672f40e
GS
348
349PERLVAR(Idebug, VOL U32) /* flags given to -D switch */
350
bf9cdc68 351PERLVARI(Iamagic_generation, long, 0)
0672f40e
GS
352
353#ifdef USE_LOCALE_COLLATE
bf9cdc68 354PERLVARI(Icollation_ix, U32, 0) /* Collation generation index */
0672f40e
GS
355PERLVAR(Icollation_name,char *) /* Name of current collation */
356PERLVARI(Icollation_standard, bool, TRUE)
357 /* Assume simple collation */
358PERLVAR(Icollxfrm_base, Size_t) /* Basic overhead in *xfrm() */
359PERLVARI(Icollxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */
360#endif /* USE_LOCALE_COLLATE */
361
362#ifdef USE_LOCALE_NUMERIC
363
364PERLVAR(Inumeric_name, char *) /* Name of current numeric locale */
365PERLVARI(Inumeric_standard, bool, TRUE)
366 /* Assume simple numerics */
367PERLVARI(Inumeric_local, bool, TRUE)
368 /* Assume local numerics */
369
a453c169
JH
370PERLVAR(Inumeric_compat1, char)
371 /* Used to be numeric_radix */
0672f40e
GS
372#endif /* !USE_LOCALE_NUMERIC */
373
374/* utf8 character classes */
375PERLVAR(Iutf8_alnum, SV *)
b8c5462f
JH
376PERLVAR(Iutf8_alnumc, SV *)
377PERLVAR(Iutf8_ascii, SV *)
0672f40e
GS
378PERLVAR(Iutf8_alpha, SV *)
379PERLVAR(Iutf8_space, SV *)
b8c5462f
JH
380PERLVAR(Iutf8_cntrl, SV *)
381PERLVAR(Iutf8_graph, SV *)
0672f40e
GS
382PERLVAR(Iutf8_digit, SV *)
383PERLVAR(Iutf8_upper, SV *)
384PERLVAR(Iutf8_lower, SV *)
385PERLVAR(Iutf8_print, SV *)
b8c5462f
JH
386PERLVAR(Iutf8_punct, SV *)
387PERLVAR(Iutf8_xdigit, SV *)
0672f40e
GS
388PERLVAR(Iutf8_mark, SV *)
389PERLVAR(Iutf8_toupper, SV *)
390PERLVAR(Iutf8_totitle, SV *)
391PERLVAR(Iutf8_tolower, SV *)
b4e400f9 392PERLVAR(Iutf8_tofold, SV *)
0672f40e
GS
393PERLVAR(Ilast_swash_hv, HV *)
394PERLVAR(Ilast_swash_klen, U32)
51371543 395PERLVARA(Ilast_swash_key,10, U8)
0672f40e
GS
396PERLVAR(Ilast_swash_tmps, U8 *)
397PERLVAR(Ilast_swash_slen, STRLEN)
398
12fbd33b
DM
399/* perly.c globals */
400PERLVAR(Iyycharp, int *)
401PERLVAR(Iyylvalp, YYSTYPE *)
402
bf9cdc68 403PERLVARI(Iglob_index, int, 0)
0672f40e 404PERLVAR(Isrand_called, bool)
51371543 405PERLVARA(Iuudmap,256, char)
0672f40e 406PERLVAR(Ibitcount, char *)
0672f40e 407
1d7c1841
GS
408PERLVAR(Ipsig_ptr, SV**)
409PERLVAR(Ipsig_name, SV**)
410
c5be433b 411#if defined(PERL_IMPLICIT_SYS)
32e30700 412PERLVAR(IMem, struct IPerlMem*)
1d7c1841
GS
413PERLVAR(IMemShared, struct IPerlMem*)
414PERLVAR(IMemParse, struct IPerlMem*)
32e30700
GS
415PERLVAR(IEnv, struct IPerlEnv*)
416PERLVAR(IStdIO, struct IPerlStdIO*)
417PERLVAR(ILIO, struct IPerlLIO*)
418PERLVAR(IDir, struct IPerlDir*)
419PERLVAR(ISock, struct IPerlSock*)
420PERLVAR(IProc, struct IPerlProc*)
76e3520e 421#endif
1d7c1841
GS
422
423#if defined(USE_ITHREADS)
424PERLVAR(Iptr_table, PTR_TBL_t*)
425#endif
059a8bb7 426PERLVARI(Ibeginav_save, AV*, Nullav) /* save BEGIN{}s when compiling */
f180df80 427
e3acbfda
GS
428PERLVAR(Ixnv_arenaroot, XPV*) /* list of allocated xnv areas */
429PERLVAR(Ixrv_arenaroot, XPV*) /* list of allocated xrv areas */
430PERLVAR(Ixpv_arenaroot, XPV*) /* list of allocated xpv areas */
431PERLVAR(Ixpviv_arenaroot,XPVIV*) /* list of allocated xpviv areas */
432PERLVAR(Ixpvnv_arenaroot,XPVNV*) /* list of allocated xpvnv areas */
433PERLVAR(Ixpvcv_arenaroot,XPVCV*) /* list of allocated xpvcv areas */
434PERLVAR(Ixpvav_arenaroot,XPVAV*) /* list of allocated xpvav areas */
435PERLVAR(Ixpvhv_arenaroot,XPVHV*) /* list of allocated xpvhv areas */
436PERLVAR(Ixpvmg_arenaroot,XPVMG*) /* list of allocated xpvmg areas */
437PERLVAR(Ixpvlv_arenaroot,XPVLV*) /* list of allocated xpvlv areas */
438PERLVAR(Ixpvbm_arenaroot,XPVBM*) /* list of allocated xpvbm areas */
439PERLVAR(Ihe_arenaroot, XPV*) /* list of allocated he areas */
440
a453c169
JH
441 /* 5.6.0 stopped here */
442
ce08f86c
NIS
443PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */
444PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */
445
a453c169
JH
446#ifdef USE_LOCALE_NUMERIC
447
448PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */
449
450#endif
ce08f86c 451
1fcf4c12 452#if defined(USE_ITHREADS)
aefff11f
JD
453PERLVAR(Iregex_pad, SV**) /* All regex objects */
454PERLVAR(Iregex_padav, AV*) /* All regex objects */
e5dd39fc 455
1fcf4c12
AB
456#endif
457
ea68fd67
NC
458#ifdef USE_REENTRANT_API
459PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */
f5a82810
JH
460#endif
461
bf9cdc68 462PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */
aefff11f 463
53e06cf0
SC
464PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */
465PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */
19e8ce8e 466
a1ea730d
NIS
467#ifdef PERLIO_LAYERS
468PERLVARI(Iperlio, PerlIO *,NULL)
3a1ee7e8
NIS
469PERLVARI(Iknown_layers, PerlIO_list_t *,NULL)
470PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL)
a1ea730d
NIS
471#endif
472
0a378802
JH
473PERLVARI(Iencoding, SV*, Nullsv) /* character encoding */
474
128e8167 475PERLVAR(Idebug_pad, struct perl_debug_pad) /* always needed because of the re extension */
ce333219 476
6537fe72
MS
477PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */
478
238a4c30 479#ifdef PL_OP_SLAB_ALLOC
5a8e194f
NIS
480PERLVAR(IOpPtr,I32 **)
481PERLVARI(IOpSpace,I32,0)
482PERLVAR(IOpSlab,I32 *)
238a4c30
NIS
483#endif
484
a05d7ebb 485PERLVAR(Iutf8locale, bool) /* utf8 locale detected */
b310b053 486
82686b01
JH
487PERLVAR(Iutf8_idstart, SV *)
488PERLVAR(Iutf8_idcont, SV *)
489
147f47de
AB
490PERLVAR(Isort_RealCmp, SVCOMPARE_t)
491
ece599bd
RGS
492PERLVARI(Icheckav_save, AV*, Nullav) /* save CHECK{}s when compiling */
493
5311654c
JH
494PERLVARI(Iclocktick, long, 0) /* this many times() ticks in a second */
495
edab1aa3
JH
496PERLVARI(Iin_load_module, int, 0) /* to prevent recursions in PerlIO_find_layer */
497
a05d7ebb
JH
498PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
499
4ffa73a3
JH
500PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */
501
081fc587
AB
502PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */
503
57c6e6d2
JH
504PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions */
505
15a5279a
JH
506/* Hooks to shared SVs and locks. */
507PERLVARI(Isharehook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
508PERLVARI(Ilockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nolocking))
509PERLVARI(Iunlockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nounlocking))
510PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
511
bce260cd
JH
512/* Force inclusion of both runops options */
513PERLVARI(Irunops_std, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_standard))
514PERLVARI(Irunops_dbg, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_debug))
515
516/* Stores the PPID */
517#ifdef THREADS_HAVE_PIDS
518PERLVARI(Ippid, IV, 0)
519#endif
520
504f80c1
JH
521PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */
522
bed60192
JH
523PERLVARI(Ihash_seed_set, bool, FALSE) /* Hash initialized? */
524
8b5c2100
JH
525PERLVAR(IDBassertion, SV *)
526
b5c19bd7
DM
527PERLVARI(Icv_has_eval, I32, 0) /* PL_compcv includes an entereval or similar */
528
008fb0c0 529PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */
4b5190b5 530
008fb0c0 531PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
4b5190b5 532
ae3f3efd
PS
533/* These two variables are needed to preserve 5.8.x bincompat because we can't
534 change function prototypes of two exported functions. Probably should be
535 taken out of blead soon, and relevant prototypes changed. */
536PERLVARI(Ifdscript, int, -1) /* fd for script */
537PERLVARI(Isuidscript, int, -1) /* fd for suid script */
edab1aa3
JH
538/* New variables must be added to the very end, before this comment,
539 * for binary compatibility (the offsets of the old members must not change).
b83cd129 540 * (Don't forget to add your variable also to perl_clone()!)
e3acbfda 541 * XSUB.h provides wrapper functions via perlapi.h that make this
b83cd129
JH
542 * irrelevant, but not all code may be expected to #include XSUB.h.
543 */
d7a09b41 544