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