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