This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re-order intrpvar.h to minimise holes in the interpreter struct.
[perl5.git] / intrpvar.h
CommitLineData
907b3e23
DM
1/* intrpvar.h
2 *
3 * Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
1129b882 4 * 2006, 2007, 2008 by Larry Wall and others
907b3e23
DM
5 *
6 * You may distribute under the terms of either the GNU General Public
7 * License or the Artistic License, as specified in the README file.
8 *
9 */
10
e3d474b7
KW
11#include "handy.h"
12
907b3e23
DM
13/*
14=head1 Per-Interpreter Variables
15*/
49f531da 16
907b3e23
DM
17/* These variables are per-interpreter in threaded/multiplicity builds,
18 * global otherwise.
19
d7cb65f2 20 * Don't forget to re-run regen/embed.pl to propagate changes! */
cb68f92d 21
ab686ae8 22/* New variables must be added to the very end for binary compatibility. */
6537fe72 23
ba05a734 24/* Don't forget to add your variable also to perl_clone()! (in sv.c) */
02506efe 25
cb68f92d
GS
26/* The 'I' prefix is only needed for vars that need appropriate #defines
27 * generated when built with or without MULTIPLICITY. It is also used
97df044c
KW
28 * to generate the appropriate export list for win32. If the variable
29 * needs to be initialized, use PERLVARI.
cb68f92d 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
115ff745 35PERLVAR(I, stack_sp, SV **) /* top of the stack */
907b3e23 36#ifdef OP_IN_REGISTER
115ff745 37PERLVAR(I, opsave, OP *)
907b3e23 38#else
115ff745 39PERLVAR(I, op, OP *) /* currently executing op */
907b3e23 40#endif
115ff745 41PERLVAR(I, curpad, SV **) /* active pad (lexicals+tmps) */
907b3e23 42
115ff745
NC
43PERLVAR(I, stack_base, SV **)
44PERLVAR(I, stack_max, SV **)
907b3e23 45
115ff745 46PERLVAR(I, savestack, ANY *) /* items that need to be restored when
907b3e23 47 LEAVEing scopes we've ENTERed */
115ff745
NC
48PERLVAR(I, savestack_ix, I32)
49PERLVAR(I, savestack_max, I32)
50
19bc2726
DM
51PERLVAR(I, scopestack, I32 *) /* scopes we've ENTERed */
52PERLVAR(I, scopestack_ix, I32)
53PERLVAR(I, scopestack_max, I32)
54
115ff745
NC
55PERLVAR(I, tmps_stack, SV **) /* mortals we've made */
56PERLVARI(I, tmps_ix, I32, -1)
57PERLVARI(I, tmps_floor, I32, -1)
58PERLVAR(I, tmps_max, I32)
19bc2726
DM
59
60PERLVARI(I, sub_generation, U32, 1) /* incr to invalidate method cache */
907b3e23 61
115ff745 62PERLVAR(I, markstack, I32 *) /* stack_sp locations we're
907b3e23 63 remembering */
115ff745
NC
64PERLVAR(I, markstack_ptr, I32 *)
65PERLVAR(I, markstack_max, I32 *)
907b3e23 66
0e0ab621 67PERLVARI(I, hash_rand_bits, UV, 0) /* used to randomize hash stuff */
19bc2726
DM
68PERLVAR(I, strtab, HV *) /* shared string table */
69
70/* Fields used by magic variables such as $@, $/ and so on */
71PERLVAR(I, curpm, PMOP *) /* what to do \ interps in REs from */
72
73PERLVAR(I, tainting, bool) /* doing taint checks */
74PERLVAR(I, tainted, bool) /* using variables controlled by $< */
75PERLVAR(I, delaymagic, U16) /* ($<,$>) = ... */
76PERLVAR(I, localizing, U8) /* are we processing a local() list? */
77PERLVAR(I, in_eval, U8) /* trap "fatal" errors? */
78/*
79
80=for apidoc mn|bool|PL_dowarn
81
82The C variable which corresponds to Perl's $^W warning variable.
83
84=cut
85*/
86
87PERLVAR(I, dowarn, U8)
88
89#if defined (PERL_UTF8_CACHE_ASSERT) || defined (DEBUGGING)
90# define PERL___I -1
91#else
92# define PERL___I 1
93#endif
94PERLVARI(I, utf8cache, I8, PERL___I) /* Is the utf8 caching code enabled? */
95#undef PERL___I
96
97
98/* Stashes */
99PERLVAR(I, defstash, HV *) /* main symbol table */
100PERLVAR(I, curstash, HV *) /* symbol table for current package */
101
102PERLVAR(I, curcop, COP *)
103PERLVAR(I, curstack, AV *) /* THE STACK */
104PERLVAR(I, curstackinfo, PERL_SI *) /* current stack + context */
105PERLVAR(I, mainstack, AV *) /* the stack when nothing funny is
106 happening */
107
108/* memory management */
109PERLVAR(I, sv_count, IV) /* how many SV* are currently allocated */
110PERLVAR(I, sv_objcount, IV) /* DEPRECATED AND UNMAINTAINED.
111 * Will be removed in Perl 5.20.
112 * Used to be: how many objects are currently allocated. */
113
114PERLVAR(I, sv_root, SV *) /* storage for SVs belonging to interp */
115PERLVAR(I, sv_arenaroot, SV *) /* list of areas for garbage collection */
116
117PERLVAR(I, reg_state, struct re_save_state)
118
119/* the currently active slab in a chain of slabs of regmatch states,
120 * and the currently active state within that slab */
121
122PERLVARI(I, regmatch_slab, regmatch_slab *, NULL)
123PERLVAR(I, regmatch_state, regmatch_state *)
124
125PERLVAR(I, comppad, PAD *) /* storage for lexically scoped temporaries */
126
127/*
128=for apidoc Amn|SV|PL_sv_undef
129This is the C<undef> SV. Always refer to this as C<&PL_sv_undef>.
130
131=for apidoc Amn|SV|PL_sv_no
132This is the C<false> SV. See C<PL_sv_yes>. Always refer to this as
133C<&PL_sv_no>.
134
135=for apidoc Amn|SV|PL_sv_yes
136This is the C<true> SV. See C<PL_sv_no>. Always refer to this as
137C<&PL_sv_yes>.
138
139=cut
140*/
141
142PERLVAR(I, sv_undef, SV)
143PERLVAR(I, sv_no, SV)
144PERLVAR(I, sv_yes, SV)
115ff745 145PERLVAR(I, Sv, SV *) /* used to hold temporary values */
19bc2726
DM
146
147PERLVAR(I, parser, yy_parser *) /* current parser state */
148
149PERLVAR(I, stashcache, HV *) /* Cache to speed up S_method_common */
150
907b3e23
DM
151
152/*
153=for apidoc Amn|STRLEN|PL_na
154
155A convenience variable which is typically used with C<SvPV> when one
156doesn't care about the length of the string. It is usually more efficient
157to either declare a local variable and use that instead or to use the
158C<SvPV_nolen> macro.
159
160=cut
161*/
162
115ff745 163PERLVAR(I, na, STRLEN) /* for use in SvPV when length is
907b3e23
DM
164 Not Applicable */
165
166/* stat stuff */
115ff745
NC
167PERLVAR(I, statbuf, Stat_t)
168PERLVAR(I, statcache, Stat_t) /* _ */
169PERLVAR(I, statgv, GV *)
170PERLVARI(I, statname, SV *, NULL)
907b3e23
DM
171
172#ifdef HAS_TIMES
115ff745 173PERLVAR(I, timesbuf, struct tms)
907b3e23
DM
174#endif
175
907b3e23
DM
176/*
177=for apidoc mn|SV*|PL_rs
178
179The input record separator - C<$/> in Perl space.
180
181=for apidoc mn|GV*|PL_last_in_gv
182
183The GV which was last used for a filehandle input operation. (C<< <FH> >>)
184
e23d9e2f 185=for apidoc mn|GV*|PL_ofsgv
907b3e23 186
e23d9e2f 187The glob containing the output field separator - C<*,> in Perl space.
907b3e23
DM
188
189=cut
190*/
191
115ff745
NC
192PERLVAR(I, rs, SV *) /* input record separator $/ */
193PERLVAR(I, last_in_gv, GV *) /* GV used in last <FH> */
194PERLVAR(I, ofsgv, GV *) /* GV of output field separator *, */
195PERLVAR(I, defoutgv, GV *) /* default FH for output */
196PERLVARI(I, chopset, const char *, " \n-") /* $: */
197PERLVAR(I, formtarget, SV *)
198PERLVAR(I, bodytarget, SV *)
199PERLVAR(I, toptarget, SV *)
907b3e23 200
115ff745
NC
201
202PERLVAR(I, restartop, OP *) /* propagating an error from croak? */
203PERLVAR(I, restartjmpenv, JMPENV *) /* target frame for longjmp in die */
907b3e23 204
115ff745
NC
205PERLVAR(I, top_env, JMPENV *) /* ptr to current sigjmp environment */
206PERLVAR(I, start_env, JMPENV) /* empty startup sigjmp environment */
207PERLVARI(I, errors, SV *, NULL) /* outstanding queued errors */
907b3e23
DM
208
209/* statics "owned" by various functions */
115ff745 210PERLVAR(I, hv_fetch_ent_mh, HE*) /* owned by hv_fetch_ent() */
907b3e23 211
115ff745 212PERLVAR(I, lastgotoprobe, OP*) /* from pp_ctl.c */
907b3e23
DM
213
214/* sort stuff */
115ff745
NC
215PERLVAR(I, sortcop, OP *) /* user defined sort routine */
216PERLVAR(I, sortstash, HV *) /* which is in some package or other */
217PERLVAR(I, firstgv, GV *) /* $a */
218PERLVAR(I, secondgv, GV *) /* $b */
907b3e23
DM
219
220/* float buffer */
115ff745
NC
221PERLVAR(I, efloatbuf, char *)
222PERLVAR(I, efloatsize, STRLEN)
907b3e23 223
115ff745 224PERLVAR(I, regdummy, regnode) /* from regcomp.c */
907b3e23 225
115ff745 226PERLVARI(I, dumpindent, U16, 4) /* number of blanks per dump
907b3e23
DM
227 indentation level */
228
e914d9bb 229PERLVAR(I, exit_flags, U8) /* was exit() unexpected, etc. */
157b3822 230
115ff745 231PERLVAR(I, utf8locale, bool) /* utf8 locale detected */
907b3e23 232
115ff745 233PERLVARA(I, colors,6, char *) /* from regcomp.c */
907b3e23 234
9ea12537
Z
235/*
236=for apidoc Amn|peep_t|PL_peepp
237
238Pointer to the per-subroutine peephole optimiser. This is a function
239that gets called at the end of compilation of a Perl subroutine (or
240equivalently independent piece of Perl code) to perform fixups of
241some ops and to perform small-scale optimisations. The function is
242called once for each subroutine that is compiled, and is passed, as sole
243parameter, a pointer to the op that is the entry point to the subroutine.
244It modifies the op tree in place.
245
246The peephole optimiser should never be completely replaced. Rather,
247add code to it by wrapping the existing optimiser. The basic way to do
248this can be seen in L<perlguts/Compile pass 3: peephole optimization>.
249If the new code wishes to operate on ops throughout the subroutine's
250structure, rather than just at the top level, it is likely to be more
251convenient to wrap the L</PL_rpeepp> hook.
252
253=cut
254*/
255
115ff745 256PERLVARI(I, peepp, peep_t, Perl_peep)
9ea12537
Z
257
258/*
259=for apidoc Amn|peep_t|PL_rpeepp
260
261Pointer to the recursive peephole optimiser. This is a function
262that gets called at the end of compilation of a Perl subroutine (or
263equivalently independent piece of Perl code) to perform fixups of some
264ops and to perform small-scale optimisations. The function is called
265once for each chain of ops linked through their C<op_next> fields;
266it is recursively called to handle each side chain. It is passed, as
267sole parameter, a pointer to the op that is at the head of the chain.
268It modifies the op tree in place.
269
270The peephole optimiser should never be completely replaced. Rather,
271add code to it by wrapping the existing optimiser. The basic way to do
272this can be seen in L<perlguts/Compile pass 3: peephole optimization>.
273If the new code wishes to operate only on ops at a subroutine's top level,
274rather than throughout the structure, it is likely to be more convenient
275to wrap the L</PL_peepp> hook.
276
277=cut
278*/
279
115ff745 280PERLVARI(I, rpeepp, peep_t, Perl_rpeep)
907b3e23 281
2f175318
VP
282/*
283=for apidoc Amn|Perl_ophook_t|PL_opfreehook
284
285When non-C<NULL>, the function pointed by this variable will be called each time an OP is freed with the corresponding OP as the argument.
286This allows extensions to free any extra attribute they have locally attached to an OP.
287It is also assured to first fire for the parent OP and then for its kids.
288
289When you replace this variable, it is considered a good practice to store the possibly previously installed hook and that you recall it inside your own.
290
291=cut
292*/
293
115ff745 294PERLVARI(I, opfreehook, Perl_ophook_t, 0) /* op_free() hook */
f37b8c3f 295
115ff745
NC
296PERLVARI(I, watchaddr, char **, 0)
297PERLVAR(I, watchok, char *)
907b3e23 298
115ff745 299PERLVAR(I, perldb, U32)
d95e864f 300
115ff745 301PERLVAR(I, signals, U32) /* Using which pre-5.8 signals */
30b0736d 302
79968a97
NC
303PERLVAR(I, reentrant_retint, int) /* Integer return value from reentrant functions */
304
49f531da 305/* pseudo environmental stuff */
115ff745
NC
306PERLVAR(I, origargc, int)
307PERLVAR(I, origargv, char **)
308PERLVAR(I, envgv, GV *)
309PERLVAR(I, incgv, GV *)
310PERLVAR(I, hintgv, GV *)
311PERLVAR(I, origfilename, char *)
312PERLVAR(I, diehook, SV *)
313PERLVAR(I, warnhook, SV *)
1d7c1841
GS
314
315/* switches */
115ff745
NC
316PERLVAR(I, patchlevel, SV *)
317PERLVAR(I, apiversion, SV *)
318PERLVAR(I, localpatches, const char * const *)
319PERLVARI(I, splitstr, const char *, " ")
320
321PERLVAR(I, minus_c, bool)
322PERLVAR(I, minus_n, bool)
323PERLVAR(I, minus_p, bool)
324PERLVAR(I, minus_l, bool)
325PERLVAR(I, minus_a, bool)
326PERLVAR(I, minus_F, bool)
327PERLVAR(I, doswitches, bool)
328PERLVAR(I, minus_E, bool)
954c1994 329
115ff745
NC
330PERLVAR(I, inplace, char *)
331PERLVAR(I, e_script, SV *)
49f531da 332
115ff745 333PERLVAR(I, basetime, Time_t) /* $^T */
d4cce5f1 334
115ff745 335PERLVARI(I, maxsysfd, I32, MAXSYSFD)
cb68f92d 336 /* top fd to pass to subprocesses */
115ff745 337PERLVAR(I, statusvalue, I32) /* $? */
49f531da 338#ifdef VMS
115ff745 339PERLVAR(I, statusvalue_vms, U32)
e5218da5 340#else
115ff745 341PERLVAR(I, statusvalue_posix, I32)
49f531da
NIS
342#endif
343
115ff745
NC
344PERLVARI(I, sig_pending, int, 0) /* Number if highest signal pending */
345PERLVAR(I, psig_pend, int *) /* per-signal "count" of pending */
157b3822 346
49f531da 347/* shortcuts to various I/O objects */
115ff745
NC
348PERLVAR(I, stdingv, GV *) /* *STDIN */
349PERLVAR(I, stderrgv, GV *) /* *STDERR */
350PERLVAR(I, defgv, GV *)
351PERLVAR(I, argvgv, GV *) /* *ARGV */
352PERLVAR(I, argvoutgv, GV *) /* *ARGVOUT */
353PERLVAR(I, argvout_stack, AV *)
49f531da
NIS
354
355/* shortcuts to regexp stuff */
115ff745 356PERLVAR(I, replgv, GV *) /* *^R */
49f531da
NIS
357
358/* shortcuts to misc objects */
115ff745 359PERLVAR(I, errgv, GV *) /* *@ */
49f531da
NIS
360
361/* shortcuts to debugging objects */
115ff745
NC
362PERLVAR(I, DBgv, GV *) /* *DB::DB */
363PERLVAR(I, DBline, GV *) /* *DB::line */
954c1994
GS
364
365/*
2eb25c99 366=for apidoc mn|GV *|PL_DBsub
954c1994
GS
367When Perl is run in debugging mode, with the B<-d> switch, this GV contains
368the SV which holds the name of the sub being debugged. This is the C
369variable which corresponds to Perl's $DB::sub variable. See
370C<PL_DBsingle>.
371
2eb25c99 372=for apidoc mn|SV *|PL_DBsingle
954c1994 373When Perl is run in debugging mode, with the B<-d> switch, this SV is a
7889fe52 374boolean which indicates whether subs are being single-stepped.
954c1994
GS
375Single-stepping is automatically turned on after every step. This is the C
376variable which corresponds to Perl's $DB::single variable. See
377C<PL_DBsub>.
378
2eb25c99 379=for apidoc mn|SV *|PL_DBtrace
954c1994
GS
380Trace variable used when Perl is run in debugging mode, with the B<-d>
381switch. This is the C variable which corresponds to Perl's $DB::trace
382variable. See C<PL_DBsingle>.
383
384=cut
385*/
386
115ff745
NC
387PERLVAR(I, DBsub, GV *) /* *DB::sub */
388PERLVAR(I, DBsingle, SV *) /* $DB::single */
389PERLVAR(I, DBtrace, SV *) /* $DB::trace */
390PERLVAR(I, DBsignal, SV *) /* $DB::signal */
391PERLVAR(I, dbargs, AV *) /* args to call listed by caller function */
49f531da
NIS
392
393/* symbol tables */
115ff745
NC
394PERLVAR(I, debstash, HV *) /* symbol table for perldb package */
395PERLVAR(I, globalstash, HV *) /* global keyword overrides imported here */
396PERLVAR(I, curstname, SV *) /* name of current package */
397PERLVAR(I, beginav, AV *) /* names of BEGIN subroutines */
398PERLVAR(I, endav, AV *) /* names of END subroutines */
399PERLVAR(I, unitcheckav, AV *) /* names of UNITCHECK subroutines */
400PERLVAR(I, checkav, AV *) /* names of CHECK subroutines */
401PERLVAR(I, initav, AV *) /* names of INIT subroutines */
49f531da 402
49f531da 403/* subprocess state */
115ff745 404PERLVAR(I, fdpid, AV *) /* keep fd-to-pid mappings for my_popen */
49f531da
NIS
405
406/* internal state */
115ff745 407PERLVARI(I, op_mask, char *, NULL) /* masked operations for safe evals */
49f531da 408
49f531da 409/* current interpreter roots */
115ff745
NC
410PERLVAR(I, main_cv, CV *)
411PERLVAR(I, main_root, OP *)
412PERLVAR(I, main_start, OP *)
413PERLVAR(I, eval_root, OP *)
414PERLVAR(I, eval_start, OP *)
49f531da
NIS
415
416/* runtime control stuff */
115ff745 417PERLVARI(I, curcopdb, COP *, NULL)
49f531da 418
115ff745
NC
419PERLVAR(I, filemode, int) /* so nextargv() can preserve mode */
420PERLVAR(I, lastfd, int) /* what to preserve mode on */
421PERLVAR(I, oldname, char *) /* what to preserve mode on */
422PERLVAR(I, Argv, const char **) /* stuff to free from do_aexec, vfork safe */
423PERLVAR(I, Cmd, char *) /* stuff to free from do_aexec, vfork safe */
00accf8d
NC
424/* Elements in this array have ';' appended and are injected as a single line
425 into the tokeniser. You can't put any (literal) newlines into any program
426 you stuff in into this array, as the point where it's injected is expecting
427 a single physical line. */
115ff745
NC
428PERLVAR(I, preambleav, AV *)
429PERLVAR(I, mess_sv, SV *)
430PERLVAR(I, ors_sv, SV *) /* output record separator $\ */
19bc2726 431
79968a97
NC
432/* funky return mechanisms */
433PERLVAR(I, forkprocess, int) /* so do_open |- can return proc# */
434
71eebe1e 435/* statics moved here for shared library purposes */
115ff745
NC
436PERLVARI(I, gensym, I32, 0) /* next symbol for getsym() to define */
437PERLVARI(I, cv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */
438PERLVAR(I, taint_warn, bool) /* taint warns instead of dying */
439PERLVARI(I, laststype, U16, OP_STAT)
19bc2726 440
115ff745 441PERLVARI(I, laststatval, int, -1)
d4cce5f1 442
19bc2726
DM
443PERLVAR(I, modcount, I32) /* how much op_lvalue()ification in
444 assignment? */
445
4b556e6c 446/* interpreter atexit processing */
115ff745
NC
447PERLVARI(I, exitlistlen, I32, 0) /* length of same */
448PERLVARI(I, exitlist, PerlExitListEntry *, NULL)
cb68f92d 449 /* list of exit functions */
954c1994
GS
450
451/*
452=for apidoc Amn|HV*|PL_modglobal
453
7889fe52 454C<PL_modglobal> is a general purpose, interpreter global HV for use by
954c1994 455extensions that need to keep information on a per-interpreter basis.
7889fe52
NIS
456In a pinch, it can also be used as a symbol table for extensions
457to share data among each other. It is a good idea to use keys
954c1994
GS
458prefixed by the package name of the extension that owns the data.
459
460=cut
461*/
462
115ff745 463PERLVAR(I, modglobal, HV *) /* per-interp module data */
cb68f92d
GS
464
465/* these used to be in global before 5.004_68 */
115ff745 466PERLVARI(I, profiledata, U32 *, NULL) /* table of ops, counts */
cb68f92d 467
115ff745 468PERLVAR(I, compiling, COP) /* compiling/done executing marker */
cb68f92d 469
115ff745 470PERLVAR(I, compcv, CV *) /* currently compiling subroutine */
36c300bb 471PERLVAR(I, comppad_name, PADNAMELIST *) /* variable names for "my" variables */
115ff745
NC
472PERLVAR(I, comppad_name_fill, I32) /* last "introduced" variable offset */
473PERLVAR(I, comppad_name_floor, I32) /* start of vars in innermost block */
4b556e6c
JD
474
475#ifdef HAVE_INTERP_INTERN
115ff745 476PERLVAR(I, sys_intern, struct interp_intern)
cb68f92d 477 /* platform internals */
4b556e6c
JD
478#endif
479
7fae4e64 480/* more statics moved here */
115ff745
NC
481PERLVAR(I, DBcv, CV *) /* from perl.c */
482PERLVARI(I, generation, int, 100) /* from op.c */
56953603 483
19bc2726
DM
484PERLVAR(I, unicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
485
115ff745
NC
486PERLVARI(I, in_clean_objs,bool, FALSE) /* from sv.c */
487PERLVARI(I, in_clean_all, bool, FALSE) /* ptrs to freed SVs now legal */
488PERLVAR(I, nomemok, bool) /* let malloc context handle nomem */
489PERLVARI(I, savebegin, bool, FALSE) /* save BEGINs for compiler */
7fae4e64 490
19bc2726 491
985213f2
AB
492PERLVAR(I, delaymagic_uid, Uid_t) /* current real user id, only for delaymagic */
493PERLVAR(I, delaymagic_euid, Uid_t) /* current effective user id, only for delaymagic */
494PERLVAR(I, delaymagic_gid, Gid_t) /* current real group id, only for delaymagic */
495PERLVAR(I, delaymagic_egid, Gid_t) /* current effective group id, only for delaymagic */
115ff745 496PERLVARI(I, an, U32, 0) /* malloc sequence number */
be2b6a89 497
79968a97
NC
498/* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen" */
499PERLVARI(I, breakable_sub_gen, U32, 0)
500
be2b6a89
DM
501#ifdef DEBUGGING
502 /* exercise wrap-around */
503 #define PERL_COP_SEQMAX (U32_MAX-50)
504#else
505 #define PERL_COP_SEQMAX 0
506#endif
115ff745 507PERLVARI(I, cop_seqmax, U32, PERL_COP_SEQMAX) /* statement sequence number */
be2b6a89
DM
508#undef PERL_COP_SEQMAX
509
115ff745
NC
510PERLVARI(I, evalseq, U32, 0) /* eval sequence number */
511PERLVAR(I, origalen, U32)
512PERLVAR(I, origenviron, char **)
ca0c25f6 513#ifdef PERL_USES_PL_PIDSTATUS
115ff745 514PERLVAR(I, pidstatus, HV *) /* pid-to-status mappings for waitpid */
ca0c25f6 515#endif
115ff745 516PERLVAR(I, osname, char *) /* operating system */
5c728af0 517
115ff745 518PERLVAR(I, sighandlerp, Sighandler_t)
0672f40e 519
115ff745 520PERLVARA(I, body_roots, PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
93e68bfb 521
79968a97
NC
522PERLVAR(I, debug, VOL U32) /* flags given to -D switch */
523
115ff745 524PERLVARI(I, maxo, int, MAXO) /* maximum number of ops */
9f7da6d5 525
115ff745 526PERLVARI(I, runops, runops_proc_t, RUNOPS_DEFAULT)
0672f40e 527
115ff745 528PERLVAR(I, subname, SV *) /* name of current subroutine */
0672f40e 529
115ff745
NC
530PERLVAR(I, subline, I32) /* line this subroutine began on */
531PERLVAR(I, min_intro_pending, I32) /* start of vars to introduce */
d95e864f 532
115ff745
NC
533PERLVAR(I, max_intro_pending, I32) /* end of vars to introduce */
534PERLVAR(I, padix, I32) /* max used index in current "register" pad */
d95e864f 535
115ff745 536PERLVAR(I, padix_floor, I32) /* how low may inner block reset padix */
0672f40e 537
115ff745 538PERLVAR(I, hints, U32) /* pragma-tic compile-time flags */
0672f40e 539
0672f40e 540#ifdef USE_LOCALE_COLLATE
115ff745
NC
541PERLVAR(I, collation_name, char *) /* Name of current collation */
542PERLVAR(I, collxfrm_base, Size_t) /* Basic overhead in *xfrm() */
543PERLVARI(I, collxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */
544PERLVARI(I, collation_ix, U32, 0) /* Collation generation index */
545PERLVARI(I, collation_standard, bool, TRUE)
9f7da6d5 546 /* Assume simple collation */
0672f40e
GS
547#endif /* USE_LOCALE_COLLATE */
548
19bc2726
DM
549#ifdef PERL_SAWAMPERSAND
550PERLVAR(I, sawampersand, U8) /* must save all match strings */
9f7da6d5 551#endif
95ca8690 552
19bc2726
DM
553PERLVAR(I, unsafe, bool)
554PERLVAR(I, colorset, bool) /* from regcomp.c */
555
79968a97
NC
556/* current phase the interpreter is in
557 for ordering this structure to remove holes, we're assuming that this is 4
558 bytes. */
559PERLVARI(I, phase, enum perl_phase, PERL_PHASE_CONSTRUCT)
560
561PERLVARI(I, in_load_module, bool, FALSE) /* to prevent recursions in PerlIO_find_layer */
562
563/* This value may be set when embedding for full cleanup */
564/* 0=none, 1=full, 2=full with checks */
565/* mod_perl is special, and also assigns a meaning -1 */
566PERLVARI(I, perl_destruct_level, signed char, 0)
9f7da6d5 567
0672f40e
GS
568#ifdef USE_LOCALE_NUMERIC
569
115ff745 570PERLVARI(I, numeric_standard, bool, TRUE)
0672f40e 571 /* Assume simple numerics */
115ff745 572PERLVARI(I, numeric_local, bool, TRUE)
0672f40e 573 /* Assume local numerics */
115ff745
NC
574PERLVAR(I, numeric_name, char *) /* Name of current numeric locale */
575PERLVAR(I, numeric_radix_sv, SV *) /* The radix separator if not '.' */
f8115845 576
0672f40e
GS
577#endif /* !USE_LOCALE_NUMERIC */
578
a3e1f3a6
KW
579/* Unicode inversion lists */
580PERLVAR(I, ASCII, SV *)
581PERLVAR(I, Latin1, SV *)
582PERLVAR(I, AboveLatin1, SV *)
583
26faadbd 584PERLVAR(I, NonL1NonFinalFold, SV *)
9d53c457 585PERLVAR(I, HasMultiCharFold, SV *)
26faadbd 586
a3e1f3a6 587/* utf8 character class swashes */
115ff745 588PERLVAR(I, utf8_mark, SV *)
27d4fc33 589PERLVAR(I, utf8_X_regular_begin, SV *)
115ff745 590PERLVAR(I, utf8_X_extend, SV *)
115ff745
NC
591PERLVAR(I, utf8_toupper, SV *)
592PERLVAR(I, utf8_totitle, SV *)
593PERLVAR(I, utf8_tolower, SV *)
594PERLVAR(I, utf8_tofold, SV *)
bde9e88d
KW
595PERLVAR(I, utf8_charname_begin, SV *)
596PERLVAR(I, utf8_charname_continue, SV *)
30f9bdb0 597
63c61c3f 598PERLVARA(I, utf8_swash_ptrs, POSIX_SWASH_COUNT, SV *)
30f9bdb0 599PERLVARA(I, Posix_ptrs, POSIX_CC_COUNT, SV *)
86f72d56 600PERLVARA(I, L1Posix_ptrs, POSIX_CC_COUNT, SV *)
cac6e0ca
KW
601PERLVARA(I, XPosix_ptrs, POSIX_CC_COUNT, SV *)
602
115ff745
NC
603PERLVAR(I, last_swash_hv, HV *)
604PERLVAR(I, last_swash_tmps, U8 *)
605PERLVAR(I, last_swash_slen, STRLEN)
6c2f1a55 606PERLVARA(I, last_swash_key,UTF8_MAXBYTES-1, U8)
45d91b83 607PERLVAR(I, last_swash_klen, U8) /* Only needs to store 0-12 */
d95e864f
NC
608
609#ifdef FCRYPT
115ff745 610PERLVARI(I, cryptseen, bool, FALSE) /* has fast crypt() been initialized? */
79968a97
NC
611#else
612/* One byte hole in the interpreter structure. */
d95e864f
NC
613#endif
614
115ff745 615PERLVAR(I, pad_reset_pending, bool) /* reset pad on next attempted alloc */
e6b4660c 616PERLVAR(I, srand_called, bool)
12fbd33b 617
c4a30c8c
NC
618/* Array of signal handlers, indexed by signal number, through which the C
619 signal handler dispatches. */
115ff745 620PERLVAR(I, psig_ptr, SV **)
c4a30c8c 621/* Array of names of signals, indexed by signal number, for (re)use as the first
d525a7b2
NC
622 argument to a signal handler. Only one block of memory is allocated for
623 both psig_name and psig_ptr. */
115ff745 624PERLVAR(I, psig_name, SV **)
1d7c1841 625
c5be433b 626#if defined(PERL_IMPLICIT_SYS)
115ff745
NC
627PERLVAR(I, Mem, struct IPerlMem *)
628PERLVAR(I, MemShared, struct IPerlMem *)
629PERLVAR(I, MemParse, struct IPerlMem *)
630PERLVAR(I, Env, struct IPerlEnv *)
631PERLVAR(I, StdIO, struct IPerlStdIO *)
632PERLVAR(I, LIO, struct IPerlLIO *)
633PERLVAR(I, Dir, struct IPerlDir *)
634PERLVAR(I, Sock, struct IPerlSock *)
635PERLVAR(I, Proc, struct IPerlProc *)
76e3520e 636#endif
1d7c1841 637
115ff745
NC
638PERLVAR(I, ptr_table, PTR_TBL_t *)
639PERLVARI(I, beginav_save, AV *, NULL) /* save BEGIN{}s when compiling */
f180df80 640
115ff745 641PERLVAR(I, body_arenas, void *) /* pointer to list of body-arenas */
93e68bfb 642
d95e864f 643
1fcf4c12 644#if defined(USE_ITHREADS)
115ff745 645PERLVAR(I, regex_pad, SV **) /* Shortcut into the array of
e6853197 646 regex_padav */
115ff745 647PERLVAR(I, regex_padav, AV *) /* All regex objects, indexed via the
e6853197 648 values in op_pmoffset of pmop.
402d2eb1
NC
649 Entry 0 is an SV whose PV is a
650 "packed" list of IVs listing
e6853197 651 the now-free slots in the array */
d4d03940
FC
652PERLVAR(I, stashpad, HV **) /* for CopSTASH */
653PERLVARI(I, stashpadmax, PADOFFSET, 64)
654PERLVARI(I, stashpadix, PADOFFSET, 0)
1fcf4c12
AB
655#endif
656
ea68fd67 657#ifdef USE_REENTRANT_API
115ff745 658PERLVAR(I, reentrant_buffer, REENTR *) /* here we store the _r buffers */
f5a82810
JH
659#endif
660
115ff745
NC
661PERLVAR(I, custom_op_names, HV *) /* Names of user defined ops */
662PERLVAR(I, custom_op_descs, HV *) /* Descriptions of user defined ops */
19e8ce8e 663
a1ea730d 664#ifdef PERLIO_LAYERS
115ff745
NC
665PERLVARI(I, perlio, PerlIOl *, NULL)
666PERLVARI(I, known_layers, PerlIO_list_t *, NULL)
667PERLVARI(I, def_layerlist, PerlIO_list_t *, NULL)
a1ea730d
NIS
668#endif
669
115ff745 670PERLVARI(I, encoding, SV *, NULL) /* character encoding */
0a378802 671
115ff745
NC
672PERLVAR(I, utf8_idstart, SV *)
673PERLVAR(I, utf8_idcont, SV *)
674PERLVAR(I, utf8_xidstart, SV *)
b6912c02 675PERLVAR(I, utf8_perl_idstart, SV *)
eba68aa0 676PERLVAR(I, utf8_perl_idcont, SV *)
115ff745 677PERLVAR(I, utf8_xidcont, SV *)
82686b01 678
115ff745 679PERLVAR(I, sort_RealCmp, SVCOMPARE_t)
147f47de 680
115ff745
NC
681PERLVARI(I, checkav_save, AV *, NULL) /* save CHECK{}s when compiling */
682PERLVARI(I, unitcheckav_save, AV *, NULL)
683 /* save UNITCHECK{}s when compiling */
ece599bd 684
115ff745 685PERLVARI(I, clocktick, long, 0) /* this many times() ticks in a second */
5311654c 686
15a5279a 687/* Hooks to shared SVs and locks. */
115ff745
NC
688PERLVARI(I, sharehook, share_proc_t, Perl_sv_nosharing)
689PERLVARI(I, lockhook, share_proc_t, Perl_sv_nosharing)
d0647d4e
NC
690#ifdef NO_MATHOMS
691# define PERL_UNLOCK_HOOK Perl_sv_nosharing
692#else
693/* This reference ensures that the mathoms are linked with perl */
694# define PERL_UNLOCK_HOOK Perl_sv_nounlocking
695#endif
115ff745 696PERLVARI(I, unlockhook, share_proc_t, PERL_UNLOCK_HOOK)
d0647d4e 697
115ff745 698PERLVARI(I, threadhook, thrhook_proc_t, Perl_nothreadhook)
15a5279a 699
9e08d3a4 700/* Can shared object be destroyed */
115ff745 701PERLVARI(I, destroyhook, destroyable_proc_t, Perl_sv_destroyable)
9e08d3a4 702
01d65469 703#ifndef PERL_MICRO
115ff745 704PERLVARI(I, signalhook, despatch_signals_proc_t, Perl_despatch_signals)
01d65469 705#endif
92f022bb 706
115ff745 707PERLVARI(I, isarev, HV *, NULL) /* Reverse map of @ISA dependencies */
f16dd614 708
9e08d3a4
NC
709/* Register of known Method Resolution Orders.
710 What this actually points to is an implementation detail (it may change to
711 a structure incorporating a reference count - use mro_get_from_name to
712 retrieve a C<struct mro_alg *> */
115ff745 713PERLVAR(I, registered_mros, HV *)
9e08d3a4
NC
714
715/* Compile-time block start/end hooks */
115ff745 716PERLVAR(I, blockhooks, AV *)
9e08d3a4
NC
717
718/* Everything that folds to a given character, for case insensitivity regex
719 * matching */
115ff745 720PERLVARI(I, utf8_foldclosures, HV *, NULL)
9e08d3a4
NC
721
722/* List of characters that participate in folds (except marks, etc in
723 * multi-char folds) */
115ff745 724PERLVARI(I, utf8_foldable, SV *, NULL)
9e08d3a4 725
115ff745 726PERLVAR(I, custom_ops, HV *) /* custom op registrations */
9e08d3a4 727
19bc2726
DM
728PERLVAR(I, Xpv, XPV *) /* (unused) held temporary value */
729
730/* name of the scopes we've ENTERed. Only used with -DDEBUGGING, but needs to be
731 present always, as -DDEBUGGING must be binary compatible with non. */
732PERLVARI(I, scopestack_name, const char * *, NULL)
733
734PERLVAR(I, debug_pad, struct perl_debug_pad) /* always needed because of the re extension */
735
d67594ff
FC
736/* Hook for File::Glob */
737PERLVARI(I, globhook, globhook_t, NULL)
738
d399cf59 739/* The last unconditional member of the interpreter structure when 5.18.0 was
ffee3ff6
NC
740 released. The offset of the end of this is baked into a global variable in
741 any shared perl library which will allow a sanity test in future perl
742 releases. */
d399cf59 743#define PERL_LAST_5_18_0_INTERP_MEMBER Iglobhook
ffee3ff6 744
f16dd614 745#ifdef PERL_IMPLICIT_CONTEXT
115ff745 746PERLVARI(I, my_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
817b0f24 747PERLVARI(I, my_cxt_size, int, 0) /* size of PL_my_cxt_list */
ba6d381e 748# ifdef PERL_GLOBAL_STRUCT_PRIVATE
115ff745 749PERLVARI(I, my_cxt_keys, const char **, NULL) /* per-module array of pointers to MY_CXT_KEY constants */
ba6d381e 750# endif
f16dd614
DM
751#endif
752
7cb608b5
NC
753#ifdef PERL_TRACK_MEMPOOL
754/* For use with the memory debugging code in util.c */
115ff745 755PERLVAR(I, memory_debug_header, struct perl_memory_debug_header)
7cb608b5
NC
756#endif
757
ba6d381e
NC
758#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
759/* File descriptor to talk to the child which dumps scalars. */
115ff745 760PERLVARI(I, dumper_fd, int, -1)
ba6d381e
NC
761#endif
762
ba6d381e 763#ifdef PERL_MAD
115ff745 764PERLVARI(I, madskills, bool, FALSE) /* preserve all syntactic info */
ba6d381e 765 /* (MAD = Misc Attribute Decoration) */
115ff745 766PERLVARI(I, xmlfp, PerlIO *, NULL)
ba6d381e
NC
767#endif
768
d7a2c63c 769#ifdef DEBUG_LEAKING_SCALARS
115ff745 770PERLVARI(I, sv_serial, U32, 0) /* SV serial number, used in sv.c */
d7a2c63c
MHM
771#endif
772
157b3822
NC
773/* If you are adding a U8 or U16, check to see if there are 'Space' comments
774 * above on where there are gaps which currently will be structure padding. */
d95e864f
NC
775
776/* Within a stable branch, new variables must be added to the very end, before
777 * this comment, for binary compatibility (the offsets of the old members must
778 * not change).
b83cd129 779 * (Don't forget to add your variable also to perl_clone()!)
e3acbfda 780 * XSUB.h provides wrapper functions via perlapi.h that make this
b83cd129
JH
781 * irrelevant, but not all code may be expected to #include XSUB.h.
782 */