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