This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add Log::Message and Log::Message::Simple to the core
[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)
bc9b29db 41PERLVAR(Iminus_E, bool)
954c1994
GS
42
43/*
ccfc67b7
JH
44=head1 Global Variables
45
2eb25c99 46=for apidoc mn|bool|PL_dowarn
954c1994
GS
47
48The C variable which corresponds to Perl's $^W warning variable.
49
50=cut
51*/
52
d41ff1b8 53PERLVAR(Idowarn, U8)
a05d7ebb 54PERLVAR(Iwidesyscalls, bool) /* unused since 5.8.1 */
cb68f92d 55PERLVAR(Idoextract, bool)
49f531da 56PERLVAR(Isawampersand, bool) /* must save all match strings */
cb68f92d
GS
57PERLVAR(Iunsafe, bool)
58PERLVAR(Iinplace, char *)
59PERLVAR(Ie_script, SV *)
60PERLVAR(Iperldb, U32)
d4cce5f1 61
1d7c1841 62/* This value may be set when embedding for full cleanup */
d4cce5f1 63/* 0=none, 1=full, 2=full with checks */
7c474504 64PERLVARI(Iperl_destruct_level, int, 0)
49f531da
NIS
65
66/* magical thingies */
67PERLVAR(Ibasetime, Time_t) /* $^T */
68PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1
NIS
69
70
cb68f92d
GS
71PERLVARI(Imaxsysfd, I32, MAXSYSFD)
72 /* top fd to pass to subprocesses */
49f531da 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 $\ */
d4cce5f1 183
4b556e6c 184/* interpreter atexit processing */
cb68f92d
GS
185PERLVARI(Iexitlist, PerlExitListEntry *, NULL)
186 /* list of exit functions */
187PERLVARI(Iexitlistlen, I32, 0) /* length of same */
954c1994
GS
188
189/*
190=for apidoc Amn|HV*|PL_modglobal
191
7889fe52 192C<PL_modglobal> is a general purpose, interpreter global HV for use by
954c1994 193extensions that need to keep information on a per-interpreter basis.
7889fe52
NIS
194In a pinch, it can also be used as a symbol table for extensions
195to share data among each other. It is a good idea to use keys
954c1994
GS
196prefixed by the package name of the extension that owns the data.
197
198=cut
199*/
200
cb68f92d
GS
201PERLVAR(Imodglobal, HV *) /* per-interp module data */
202
203/* these used to be in global before 5.004_68 */
204PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */
4608196e 205PERLVARI(Irsfp, PerlIO * VOL, NULL) /* current source file pointer */
7d49f689 206PERLVARI(Irsfp_filters, AV *, NULL) /* keeps active source filters */
cb68f92d
GS
207
208PERLVAR(Icompiling, COP) /* compiling/done executing marker */
209
210PERLVAR(Icompcv, CV *) /* currently compiling subroutine */
211PERLVAR(Icomppad, AV *) /* storage for lexically scoped temporaries */
212PERLVAR(Icomppad_name, AV *) /* variable names for "my" variables */
213PERLVAR(Icomppad_name_fill, I32) /* last "introduced" variable offset */
214PERLVAR(Icomppad_name_floor, I32) /* start of vars in innermost block */
4b556e6c
JD
215
216#ifdef HAVE_INTERP_INTERN
cb68f92d
GS
217PERLVAR(Isys_intern, struct interp_intern)
218 /* platform internals */
4b556e6c
JD
219#endif
220
7fae4e64 221/* more statics moved here */
7fae4e64
GS
222PERLVARI(Igeneration, int, 100) /* from op.c */
223PERLVAR(IDBcv, CV *) /* from perl.c */
56953603 224
cb68f92d
GS
225PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
226PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
7fae4e64
GS
227
228PERLVAR(Ilinestart, char *) /* beg. of most recently read line */
229PERLVAR(Ipending_ident, char) /* pending identifier lookup */
230PERLVAR(Isublex_info, SUBLEXINFO) /* from toke.c */
231
d8eceb89
JH
232PERLVAR(Iuid, Uid_t) /* current real user id */
233PERLVAR(Ieuid, Uid_t) /* current effective user id */
234PERLVAR(Igid, Gid_t) /* current real group id */
235PERLVAR(Iegid, Gid_t) /* current effective group id */
0672f40e 236PERLVAR(Inomemok, bool) /* let malloc context handle nomem */
bf9cdc68
RG
237PERLVARI(Ian, U32, 0) /* malloc sequence number */
238PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */
bf9cdc68 239PERLVARI(Ievalseq, U32, 0) /* eval sequence number */
0672f40e
GS
240PERLVAR(Iorigenviron, char **)
241PERLVAR(Iorigalen, U32)
ca0c25f6 242#ifdef PERL_USES_PL_PIDSTATUS
0672f40e 243PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */
ca0c25f6 244#endif
0672f40e
GS
245PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */
246PERLVAR(Iosname, char *) /* operating system */
5c728af0 247
0672f40e
GS
248PERLVAR(Isighandlerp, Sighandler_t)
249
232d1c15 250PERLVARA(Ibody_roots, PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
93e68bfb 251
0672f40e
GS
252PERLVAR(Inice_chunk, char *) /* a nice chunk of memory to reuse */
253PERLVAR(Inice_chunk_size, U32) /* how nice the chunk of memory is */
254
0b94c7bb 255PERLVARI(Irunops, runops_proc_t, MEMBER_TO_FPTR(RUNOPS_DEFAULT))
0672f40e 256
51371543 257PERLVARA(Itokenbuf,256, char)
0672f40e 258
954c1994
GS
259/*
260=for apidoc Amn|SV|PL_sv_undef
261This is the C<undef> SV. Always refer to this as C<&PL_sv_undef>.
262
263=for apidoc Amn|SV|PL_sv_no
264This is the C<false> SV. See C<PL_sv_yes>. Always refer to this as
265C<&PL_sv_no>.
266
267=for apidoc Amn|SV|PL_sv_yes
268This is the C<true> SV. See C<PL_sv_no>. Always refer to this as
269C<&PL_sv_yes>.
270
271=cut
272*/
273
0672f40e
GS
274PERLVAR(Isv_undef, SV)
275PERLVAR(Isv_no, SV)
276PERLVAR(Isv_yes, SV)
277
278#ifdef CSH
dd374669 279PERLVARI(Icshname, const char *, CSH)
bf9cdc68 280PERLVARI(Icshlen, I32, 0)
0672f40e
GS
281#endif
282
283PERLVAR(Ilex_state, U32) /* next token is determined */
284PERLVAR(Ilex_defer, U32) /* state after determined token */
1d7c1841 285PERLVAR(Ilex_expect, int) /* expect after determined token */
0672f40e
GS
286PERLVAR(Ilex_brackets, I32) /* bracket count */
287PERLVAR(Ilex_formbrack, I32) /* bracket count at outer format level */
0672f40e
GS
288PERLVAR(Ilex_casemods, I32) /* casemod count */
289PERLVAR(Ilex_dojoin, I32) /* doing an array interpolation */
290PERLVAR(Ilex_starts, I32) /* how many interps done on level */
291PERLVAR(Ilex_stuff, SV *) /* runtime pattern from m// or s/// */
292PERLVAR(Ilex_repl, SV *) /* runtime replacement from s/// */
293PERLVAR(Ilex_op, OP *) /* extra info to pass back on op */
294PERLVAR(Ilex_inpat, OP *) /* in pattern $) and $| are special */
295PERLVAR(Ilex_inwhat, I32) /* what kind of quoting are we in */
296PERLVAR(Ilex_brackstack,char *) /* what kind of brackets to pop */
297PERLVAR(Ilex_casestack, char *) /* what kind of case mods in effect */
298
299/* What we know when we're in LEX_KNOWNEXT state. */
5db06880
NC
300#ifdef PERL_MAD
301PERLVARA(Inexttoke,5, NEXTTOKE) /* value of next token, if any */
3aa8deba 302PERLVAR(Ilasttoke, I32)
5336380d
NC
303PERLVAR(Irealtokenstart,I32)
304PERLVAR(Ifaketokens, I32)
305PERLVAR(Ithismad, MADPROP *)
306PERLVAR(Ithistoken, SV *)
307PERLVAR(Ithisopen, SV *)
308PERLVAR(Ithisstuff, SV *)
309PERLVAR(Ithisclose, SV *)
310PERLVAR(Ithiswhite, SV *)
311PERLVAR(Inextwhite, SV *)
312PERLVAR(Iskipwhite, SV *)
313PERLVAR(Iendwhite, SV *)
314PERLVAR(Icurforce, I32)
f8565a66 315#else
51371543
GS
316PERLVARA(Inextval,5, YYSTYPE) /* value of next token, if any */
317PERLVARA(Inexttype,5, I32) /* type of next token */
0672f40e 318PERLVAR(Inexttoke, I32)
5db06880 319#endif
0672f40e
GS
320
321PERLVAR(Ilinestr, SV *)
322PERLVAR(Ibufptr, char *)
323PERLVAR(Ioldbufptr, char *)
324PERLVAR(Ioldoldbufptr, char *)
325PERLVAR(Ibufend, char *)
1d7c1841 326PERLVARI(Iexpect,int, XSTATE) /* how to interpret ambiguous tokens */
0672f40e
GS
327
328PERLVAR(Imulti_start, I32) /* 1st line of multi-line string */
329PERLVAR(Imulti_end, I32) /* last line of multi-line string */
330PERLVAR(Imulti_open, I32) /* delimiter of said string */
331PERLVAR(Imulti_close, I32) /* delimiter of said string */
332
333PERLVAR(Ierror_count, I32) /* how many errors so far, max 10 */
334PERLVAR(Isubline, I32) /* line this subroutine began on */
335PERLVAR(Isubname, SV *) /* name of current subroutine */
336
337PERLVAR(Imin_intro_pending, I32) /* start of vars to introduce */
338PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */
339PERLVAR(Ipadix, I32) /* max used index in current "register" pad */
340PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */
341PERLVAR(Ipad_reset_pending, I32) /* reset pad on next attempted alloc */
342
0672f40e
GS
343PERLVAR(Ilast_uni, char *) /* position of last named-unary op */
344PERLVAR(Ilast_lop, char *) /* position of last list operator */
345PERLVAR(Ilast_lop_op, OPCODE) /* last list operator */
77ca0c92 346PERLVAR(Iin_my, I32) /* we're compiling a "my" (or "our") declaration */
0672f40e
GS
347PERLVAR(Iin_my_stash, HV *) /* declared class of this "my" declaration */
348#ifdef FCRYPT
bf9cdc68 349PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */
0672f40e
GS
350#endif
351
1d7c1841 352PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */
0672f40e
GS
353
354PERLVAR(Idebug, VOL U32) /* flags given to -D switch */
355
bf9cdc68 356PERLVARI(Iamagic_generation, long, 0)
0672f40e
GS
357
358#ifdef USE_LOCALE_COLLATE
bf9cdc68 359PERLVARI(Icollation_ix, U32, 0) /* Collation generation index */
0672f40e
GS
360PERLVAR(Icollation_name,char *) /* Name of current collation */
361PERLVARI(Icollation_standard, bool, TRUE)
362 /* Assume simple collation */
363PERLVAR(Icollxfrm_base, Size_t) /* Basic overhead in *xfrm() */
364PERLVARI(Icollxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */
365#endif /* USE_LOCALE_COLLATE */
366
367#ifdef USE_LOCALE_NUMERIC
368
369PERLVAR(Inumeric_name, char *) /* Name of current numeric locale */
370PERLVARI(Inumeric_standard, bool, TRUE)
371 /* Assume simple numerics */
372PERLVARI(Inumeric_local, bool, TRUE)
373 /* Assume local numerics */
374
a453c169
JH
375PERLVAR(Inumeric_compat1, char)
376 /* Used to be numeric_radix */
0672f40e
GS
377#endif /* !USE_LOCALE_NUMERIC */
378
379/* utf8 character classes */
380PERLVAR(Iutf8_alnum, SV *)
b8c5462f
JH
381PERLVAR(Iutf8_alnumc, SV *)
382PERLVAR(Iutf8_ascii, SV *)
0672f40e
GS
383PERLVAR(Iutf8_alpha, SV *)
384PERLVAR(Iutf8_space, SV *)
b8c5462f
JH
385PERLVAR(Iutf8_cntrl, SV *)
386PERLVAR(Iutf8_graph, SV *)
0672f40e
GS
387PERLVAR(Iutf8_digit, SV *)
388PERLVAR(Iutf8_upper, SV *)
389PERLVAR(Iutf8_lower, SV *)
390PERLVAR(Iutf8_print, SV *)
b8c5462f
JH
391PERLVAR(Iutf8_punct, SV *)
392PERLVAR(Iutf8_xdigit, SV *)
0672f40e
GS
393PERLVAR(Iutf8_mark, SV *)
394PERLVAR(Iutf8_toupper, SV *)
395PERLVAR(Iutf8_totitle, SV *)
396PERLVAR(Iutf8_tolower, SV *)
b4e400f9 397PERLVAR(Iutf8_tofold, SV *)
0672f40e
GS
398PERLVAR(Ilast_swash_hv, HV *)
399PERLVAR(Ilast_swash_klen, U32)
51371543 400PERLVARA(Ilast_swash_key,10, U8)
0672f40e
GS
401PERLVAR(Ilast_swash_tmps, U8 *)
402PERLVAR(Ilast_swash_slen, STRLEN)
403
12fbd33b
DM
404/* perly.c globals */
405PERLVAR(Iyycharp, int *)
406PERLVAR(Iyylvalp, YYSTYPE *)
407
bf9cdc68 408PERLVARI(Iglob_index, int, 0)
0672f40e 409PERLVAR(Isrand_called, bool)
51371543 410PERLVARA(Iuudmap,256, char)
0672f40e 411PERLVAR(Ibitcount, char *)
0672f40e 412
1d7c1841
GS
413PERLVAR(Ipsig_ptr, SV**)
414PERLVAR(Ipsig_name, SV**)
415
c5be433b 416#if defined(PERL_IMPLICIT_SYS)
32e30700 417PERLVAR(IMem, struct IPerlMem*)
1d7c1841
GS
418PERLVAR(IMemShared, struct IPerlMem*)
419PERLVAR(IMemParse, struct IPerlMem*)
32e30700
GS
420PERLVAR(IEnv, struct IPerlEnv*)
421PERLVAR(IStdIO, struct IPerlStdIO*)
422PERLVAR(ILIO, struct IPerlLIO*)
423PERLVAR(IDir, struct IPerlDir*)
424PERLVAR(ISock, struct IPerlSock*)
425PERLVAR(IProc, struct IPerlProc*)
76e3520e 426#endif
1d7c1841
GS
427
428#if defined(USE_ITHREADS)
429PERLVAR(Iptr_table, PTR_TBL_t*)
430#endif
7d49f689 431PERLVARI(Ibeginav_save, AV*, NULL) /* save BEGIN{}s when compiling */
f180df80 432
fdda85ca 433PERLVAR(Ibody_arenas, void*) /* pointer to list of body-arenas */
93e68bfb 434
a453c169
JH
435 /* 5.6.0 stopped here */
436
ce08f86c
NIS
437PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */
438PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */
439
a453c169
JH
440#ifdef USE_LOCALE_NUMERIC
441
442PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */
443
444#endif
ce08f86c 445
1fcf4c12 446#if defined(USE_ITHREADS)
aefff11f
JD
447PERLVAR(Iregex_pad, SV**) /* All regex objects */
448PERLVAR(Iregex_padav, AV*) /* All regex objects */
e5dd39fc 449
1fcf4c12
AB
450#endif
451
ea68fd67
NC
452#ifdef USE_REENTRANT_API
453PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */
f5a82810
JH
454#endif
455
bf9cdc68 456PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */
aefff11f 457
598921a7
NC
458#ifdef PERL_MAD
459PERLVARI(Imadskills, bool, FALSE) /* preserve all syntactic info */
460 /* (MAD = Misc Attribute Decoration) */
461PERLVARI(Ixmlfp, PerlIO *,NULL)
462#endif
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
a0714e2c 473PERLVARI(Iencoding, SV*, NULL) /* character encoding */
0a378802 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
7d49f689 492PERLVARI(Icheckav_save, AV*, NULL) /* save CHECK{}s when compiling */
ece599bd 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))
d5b2b27b 508PERLVARI(Ilockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d0647d4e
NC
509#ifdef NO_MATHOMS
510# define PERL_UNLOCK_HOOK Perl_sv_nosharing
511#else
512/* This reference ensures that the mathoms are linked with perl */
513# define PERL_UNLOCK_HOOK Perl_sv_nounlocking
514#endif
515PERLVARI(Iunlockhook, share_proc_t, MEMBER_TO_FPTR(PERL_UNLOCK_HOOK))
516
15a5279a
JH
517PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
518
bce260cd
JH
519/* Force inclusion of both runops options */
520PERLVARI(Irunops_std, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_standard))
521PERLVARI(Irunops_dbg, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_debug))
522
523/* Stores the PPID */
524#ifdef THREADS_HAVE_PIDS
525PERLVARI(Ippid, IV, 0)
526#endif
527
504f80c1
JH
528PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */
529
bed60192
JH
530PERLVARI(Ihash_seed_set, bool, FALSE) /* Hash initialized? */
531
8b5c2100
JH
532PERLVAR(IDBassertion, SV *)
533
b5c19bd7
DM
534PERLVARI(Icv_has_eval, I32, 0) /* PL_compcv includes an entereval or similar */
535
008fb0c0 536PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */
4b5190b5 537
008fb0c0 538PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
4b5190b5 539
41e4abd8
NC
540#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
541/* File descriptor to talk to the child which dumps scalars. */
542PERLVARI(Idumper_fd, int, -1)
543#endif
f16dd614
DM
544
545#ifdef PERL_IMPLICIT_CONTEXT
4c901e72 546PERLVARI(Imy_cxt_size, int, 0) /* size of PL_my_cxt_list */
f16dd614
DM
547PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
548#endif
549
7cb608b5
NC
550#ifdef PERL_TRACK_MEMPOOL
551/* For use with the memory debugging code in util.c */
552PERLVAR(Imemory_debug_header, struct perl_memory_debug_header)
553#endif
554
26346457
NC
555#ifdef PERL_UTF8_CACHE_ASSERT
556PERLVARI(Iutf8cache, I8, -1) /* Is the utf8 caching code enabled? */
557#else
558PERLVARI(Iutf8cache, I8, 1) /* Is the utf8 caching code enabled? */
559#endif
e07ea26a 560
edab1aa3
JH
561/* New variables must be added to the very end, before this comment,
562 * for binary compatibility (the offsets of the old members must not change).
b83cd129 563 * (Don't forget to add your variable also to perl_clone()!)
e3acbfda 564 * XSUB.h provides wrapper functions via perlapi.h that make this
b83cd129
JH
565 * irrelevant, but not all code may be expected to #include XSUB.h.
566 */