This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Bug fix for storing shared objects in shared structures
[perl5.git] / intrpvar.h
CommitLineData
907b3e23
DM
1/* intrpvar.h
2 *
3 * Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
4 * 2006, 2007
5 * by Larry Wall and others
6 *
7 * You may distribute under the terms of either the GNU General Public
8 * License or the Artistic License, as specified in the README file.
9 *
10 */
11
12/*
13=head1 Per-Interpreter Variables
14*/
49f531da 15
907b3e23
DM
16/* These variables are per-interpreter in threaded/multiplicity builds,
17 * global otherwise.
18
19 * Don't forget to re-run embed.pl to propagate changes! */
cb68f92d 20
6537fe72
MS
21/* New variables must be added to the very end for binary compatibility.
22 * XSUB.h provides wrapper functions via perlapi.h that make this
23 * irrelevant, but not all code may be expected to #include XSUB.h. */
24
02506efe
JH
25/* Don't forget to add your variable also to perl_clone()! */
26
cb68f92d
GS
27/* The 'I' prefix is only needed for vars that need appropriate #defines
28 * generated when built with or without MULTIPLICITY. It is also used
29 * to generate the appropriate export list for win32.
30 *
907b3e23
DM
31 * When building without MULTIPLICITY, these variables will be truly global.
32 *
33 * Important ones in the first cache line (if alignment is done right) */
34
35PERLVAR(Istack_sp, SV **) /* top of the stack */
36#ifdef OP_IN_REGISTER
37PERLVAR(Iopsave, OP *)
38#else
39PERLVAR(Iop, OP *) /* currently executing op */
40#endif
41PERLVAR(Icurpad, SV **) /* active pad (lexicals+tmps) */
42
43PERLVAR(Istack_base, SV **)
44PERLVAR(Istack_max, SV **)
45
46PERLVAR(Iscopestack, I32 *) /* scopes we've ENTERed */
47PERLVAR(Iscopestack_ix, I32)
48PERLVAR(Iscopestack_max,I32)
49
50PERLVAR(Isavestack, ANY *) /* items that need to be restored when
51 LEAVEing scopes we've ENTERed */
52PERLVAR(Isavestack_ix, I32)
53PERLVAR(Isavestack_max, I32)
54
55PERLVAR(Itmps_stack, SV **) /* mortals we've made */
56PERLVARI(Itmps_ix, I32, -1)
57PERLVARI(Itmps_floor, I32, -1)
58PERLVAR(Itmps_max, I32)
59PERLVAR(Imodcount, I32) /* how much mod()ification in
60 assignment? */
61
62PERLVAR(Imarkstack, I32 *) /* stack_sp locations we're
63 remembering */
64PERLVAR(Imarkstack_ptr, I32 *)
65PERLVAR(Imarkstack_max, I32 *)
66
67PERLVAR(ISv, SV *) /* used to hold temporary values */
68PERLVAR(IXpv, XPV *) /* used to hold temporary values */
69
70/*
71=for apidoc Amn|STRLEN|PL_na
72
73A convenience variable which is typically used with C<SvPV> when one
74doesn't care about the length of the string. It is usually more efficient
75to either declare a local variable and use that instead or to use the
76C<SvPV_nolen> macro.
77
78=cut
79*/
80
81PERLVAR(Ina, STRLEN) /* for use in SvPV when length is
82 Not Applicable */
83
84/* stat stuff */
85PERLVAR(Istatbuf, Stat_t)
86PERLVAR(Istatcache, Stat_t) /* _ */
87PERLVAR(Istatgv, GV *)
88PERLVARI(Istatname, SV *, NULL)
89
90#ifdef HAS_TIMES
91PERLVAR(Itimesbuf, struct tms)
92#endif
93
94/* Fields used by magic variables such as $@, $/ and so on */
95PERLVAR(Icurpm, PMOP *) /* what to do \ interps in REs from */
96
97/*
98=for apidoc mn|SV*|PL_rs
99
100The input record separator - C<$/> in Perl space.
101
102=for apidoc mn|GV*|PL_last_in_gv
103
104The GV which was last used for a filehandle input operation. (C<< <FH> >>)
105
106=for apidoc mn|SV*|PL_ofs_sv
107
108The output field separator - C<$,> in Perl space.
109
110=cut
111*/
112
113PERLVAR(Irs, SV *) /* input record separator $/ */
114PERLVAR(Ilast_in_gv, GV *) /* GV used in last <FH> */
115PERLVAR(Iofs_sv, SV *) /* output field separator $, */
116PERLVAR(Idefoutgv, GV *) /* default FH for output */
117PERLVARI(Ichopset, const char *, " \n-") /* $: */
118PERLVAR(Iformtarget, SV *)
119PERLVAR(Ibodytarget, SV *)
120PERLVAR(Itoptarget, SV *)
121
122/* Stashes */
123PERLVAR(Idefstash, HV *) /* main symbol table */
124PERLVAR(Icurstash, HV *) /* symbol table for current package */
125
126PERLVAR(Irestartop, OP *) /* propagating an error from croak? */
127PERLVAR(Icurcop, COP * VOL)
128PERLVAR(Icurstack, AV *) /* THE STACK */
129PERLVAR(Icurstackinfo, PERL_SI *) /* current stack + context */
130PERLVAR(Imainstack, AV *) /* the stack when nothing funny is
131 happening */
132
133PERLVAR(Itop_env, JMPENV *) /* ptr to current sigjmp environment */
134PERLVAR(Istart_env, JMPENV) /* empty startup sigjmp environment */
135PERLVARI(Ierrors, SV *, NULL) /* outstanding queued errors */
136
137/* statics "owned" by various functions */
907b3e23
DM
138PERLVAR(Ihv_fetch_ent_mh, HE*) /* owned by hv_fetch_ent() */
139
907b3e23
DM
140PERLVAR(Ilastgotoprobe, OP*) /* from pp_ctl.c */
141
142/* sort stuff */
143PERLVAR(Isortcop, OP *) /* user defined sort routine */
144PERLVAR(Isortstash, HV *) /* which is in some package or other */
145PERLVAR(Ifirstgv, GV *) /* $a */
146PERLVAR(Isecondgv, GV *) /* $b */
147
148/* float buffer */
149PERLVAR(Iefloatbuf, char *)
150PERLVAR(Iefloatsize, STRLEN)
151
152/* regex stuff */
153
154PERLVAR(Iscreamfirst, I32 *)
155PERLVAR(Iscreamnext, I32 *)
156PERLVAR(Ilastscream, SV *)
157
158PERLVAR(Ireg_state, struct re_save_state)
159
160PERLVAR(Iregdummy, regnode) /* from regcomp.c */
161
162PERLVARI(Idumpindent, U16, 4) /* number of blanks per dump
163 indentation level */
164
157b3822
NC
165
166PERLVAR(Iutf8locale, bool) /* utf8 locale detected */
167PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
907b3e23
DM
168
169PERLVARA(Icolors,6, char *) /* from regcomp.c */
170
171PERLVARI(Ipeepp, peep_t, MEMBER_TO_FPTR(Perl_peep))
172 /* Pointer to peephole optimizer */
173
174PERLVARI(Imaxscream, I32, -1)
175PERLVARI(Ireginterp_cnt,I32, 0) /* Whether "Regexp" was interpolated. */
176PERLVARI(Iwatchaddr, char **, 0)
177PERLVAR(Iwatchok, char *)
178
179/* the currently active slab in a chain of slabs of regmatch states,
180 * and the currently active state within that slab */
181
182PERLVARI(Iregmatch_slab, regmatch_slab *, NULL)
183PERLVAR(Iregmatch_state, regmatch_state *)
184
907b3e23 185/* Put anything new that is pointer aligned here. */
d95e864f 186
907b3e23
DM
187PERLVAR(Idelaymagic, U16) /* ($<,$>) = ... */
188PERLVAR(Ilocalizing, U8) /* are we processing a local() list? */
189PERLVAR(Icolorset, bool) /* from regcomp.c */
190PERLVARI(Idirty, bool, FALSE) /* in the middle of tearing things
191 down? */
192PERLVAR(Iin_eval, VOL U8) /* trap "fatal" errors? */
193PERLVAR(Itainted, bool) /* using variables controlled by $< */
d95e864f
NC
194
195/* This value may be set when embedding for full cleanup */
196/* 0=none, 1=full, 2=full with checks */
197PERLVARI(Iperl_destruct_level, U8, 0)
198
199PERLVAR(Iperldb, U32)
200
49f531da 201/* pseudo environmental stuff */
d95e864f 202PERLVAR(Iorigargc, int)
cb68f92d
GS
203PERLVAR(Iorigargv, char **)
204PERLVAR(Ienvgv, GV *)
cb68f92d 205PERLVAR(Iincgv, GV *)
b3ac6de7 206PERLVAR(Ihintgv, GV *)
cb68f92d
GS
207PERLVAR(Iorigfilename, char *)
208PERLVAR(Idiehook, SV *)
209PERLVAR(Iwarnhook, SV *)
1d7c1841
GS
210
211/* switches */
a7cb1f99 212PERLVAR(Ipatchlevel, SV *)
27da23d5 213PERLVAR(Ilocalpatches, const char * const *)
dd374669 214PERLVARI(Isplitstr, const char *, " ")
9f7da6d5
NC
215
216PERLVAR(Iminus_c, bool)
cb68f92d
GS
217PERLVAR(Ipreprocess, bool)
218PERLVAR(Iminus_n, bool)
219PERLVAR(Iminus_p, bool)
220PERLVAR(Iminus_l, bool)
221PERLVAR(Iminus_a, bool)
222PERLVAR(Iminus_F, bool)
223PERLVAR(Idoswitches, bool)
9f7da6d5 224
bc9b29db 225PERLVAR(Iminus_E, bool)
954c1994
GS
226
227/*
ccfc67b7 228
2eb25c99 229=for apidoc mn|bool|PL_dowarn
954c1994
GS
230
231The C variable which corresponds to Perl's $^W warning variable.
232
233=cut
234*/
235
d41ff1b8 236PERLVAR(Idowarn, U8)
cb68f92d 237PERLVAR(Idoextract, bool)
49f531da 238PERLVAR(Isawampersand, bool) /* must save all match strings */
cb68f92d 239PERLVAR(Iunsafe, bool)
9f7da6d5
NC
240PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */
241PERLVAR(Isrand_called, bool)
242/* Part of internal state, but makes the 16th 1 byte variable in a row. */
243PERLVAR(Itainting, bool) /* doing taint checks */
cb68f92d
GS
244PERLVAR(Iinplace, char *)
245PERLVAR(Ie_script, SV *)
49f531da
NIS
246
247/* magical thingies */
248PERLVAR(Ibasetime, Time_t) /* $^T */
249PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1
NIS
250
251
cb68f92d
GS
252PERLVARI(Imaxsysfd, I32, MAXSYSFD)
253 /* top fd to pass to subprocesses */
49f531da
NIS
254PERLVAR(Istatusvalue, I32) /* $? */
255#ifdef VMS
cb68f92d 256PERLVAR(Istatusvalue_vms,U32)
e5218da5
GA
257#else
258PERLVAR(Istatusvalue_posix,I32)
49f531da
NIS
259#endif
260
157b3822
NC
261PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */
262PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */
263
49f531da 264/* shortcuts to various I/O objects */
cb68f92d 265PERLVAR(Istdingv, GV *)
bf49b057 266PERLVAR(Istderrgv, GV *)
cb68f92d
GS
267PERLVAR(Idefgv, GV *)
268PERLVAR(Iargvgv, GV *)
269PERLVAR(Iargvoutgv, GV *)
1d7c1841 270PERLVAR(Iargvout_stack, AV *)
49f531da
NIS
271
272/* shortcuts to regexp stuff */
cb68f92d 273PERLVAR(Ireplgv, GV *)
49f531da
NIS
274
275/* shortcuts to misc objects */
cb68f92d 276PERLVAR(Ierrgv, GV *)
49f531da
NIS
277
278/* shortcuts to debugging objects */
cb68f92d
GS
279PERLVAR(IDBgv, GV *)
280PERLVAR(IDBline, GV *)
954c1994
GS
281
282/*
2eb25c99 283=for apidoc mn|GV *|PL_DBsub
954c1994
GS
284When Perl is run in debugging mode, with the B<-d> switch, this GV contains
285the SV which holds the name of the sub being debugged. This is the C
286variable which corresponds to Perl's $DB::sub variable. See
287C<PL_DBsingle>.
288
2eb25c99 289=for apidoc mn|SV *|PL_DBsingle
954c1994 290When Perl is run in debugging mode, with the B<-d> switch, this SV is a
7889fe52 291boolean which indicates whether subs are being single-stepped.
954c1994
GS
292Single-stepping is automatically turned on after every step. This is the C
293variable which corresponds to Perl's $DB::single variable. See
294C<PL_DBsub>.
295
2eb25c99 296=for apidoc mn|SV *|PL_DBtrace
954c1994
GS
297Trace variable used when Perl is run in debugging mode, with the B<-d>
298switch. This is the C variable which corresponds to Perl's $DB::trace
299variable. See C<PL_DBsingle>.
300
301=cut
302*/
303
cb68f92d
GS
304PERLVAR(IDBsub, GV *)
305PERLVAR(IDBsingle, SV *)
306PERLVAR(IDBtrace, SV *)
307PERLVAR(IDBsignal, SV *)
49f531da
NIS
308PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
309
310/* symbol tables */
49f531da
NIS
311PERLVAR(Idebstash, HV *) /* symbol table for perldb package */
312PERLVAR(Iglobalstash, HV *) /* global keyword overrides imported here */
313PERLVAR(Icurstname, SV *) /* name of current package */
314PERLVAR(Ibeginav, AV *) /* names of BEGIN subroutines */
d4cce5f1 315PERLVAR(Iendav, AV *) /* names of END subroutines */
3c10abe3 316PERLVAR(Iunitcheckav, AV *) /* names of UNITCHECK subroutines */
7d30b5c4 317PERLVAR(Icheckav, AV *) /* names of CHECK subroutines */
49f531da
NIS
318PERLVAR(Iinitav, AV *) /* names of INIT subroutines */
319PERLVAR(Istrtab, HV *) /* shared string table */
005a453c 320PERLVARI(Isub_generation,U32,1) /* incr to invalidate method cache */
49f531da 321
9f7da6d5
NC
322/* funky return mechanisms */
323PERLVAR(Iforkprocess, int) /* so do_open |- can return proc# */
324
49f531da 325/* memory management */
49f531da
NIS
326PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
327PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
328PERLVAR(Isv_root, SV*) /* storage for SVs belonging to interp */
329PERLVAR(Isv_arenaroot, SV*) /* list of areas for garbage collection */
330
49f531da 331/* subprocess state */
d4cce5f1 332PERLVAR(Ifdpid, AV *) /* keep fd-to-pid mappings for my_popen */
49f531da
NIS
333
334/* internal state */
49f531da
NIS
335PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
336
49f531da 337/* current interpreter roots */
cb68f92d
GS
338PERLVAR(Imain_cv, CV *)
339PERLVAR(Imain_root, OP *)
340PERLVAR(Imain_start, OP *)
341PERLVAR(Ieval_root, OP *)
342PERLVAR(Ieval_start, OP *)
49f531da
NIS
343
344/* runtime control stuff */
cb68f92d 345PERLVARI(Icurcopdb, COP *, NULL)
49f531da 346
49f531da
NIS
347PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
348PERLVAR(Ilastfd, int) /* what to preserve mode on */
349PERLVAR(Ioldname, char *) /* what to preserve mode on */
d4cce5f1
NIS
350PERLVAR(IArgv, char **) /* stuff to free from do_aexec, vfork safe */
351PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */
00accf8d
NC
352/* Elements in this array have ';' appended and are injected as a single line
353 into the tokeniser. You can't put any (literal) newlines into any program
354 you stuff in into this array, as the point where it's injected is expecting
355 a single physical line. */
cb68f92d 356PERLVAR(Ipreambleav, AV *)
cb68f92d 357PERLVAR(Imess_sv, SV *)
7889fe52 358PERLVAR(Iors_sv, SV *) /* output record separator $\ */
71eebe1e
NC
359/* statics moved here for shared library purposes */
360PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */
a4021b77 361PERLVARI(Icv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */
157b3822 362PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */
d95e864f
NC
363PERLVARI(Ilaststype, U16, OP_STAT)
364PERLVARI(Ilaststatval, int, -1)
d4cce5f1 365
4b556e6c 366/* interpreter atexit processing */
d95e864f 367PERLVARI(Iexitlistlen, I32, 0) /* length of same */
cb68f92d
GS
368PERLVARI(Iexitlist, PerlExitListEntry *, NULL)
369 /* list of exit functions */
954c1994
GS
370
371/*
372=for apidoc Amn|HV*|PL_modglobal
373
7889fe52 374C<PL_modglobal> is a general purpose, interpreter global HV for use by
954c1994 375extensions that need to keep information on a per-interpreter basis.
7889fe52
NIS
376In a pinch, it can also be used as a symbol table for extensions
377to share data among each other. It is a good idea to use keys
954c1994
GS
378prefixed by the package name of the extension that owns the data.
379
380=cut
381*/
382
cb68f92d
GS
383PERLVAR(Imodglobal, HV *) /* per-interp module data */
384
385/* these used to be in global before 5.004_68 */
386PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */
cb68f92d
GS
387
388PERLVAR(Icompiling, COP) /* compiling/done executing marker */
389
390PERLVAR(Icompcv, CV *) /* currently compiling subroutine */
391PERLVAR(Icomppad, AV *) /* storage for lexically scoped temporaries */
392PERLVAR(Icomppad_name, AV *) /* variable names for "my" variables */
393PERLVAR(Icomppad_name_fill, I32) /* last "introduced" variable offset */
394PERLVAR(Icomppad_name_floor, I32) /* start of vars in innermost block */
4b556e6c
JD
395
396#ifdef HAVE_INTERP_INTERN
cb68f92d
GS
397PERLVAR(Isys_intern, struct interp_intern)
398 /* platform internals */
4b556e6c
JD
399#endif
400
7fae4e64 401/* more statics moved here */
7fae4e64 402PERLVAR(IDBcv, CV *) /* from perl.c */
9f7da6d5 403PERLVARI(Igeneration, int, 100) /* from op.c */
56953603 404
cb68f92d
GS
405PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
406PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
9f7da6d5
NC
407PERLVAR(Inomemok, bool) /* let malloc context handle nomem */
408PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */
7fae4e64 409
d8eceb89
JH
410PERLVAR(Iuid, Uid_t) /* current real user id */
411PERLVAR(Ieuid, Uid_t) /* current effective user id */
412PERLVAR(Igid, Gid_t) /* current real group id */
413PERLVAR(Iegid, Gid_t) /* current effective group id */
bf9cdc68
RG
414PERLVARI(Ian, U32, 0) /* malloc sequence number */
415PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */
bf9cdc68 416PERLVARI(Ievalseq, U32, 0) /* eval sequence number */
0672f40e 417PERLVAR(Iorigalen, U32)
9f7da6d5 418PERLVAR(Iorigenviron, char **)
ca0c25f6 419#ifdef PERL_USES_PL_PIDSTATUS
0672f40e 420PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */
ca0c25f6 421#endif
0672f40e 422PERLVAR(Iosname, char *) /* operating system */
5c728af0 423
0672f40e
GS
424PERLVAR(Isighandlerp, Sighandler_t)
425
232d1c15 426PERLVARA(Ibody_roots, PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
93e68bfb 427
0672f40e
GS
428PERLVAR(Inice_chunk, char *) /* a nice chunk of memory to reuse */
429PERLVAR(Inice_chunk_size, U32) /* how nice the chunk of memory is */
430
9f7da6d5
NC
431PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */
432
0b94c7bb 433PERLVARI(Irunops, runops_proc_t, MEMBER_TO_FPTR(RUNOPS_DEFAULT))
0672f40e 434
954c1994
GS
435/*
436=for apidoc Amn|SV|PL_sv_undef
437This is the C<undef> SV. Always refer to this as C<&PL_sv_undef>.
438
439=for apidoc Amn|SV|PL_sv_no
440This is the C<false> SV. See C<PL_sv_yes>. Always refer to this as
441C<&PL_sv_no>.
442
443=for apidoc Amn|SV|PL_sv_yes
444This is the C<true> SV. See C<PL_sv_no>. Always refer to this as
445C<&PL_sv_yes>.
446
447=cut
448*/
449
0672f40e
GS
450PERLVAR(Isv_undef, SV)
451PERLVAR(Isv_no, SV)
452PERLVAR(Isv_yes, SV)
453
0672f40e
GS
454PERLVAR(Isubname, SV *) /* name of current subroutine */
455
d95e864f 456PERLVAR(Isubline, I32) /* line this subroutine began on */
0672f40e 457PERLVAR(Imin_intro_pending, I32) /* start of vars to introduce */
d95e864f 458
0672f40e
GS
459PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */
460PERLVAR(Ipadix, I32) /* max used index in current "register" pad */
d95e864f 461
0672f40e
GS
462PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */
463PERLVAR(Ipad_reset_pending, I32) /* reset pad on next attempted alloc */
464
1d7c1841 465PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */
0672f40e
GS
466
467PERLVAR(Idebug, VOL U32) /* flags given to -D switch */
468
bf9cdc68 469PERLVARI(Iamagic_generation, long, 0)
0672f40e
GS
470
471#ifdef USE_LOCALE_COLLATE
0672f40e 472PERLVAR(Icollation_name,char *) /* Name of current collation */
0672f40e
GS
473PERLVAR(Icollxfrm_base, Size_t) /* Basic overhead in *xfrm() */
474PERLVARI(Icollxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */
9f7da6d5
NC
475PERLVARI(Icollation_ix, U32, 0) /* Collation generation index */
476PERLVARI(Icollation_standard, bool, TRUE)
477 /* Assume simple collation */
0672f40e
GS
478#endif /* USE_LOCALE_COLLATE */
479
9f7da6d5 480
edd11d75 481#if defined (PERL_UTF8_CACHE_ASSERT) || defined (DEBUGGING)
95ca8690 482# define PERL___I -1
9f7da6d5 483#else
7cd91da4 484# define PERL___I 1
9f7da6d5 485#endif
95ca8690
DM
486PERLVARI(Iutf8cache, I8, PERL___I) /* Is the utf8 caching code enabled? */
487#undef PERL___I
488
9f7da6d5 489
0672f40e
GS
490#ifdef USE_LOCALE_NUMERIC
491
0672f40e
GS
492PERLVARI(Inumeric_standard, bool, TRUE)
493 /* Assume simple numerics */
494PERLVARI(Inumeric_local, bool, TRUE)
495 /* Assume local numerics */
9f7da6d5 496PERLVAR(Inumeric_name, char *) /* Name of current numeric locale */
0672f40e
GS
497#endif /* !USE_LOCALE_NUMERIC */
498
499/* utf8 character classes */
500PERLVAR(Iutf8_alnum, SV *)
b8c5462f
JH
501PERLVAR(Iutf8_alnumc, SV *)
502PERLVAR(Iutf8_ascii, SV *)
0672f40e
GS
503PERLVAR(Iutf8_alpha, SV *)
504PERLVAR(Iutf8_space, SV *)
b8c5462f
JH
505PERLVAR(Iutf8_cntrl, SV *)
506PERLVAR(Iutf8_graph, SV *)
0672f40e
GS
507PERLVAR(Iutf8_digit, SV *)
508PERLVAR(Iutf8_upper, SV *)
509PERLVAR(Iutf8_lower, SV *)
510PERLVAR(Iutf8_print, SV *)
b8c5462f
JH
511PERLVAR(Iutf8_punct, SV *)
512PERLVAR(Iutf8_xdigit, SV *)
0672f40e
GS
513PERLVAR(Iutf8_mark, SV *)
514PERLVAR(Iutf8_toupper, SV *)
515PERLVAR(Iutf8_totitle, SV *)
516PERLVAR(Iutf8_tolower, SV *)
b4e400f9 517PERLVAR(Iutf8_tofold, SV *)
0672f40e 518PERLVAR(Ilast_swash_hv, HV *)
0672f40e
GS
519PERLVAR(Ilast_swash_tmps, U8 *)
520PERLVAR(Ilast_swash_slen, STRLEN)
9f7da6d5 521PERLVARA(Ilast_swash_key,10, U8)
d95e864f
NC
522PERLVAR(Ilast_swash_klen, U8) /* Only needs to store 0-10 */
523
524#ifdef FCRYPT
525PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */
526#endif
527
528PERLVARI(Iglob_index, int, 0)
529
0672f40e 530
5912531f 531PERLVAR(Iparser, yy_parser *) /* current parser state */
12fbd33b 532
0672f40e 533PERLVAR(Ibitcount, char *)
0672f40e 534
1d7c1841
GS
535PERLVAR(Ipsig_ptr, SV**)
536PERLVAR(Ipsig_name, SV**)
537
c5be433b 538#if defined(PERL_IMPLICIT_SYS)
32e30700 539PERLVAR(IMem, struct IPerlMem*)
1d7c1841
GS
540PERLVAR(IMemShared, struct IPerlMem*)
541PERLVAR(IMemParse, struct IPerlMem*)
32e30700
GS
542PERLVAR(IEnv, struct IPerlEnv*)
543PERLVAR(IStdIO, struct IPerlStdIO*)
544PERLVAR(ILIO, struct IPerlLIO*)
545PERLVAR(IDir, struct IPerlDir*)
546PERLVAR(ISock, struct IPerlSock*)
547PERLVAR(IProc, struct IPerlProc*)
76e3520e 548#endif
1d7c1841 549
1d7c1841 550PERLVAR(Iptr_table, PTR_TBL_t*)
7d49f689 551PERLVARI(Ibeginav_save, AV*, NULL) /* save BEGIN{}s when compiling */
f180df80 552
fdda85ca 553PERLVAR(Ibody_arenas, void*) /* pointer to list of body-arenas */
93e68bfb 554
d95e864f 555
a453c169
JH
556#ifdef USE_LOCALE_NUMERIC
557
558PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */
559
560#endif
ce08f86c 561
1fcf4c12 562#if defined(USE_ITHREADS)
aefff11f
JD
563PERLVAR(Iregex_pad, SV**) /* All regex objects */
564PERLVAR(Iregex_padav, AV*) /* All regex objects */
e5dd39fc 565
1fcf4c12
AB
566#endif
567
ea68fd67
NC
568#ifdef USE_REENTRANT_API
569PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */
f5a82810
JH
570#endif
571
53e06cf0
SC
572PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */
573PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */
19e8ce8e 574
a1ea730d
NIS
575#ifdef PERLIO_LAYERS
576PERLVARI(Iperlio, PerlIO *,NULL)
3a1ee7e8
NIS
577PERLVARI(Iknown_layers, PerlIO_list_t *,NULL)
578PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL)
a1ea730d
NIS
579#endif
580
a0714e2c 581PERLVARI(Iencoding, SV*, NULL) /* character encoding */
0a378802 582
128e8167 583PERLVAR(Idebug_pad, struct perl_debug_pad) /* always needed because of the re extension */
ce333219 584
82686b01
JH
585PERLVAR(Iutf8_idstart, SV *)
586PERLVAR(Iutf8_idcont, SV *)
587
147f47de
AB
588PERLVAR(Isort_RealCmp, SVCOMPARE_t)
589
7d49f689 590PERLVARI(Icheckav_save, AV*, NULL) /* save CHECK{}s when compiling */
3c10abe3 591PERLVARI(Iunitcheckav_save, AV*, NULL) /* save UNITCHECK{}s when compiling */
ece599bd 592
5311654c
JH
593PERLVARI(Iclocktick, long, 0) /* this many times() ticks in a second */
594
edab1aa3
JH
595PERLVARI(Iin_load_module, int, 0) /* to prevent recursions in PerlIO_find_layer */
596
a05d7ebb
JH
597PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
598
4ffa73a3
JH
599PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */
600
57c6e6d2
JH
601PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions */
602
9f7da6d5
NC
603PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */
604
15a5279a
JH
605/* Hooks to shared SVs and locks. */
606PERLVARI(Isharehook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d5b2b27b 607PERLVARI(Ilockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d0647d4e
NC
608#ifdef NO_MATHOMS
609# define PERL_UNLOCK_HOOK Perl_sv_nosharing
610#else
611/* This reference ensures that the mathoms are linked with perl */
612# define PERL_UNLOCK_HOOK Perl_sv_nounlocking
613#endif
614PERLVARI(Iunlockhook, share_proc_t, MEMBER_TO_FPTR(PERL_UNLOCK_HOOK))
615
15a5279a
JH
616PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
617
504f80c1
JH
618PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */
619
8b5c2100
JH
620PERLVAR(IDBassertion, SV *)
621
008fb0c0 622PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */
4b5190b5 623
ba6d381e 624PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */
f16dd614 625
ffee3ff6
NC
626/* The last unconditional member of the interpreter structure when 5.10.0 was
627 released. The offset of the end of this is baked into a global variable in
628 any shared perl library which will allow a sanity test in future perl
629 releases. */
630#define PERL_LAST_5_10_0_INTERP_MEMBER Iisarev
631
f16dd614 632#ifdef PERL_IMPLICIT_CONTEXT
4c901e72 633PERLVARI(Imy_cxt_size, int, 0) /* size of PL_my_cxt_list */
f16dd614 634PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
ba6d381e 635# ifdef PERL_GLOBAL_STRUCT_PRIVATE
53d44271 636PERLVARI(Imy_cxt_keys, const char **, NULL) /* per-module array of pointers to MY_CXT_KEY constants */
ba6d381e 637# endif
f16dd614
DM
638#endif
639
7cb608b5
NC
640#ifdef PERL_TRACK_MEMPOOL
641/* For use with the memory debugging code in util.c */
642PERLVAR(Imemory_debug_header, struct perl_memory_debug_header)
643#endif
644
ba6d381e
NC
645#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
646/* File descriptor to talk to the child which dumps scalars. */
647PERLVARI(Idumper_fd, int, -1)
648#endif
649
650/* Stores the PPID */
651#ifdef THREADS_HAVE_PIDS
652PERLVARI(Ippid, IV, 0)
653#endif
654
655#ifdef PERL_MAD
656PERLVARI(Imadskills, bool, FALSE) /* preserve all syntactic info */
657 /* (MAD = Misc Attribute Decoration) */
658PERLVARI(Ixmlfp, PerlIO *,NULL)
659#endif
660
661#ifdef PL_OP_SLAB_ALLOC
662PERLVAR(IOpPtr,I32 **)
663PERLVARI(IOpSpace,I32,0)
664PERLVAR(IOpSlab,I32 *)
665#endif
666
f1fac472
NC
667#ifdef PERL_DEBUG_READONLY_OPS
668PERLVARI(Islabs, I32**, NULL) /* Array of slabs that have been allocated */
669PERLVARI(Islab_count, U32, 0) /* Size of the array */
670#endif
671
eba16661
JH
672/* Can shared object be destroyed */
673PERLVARI(Idestroyhook, destroyable_proc_t, MEMBER_TO_FPTR(Perl_sv_destroyable))
674
157b3822
NC
675/* If you are adding a U8 or U16, check to see if there are 'Space' comments
676 * above on where there are gaps which currently will be structure padding. */
d95e864f
NC
677
678/* Within a stable branch, new variables must be added to the very end, before
679 * this comment, for binary compatibility (the offsets of the old members must
680 * not change).
b83cd129 681 * (Don't forget to add your variable also to perl_clone()!)
e3acbfda 682 * XSUB.h provides wrapper functions via perlapi.h that make this
b83cd129
JH
683 * irrelevant, but not all code may be expected to #include XSUB.h.
684 */