Map the HE arena onto SV type 0 (SVt_NULL).
[p5sagit/p5-mst-13.2.git] / intrpvar.h
CommitLineData
49f531da 1/***********************************************/
2/* Global only to current interpreter instance */
3/***********************************************/
4
cb68f92d 5/* Don't forget to re-run embed.pl to propagate changes! */
6
6537fe72 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 11/* Don't forget to add your variable also to perl_clone()! */
12
cb68f92d 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 20PERLVAR(Iorigargc, int)
21PERLVAR(Iorigargv, char **)
22PERLVAR(Ienvgv, GV *)
cb68f92d 23PERLVAR(Iincgv, GV *)
b3ac6de7 24PERLVAR(Ihintgv, GV *)
cb68f92d 25PERLVAR(Iorigfilename, char *)
26PERLVAR(Idiehook, SV *)
27PERLVAR(Iwarnhook, SV *)
1d7c1841 28
29/* switches */
cb68f92d 30PERLVAR(Iminus_c, bool)
a7cb1f99 31PERLVAR(Ipatchlevel, SV *)
27da23d5 32PERLVAR(Ilocalpatches, const char * const *)
dd374669 33PERLVARI(Isplitstr, const char *, " ")
cb68f92d 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 41
42/*
ccfc67b7 43=head1 Global Variables
44
2eb25c99 45=for apidoc mn|bool|PL_dowarn
954c1994 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 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 64
65/* magical thingies */
66PERLVAR(Ibasetime, Time_t) /* $^T */
67PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1 68
69
cb68f92d 70PERLVARI(Imaxsysfd, I32, MAXSYSFD)
71 /* top fd to pass to subprocesses */
49f531da 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 77#else
78PERLVAR(Istatusvalue_posix,I32)
49f531da 79#endif
80
49f531da 81/* shortcuts to various I/O objects */
cb68f92d 82PERLVAR(Istdingv, GV *)
bf49b057 83PERLVAR(Istderrgv, GV *)
cb68f92d 84PERLVAR(Idefgv, GV *)
85PERLVAR(Iargvgv, GV *)
86PERLVAR(Iargvoutgv, GV *)
1d7c1841 87PERLVAR(Iargvout_stack, AV *)
49f531da 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 93
94/* shortcuts to misc objects */
cb68f92d 95PERLVAR(Ierrgv, GV *)
49f531da 96
97/* shortcuts to debugging objects */
cb68f92d 98PERLVAR(IDBgv, GV *)
99PERLVAR(IDBline, GV *)
954c1994 100
101/*
2eb25c99 102=for apidoc mn|GV *|PL_DBsub
954c1994 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 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 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 123PERLVAR(IDBsub, GV *)
124PERLVAR(IDBsingle, SV *)
125PERLVAR(IDBtrace, SV *)
126PERLVAR(IDBsignal, SV *)
49f531da 127PERLVAR(Ilineary, AV *) /* lines of script for debugger */
128PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
129
130/* symbol tables */
49f531da 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 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 140
141/* memory management */
49f531da 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 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 152
153/* internal state */
49f531da 154PERLVAR(Itainting, bool) /* doing taint checks */
155PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
156
49f531da 157/* current interpreter roots */
cb68f92d 158PERLVAR(Imain_cv, CV *)
159PERLVAR(Imain_root, OP *)
160PERLVAR(Imain_start, OP *)
161PERLVAR(Ieval_root, OP *)
162PERLVAR(Ieval_start, OP *)
49f531da 163
164/* runtime control stuff */
cb68f92d 165PERLVARI(Icurcopdb, COP *, NULL)
166PERLVARI(Icopline, line_t, NOLINE)
49f531da 167
168/* statics moved here for shared library purposes */
49f531da 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 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 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 185PERLVARI(Iexitlist, PerlExitListEntry *, NULL)
186 /* list of exit functions */
187PERLVARI(Iexitlistlen, I32, 0) /* length of same */
954c1994 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 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 196prefixed by the package name of the extension that owns the data.
197
198=cut
199*/
200
cb68f92d 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 */
205PERLVARI(Irsfp, PerlIO * VOL, Nullfp) /* current source file pointer */
206PERLVARI(Irsfp_filters, AV *, Nullav) /* keeps active source filters */
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 215
216#ifdef HAVE_INTERP_INTERN
cb68f92d 217PERLVAR(Isys_intern, struct interp_intern)
218 /* platform internals */
4b556e6c 219#endif
220
7fae4e64 221/* more statics moved here */
7fae4e64 222PERLVARI(Igeneration, int, 100) /* from op.c */
223PERLVAR(IDBcv, CV *) /* from perl.c */
56953603 224
cb68f92d 225PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
226PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
7fae4e64 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 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 237PERLVARI(Ian, U32, 0) /* malloc sequence number */
238PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */
bf9cdc68 239PERLVARI(Ievalseq, U32, 0) /* eval sequence number */
0672f40e 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 245PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */
246PERLVAR(Iosname, char *) /* operating system */
5c728af0 247
0672f40e 248PERLVAR(Isighandlerp, Sighandler_t)
249
93e68bfb 250PERLVARA(Ibody_roots, SVt_LAST, void*) /* array of body roots */
251
0672f40e 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 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 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 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 286PERLVAR(Ilex_brackets, I32) /* bracket count */
287PERLVAR(Ilex_formbrack, I32) /* bracket count at outer format level */
0672f40e 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. */
51371543 300PERLVARA(Inextval,5, YYSTYPE) /* value of next token, if any */
301PERLVARA(Inexttype,5, I32) /* type of next token */
0672f40e 302PERLVAR(Inexttoke, I32)
303
304PERLVAR(Ilinestr, SV *)
305PERLVAR(Ibufptr, char *)
306PERLVAR(Ioldbufptr, char *)
307PERLVAR(Ioldoldbufptr, char *)
308PERLVAR(Ibufend, char *)
1d7c1841 309PERLVARI(Iexpect,int, XSTATE) /* how to interpret ambiguous tokens */
0672f40e 310
311PERLVAR(Imulti_start, I32) /* 1st line of multi-line string */
312PERLVAR(Imulti_end, I32) /* last line of multi-line string */
313PERLVAR(Imulti_open, I32) /* delimiter of said string */
314PERLVAR(Imulti_close, I32) /* delimiter of said string */
315
316PERLVAR(Ierror_count, I32) /* how many errors so far, max 10 */
317PERLVAR(Isubline, I32) /* line this subroutine began on */
318PERLVAR(Isubname, SV *) /* name of current subroutine */
319
320PERLVAR(Imin_intro_pending, I32) /* start of vars to introduce */
321PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */
322PERLVAR(Ipadix, I32) /* max used index in current "register" pad */
323PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */
324PERLVAR(Ipad_reset_pending, I32) /* reset pad on next attempted alloc */
325
0672f40e 326PERLVAR(Ilast_uni, char *) /* position of last named-unary op */
327PERLVAR(Ilast_lop, char *) /* position of last list operator */
328PERLVAR(Ilast_lop_op, OPCODE) /* last list operator */
77ca0c92 329PERLVAR(Iin_my, I32) /* we're compiling a "my" (or "our") declaration */
0672f40e 330PERLVAR(Iin_my_stash, HV *) /* declared class of this "my" declaration */
331#ifdef FCRYPT
bf9cdc68 332PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */
0672f40e 333#endif
334
1d7c1841 335PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */
0672f40e 336
337PERLVAR(Idebug, VOL U32) /* flags given to -D switch */
338
bf9cdc68 339PERLVARI(Iamagic_generation, long, 0)
0672f40e 340
341#ifdef USE_LOCALE_COLLATE
bf9cdc68 342PERLVARI(Icollation_ix, U32, 0) /* Collation generation index */
0672f40e 343PERLVAR(Icollation_name,char *) /* Name of current collation */
344PERLVARI(Icollation_standard, bool, TRUE)
345 /* Assume simple collation */
346PERLVAR(Icollxfrm_base, Size_t) /* Basic overhead in *xfrm() */
347PERLVARI(Icollxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */
348#endif /* USE_LOCALE_COLLATE */
349
350#ifdef USE_LOCALE_NUMERIC
351
352PERLVAR(Inumeric_name, char *) /* Name of current numeric locale */
353PERLVARI(Inumeric_standard, bool, TRUE)
354 /* Assume simple numerics */
355PERLVARI(Inumeric_local, bool, TRUE)
356 /* Assume local numerics */
357
a453c169 358PERLVAR(Inumeric_compat1, char)
359 /* Used to be numeric_radix */
0672f40e 360#endif /* !USE_LOCALE_NUMERIC */
361
362/* utf8 character classes */
363PERLVAR(Iutf8_alnum, SV *)
b8c5462f 364PERLVAR(Iutf8_alnumc, SV *)
365PERLVAR(Iutf8_ascii, SV *)
0672f40e 366PERLVAR(Iutf8_alpha, SV *)
367PERLVAR(Iutf8_space, SV *)
b8c5462f 368PERLVAR(Iutf8_cntrl, SV *)
369PERLVAR(Iutf8_graph, SV *)
0672f40e 370PERLVAR(Iutf8_digit, SV *)
371PERLVAR(Iutf8_upper, SV *)
372PERLVAR(Iutf8_lower, SV *)
373PERLVAR(Iutf8_print, SV *)
b8c5462f 374PERLVAR(Iutf8_punct, SV *)
375PERLVAR(Iutf8_xdigit, SV *)
0672f40e 376PERLVAR(Iutf8_mark, SV *)
377PERLVAR(Iutf8_toupper, SV *)
378PERLVAR(Iutf8_totitle, SV *)
379PERLVAR(Iutf8_tolower, SV *)
b4e400f9 380PERLVAR(Iutf8_tofold, SV *)
0672f40e 381PERLVAR(Ilast_swash_hv, HV *)
382PERLVAR(Ilast_swash_klen, U32)
51371543 383PERLVARA(Ilast_swash_key,10, U8)
0672f40e 384PERLVAR(Ilast_swash_tmps, U8 *)
385PERLVAR(Ilast_swash_slen, STRLEN)
386
12fbd33b 387/* perly.c globals */
388PERLVAR(Iyycharp, int *)
389PERLVAR(Iyylvalp, YYSTYPE *)
390
bf9cdc68 391PERLVARI(Iglob_index, int, 0)
0672f40e 392PERLVAR(Isrand_called, bool)
51371543 393PERLVARA(Iuudmap,256, char)
0672f40e 394PERLVAR(Ibitcount, char *)
0672f40e 395
1d7c1841 396PERLVAR(Ipsig_ptr, SV**)
397PERLVAR(Ipsig_name, SV**)
398
c5be433b 399#if defined(PERL_IMPLICIT_SYS)
32e30700 400PERLVAR(IMem, struct IPerlMem*)
1d7c1841 401PERLVAR(IMemShared, struct IPerlMem*)
402PERLVAR(IMemParse, struct IPerlMem*)
32e30700 403PERLVAR(IEnv, struct IPerlEnv*)
404PERLVAR(IStdIO, struct IPerlStdIO*)
405PERLVAR(ILIO, struct IPerlLIO*)
406PERLVAR(IDir, struct IPerlDir*)
407PERLVAR(ISock, struct IPerlSock*)
408PERLVAR(IProc, struct IPerlProc*)
76e3520e 409#endif
1d7c1841 410
411#if defined(USE_ITHREADS)
412PERLVAR(Iptr_table, PTR_TBL_t*)
413#endif
059a8bb7 414PERLVARI(Ibeginav_save, AV*, Nullav) /* save BEGIN{}s when compiling */
f180df80 415
93e68bfb 416PERLVARA(Ibody_arenaroots, SVt_LAST, void*) /* consolidated body-arena pointers */
417
a453c169 418 /* 5.6.0 stopped here */
419
ce08f86c 420PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */
421PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */
422
a453c169 423#ifdef USE_LOCALE_NUMERIC
424
425PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */
426
427#endif
ce08f86c 428
1fcf4c12 429#if defined(USE_ITHREADS)
aefff11f 430PERLVAR(Iregex_pad, SV**) /* All regex objects */
431PERLVAR(Iregex_padav, AV*) /* All regex objects */
e5dd39fc 432
1fcf4c12 433#endif
434
ea68fd67 435#ifdef USE_REENTRANT_API
436PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */
f5a82810 437#endif
438
bf9cdc68 439PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */
aefff11f 440
53e06cf0 441PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */
442PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */
19e8ce8e 443
a1ea730d 444#ifdef PERLIO_LAYERS
445PERLVARI(Iperlio, PerlIO *,NULL)
3a1ee7e8 446PERLVARI(Iknown_layers, PerlIO_list_t *,NULL)
447PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL)
a1ea730d 448#endif
449
0a378802 450PERLVARI(Iencoding, SV*, Nullsv) /* character encoding */
451
128e8167 452PERLVAR(Idebug_pad, struct perl_debug_pad) /* always needed because of the re extension */
ce333219 453
6537fe72 454PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */
455
238a4c30 456#ifdef PL_OP_SLAB_ALLOC
5a8e194f 457PERLVAR(IOpPtr,I32 **)
458PERLVARI(IOpSpace,I32,0)
459PERLVAR(IOpSlab,I32 *)
238a4c30 460#endif
461
a05d7ebb 462PERLVAR(Iutf8locale, bool) /* utf8 locale detected */
b310b053 463
82686b01 464PERLVAR(Iutf8_idstart, SV *)
465PERLVAR(Iutf8_idcont, SV *)
466
147f47de 467PERLVAR(Isort_RealCmp, SVCOMPARE_t)
468
ece599bd 469PERLVARI(Icheckav_save, AV*, Nullav) /* save CHECK{}s when compiling */
470
5311654c 471PERLVARI(Iclocktick, long, 0) /* this many times() ticks in a second */
472
edab1aa3 473PERLVARI(Iin_load_module, int, 0) /* to prevent recursions in PerlIO_find_layer */
474
a05d7ebb 475PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
476
4ffa73a3 477PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */
478
081fc587 479PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */
480
57c6e6d2 481PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions */
482
15a5279a 483/* Hooks to shared SVs and locks. */
484PERLVARI(Isharehook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d5b2b27b 485PERLVARI(Ilockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
486PERLVARI(Iunlockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
15a5279a 487PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
488
bce260cd 489/* Force inclusion of both runops options */
490PERLVARI(Irunops_std, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_standard))
491PERLVARI(Irunops_dbg, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_debug))
492
493/* Stores the PPID */
494#ifdef THREADS_HAVE_PIDS
495PERLVARI(Ippid, IV, 0)
496#endif
497
504f80c1 498PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */
499
bed60192 500PERLVARI(Ihash_seed_set, bool, FALSE) /* Hash initialized? */
501
8b5c2100 502PERLVAR(IDBassertion, SV *)
503
b5c19bd7 504PERLVARI(Icv_has_eval, I32, 0) /* PL_compcv includes an entereval or similar */
505
008fb0c0 506PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */
4b5190b5 507
008fb0c0 508PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
4b5190b5 509
ae3f3efd 510/* These two variables are needed to preserve 5.8.x bincompat because we can't
511 change function prototypes of two exported functions. Probably should be
512 taken out of blead soon, and relevant prototypes changed. */
513PERLVARI(Ifdscript, int, -1) /* fd for script */
514PERLVARI(Isuidscript, int, -1) /* fd for suid script */
41e4abd8 515#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
516/* File descriptor to talk to the child which dumps scalars. */
517PERLVARI(Idumper_fd, int, -1)
518#endif
edab1aa3 519/* New variables must be added to the very end, before this comment,
520 * for binary compatibility (the offsets of the old members must not change).
b83cd129 521 * (Don't forget to add your variable also to perl_clone()!)
e3acbfda 522 * XSUB.h provides wrapper functions via perlapi.h that make this
b83cd129 523 * irrelevant, but not all code may be expected to #include XSUB.h.
524 */