This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
create an "allocated" structure for PVs, PVAVs and PVHVs
[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 PERLVAR(Iofmt,          char *)         /* output format for numbers $# */
184
185 /* interpreter atexit processing */
186 PERLVARI(Iexitlist,     PerlExitListEntry *, NULL)
187                                         /* list of exit functions */
188 PERLVARI(Iexitlistlen,  I32, 0)         /* length of same */
189
190 /*
191 =for apidoc Amn|HV*|PL_modglobal
192
193 C<PL_modglobal> is a general purpose, interpreter global HV for use by
194 extensions that need to keep information on a per-interpreter basis.
195 In a pinch, it can also be used as a symbol table for extensions
196 to share data among each other.  It is a good idea to use keys
197 prefixed by the package name of the extension that owns the data.
198
199 =cut
200 */
201
202 PERLVAR(Imodglobal,     HV *)           /* per-interp module data */
203
204 /* these used to be in global before 5.004_68 */
205 PERLVARI(Iprofiledata,  U32 *,  NULL)   /* table of ops, counts */
206 PERLVARI(Irsfp, PerlIO * VOL,   Nullfp) /* current source file pointer */
207 PERLVARI(Irsfp_filters, AV *,   Nullav) /* keeps active source filters */
208
209 PERLVAR(Icompiling,     COP)            /* compiling/done executing marker */
210
211 PERLVAR(Icompcv,        CV *)           /* currently compiling subroutine */
212 PERLVAR(Icomppad,       AV *)           /* storage for lexically scoped temporaries */
213 PERLVAR(Icomppad_name,  AV *)           /* variable names for "my" variables */
214 PERLVAR(Icomppad_name_fill,     I32)    /* last "introduced" variable offset */
215 PERLVAR(Icomppad_name_floor,    I32)    /* start of vars in innermost block */
216
217 #ifdef HAVE_INTERP_INTERN
218 PERLVAR(Isys_intern,    struct interp_intern)
219                                         /* platform internals */
220 #endif
221
222 /* more statics moved here */
223 PERLVARI(Igeneration,   int,    100)    /* from op.c */
224 PERLVAR(IDBcv,          CV *)           /* from perl.c */
225
226 PERLVARI(Iin_clean_objs,bool,    FALSE) /* from sv.c */
227 PERLVARI(Iin_clean_all, bool,    FALSE) /* from sv.c */
228
229 PERLVAR(Ilinestart,     char *)         /* beg. of most recently read line */
230 PERLVAR(Ipending_ident, char)           /* pending identifier lookup */
231 PERLVAR(Isublex_info,   SUBLEXINFO)     /* from toke.c */
232
233 PERLVAR(Iuid,           Uid_t)          /* current real user id */
234 PERLVAR(Ieuid,          Uid_t)          /* current effective user id */
235 PERLVAR(Igid,           Gid_t)          /* current real group id */
236 PERLVAR(Iegid,          Gid_t)          /* current effective group id */
237 PERLVAR(Inomemok,       bool)           /* let malloc context handle nomem */
238 PERLVARI(Ian,           U32,    0)      /* malloc sequence number */
239 PERLVARI(Icop_seqmax,   U32,    0)      /* statement sequence number */
240 PERLVARI(Ievalseq,      U32,    0)      /* eval sequence number */
241 PERLVAR(Iorigenviron,   char **)
242 PERLVAR(Iorigalen,      U32)
243 PERLVAR(Ipidstatus,     HV *)           /* pid-to-status mappings for waitpid */
244 PERLVARI(Imaxo, int,    MAXO)           /* maximum number of ops */
245 PERLVAR(Iosname,        char *)         /* operating system */
246
247 /* For binary compatibility with older versions only */
248 PERLVARI(Ish_path_compat,       const char *,   SH_PATH)/* full path of shell */
249
250 PERLVAR(Isighandlerp,   Sighandler_t)
251
252 PERLVAR(Ixiv_arenaroot, XPV*)           /* list of allocated xiv areas */
253 PERLVAR(Ixiv_root,      IV *)           /* free xiv list */
254 PERLVAR(Ixnv_root,      NV *)           /* free xnv list */
255 PERLVAR(Ixrv_root,      XRV *)          /* free xrv list */
256 PERLVAR(Ixpv_root,      xpv_allocated *)        /* free xpv list */
257 PERLVAR(Ixpviv_root,    XPVIV *)        /* free xpviv list */
258 PERLVAR(Ixpvnv_root,    XPVNV *)        /* free xpvnv list */
259 PERLVAR(Ixpvcv_root,    XPVCV *)        /* free xpvcv list */
260 PERLVAR(Ixpvav_root,    xpvav_allocated *)      /* free xpvav list */
261 PERLVAR(Ixpvhv_root,    xpvhv_allocated *)      /* free xpvhv list */
262 PERLVAR(Ixpvmg_root,    XPVMG *)        /* free xpvmg list */
263 PERLVAR(Ixpvgv_root,    XPVGV *)        /* free xpvgv list */
264 PERLVAR(Ixpvlv_root,    XPVLV *)        /* free xpvlv list */
265 PERLVAR(Ixpvbm_root,    XPVBM *)        /* free xpvbm list */
266 PERLVAR(Ihe_root,       HE *)           /* free he list */
267 #if defined(USE_ITHREADS)
268 PERLVAR(Ipte_root,      struct ptr_tbl_ent *)   /* free ptr_tbl_ent list */
269 #endif
270 PERLVAR(Inice_chunk,    char *)         /* a nice chunk of memory to reuse */
271 PERLVAR(Inice_chunk_size,       U32)    /* how nice the chunk of memory is */
272
273 PERLVARI(Irunops,       runops_proc_t,  MEMBER_TO_FPTR(RUNOPS_DEFAULT))
274
275 PERLVARA(Itokenbuf,256, char)
276
277 /*
278 =for apidoc Amn|SV|PL_sv_undef
279 This is the C<undef> SV.  Always refer to this as C<&PL_sv_undef>.
280
281 =for apidoc Amn|SV|PL_sv_no
282 This is the C<false> SV.  See C<PL_sv_yes>.  Always refer to this as
283 C<&PL_sv_no>.
284
285 =for apidoc Amn|SV|PL_sv_yes
286 This is the C<true> SV.  See C<PL_sv_no>.  Always refer to this as
287 C<&PL_sv_yes>.
288
289 =cut
290 */
291
292 PERLVAR(Isv_undef,      SV)
293 PERLVAR(Isv_no,         SV)
294 PERLVAR(Isv_yes,        SV)
295
296 #ifdef CSH
297 PERLVARI(Icshname,      const char *,   CSH)
298 PERLVARI(Icshlen,       I32,    0)
299 #endif
300
301 PERLVAR(Ilex_state,     U32)            /* next token is determined */
302 PERLVAR(Ilex_defer,     U32)            /* state after determined token */
303 PERLVAR(Ilex_expect,    int)            /* expect after determined token */
304 PERLVAR(Ilex_brackets,  I32)            /* bracket count */
305 PERLVAR(Ilex_formbrack, I32)            /* bracket count at outer format level */
306 PERLVAR(Ilex_casemods,  I32)            /* casemod count */
307 PERLVAR(Ilex_dojoin,    I32)            /* doing an array interpolation */
308 PERLVAR(Ilex_starts,    I32)            /* how many interps done on level */
309 PERLVAR(Ilex_stuff,     SV *)           /* runtime pattern from m// or s/// */
310 PERLVAR(Ilex_repl,      SV *)           /* runtime replacement from s/// */
311 PERLVAR(Ilex_op,        OP *)           /* extra info to pass back on op */
312 PERLVAR(Ilex_inpat,     OP *)           /* in pattern $) and $| are special */
313 PERLVAR(Ilex_inwhat,    I32)            /* what kind of quoting are we in */
314 PERLVAR(Ilex_brackstack,char *)         /* what kind of brackets to pop */
315 PERLVAR(Ilex_casestack, char *)         /* what kind of case mods in effect */
316
317 /* What we know when we're in LEX_KNOWNEXT state. */
318 PERLVARA(Inextval,5,    YYSTYPE)        /* value of next token, if any */
319 PERLVARA(Inexttype,5,   I32)            /* type of next token */
320 PERLVAR(Inexttoke,      I32)
321
322 PERLVAR(Ilinestr,       SV *)
323 PERLVAR(Ibufptr,        char *)
324 PERLVAR(Ioldbufptr,     char *)
325 PERLVAR(Ioldoldbufptr,  char *)
326 PERLVAR(Ibufend,        char *)
327 PERLVARI(Iexpect,int,   XSTATE)         /* how to interpret ambiguous tokens */
328
329 PERLVAR(Imulti_start,   I32)            /* 1st line of multi-line string */
330 PERLVAR(Imulti_end,     I32)            /* last line of multi-line string */
331 PERLVAR(Imulti_open,    I32)            /* delimiter of said string */
332 PERLVAR(Imulti_close,   I32)            /* delimiter of said string */
333
334 PERLVAR(Ierror_count,   I32)            /* how many errors so far, max 10 */
335 PERLVAR(Isubline,       I32)            /* line this subroutine began on */
336 PERLVAR(Isubname,       SV *)           /* name of current subroutine */
337
338 PERLVAR(Imin_intro_pending,     I32)    /* start of vars to introduce */
339 PERLVAR(Imax_intro_pending,     I32)    /* end of vars to introduce */
340 PERLVAR(Ipadix,         I32)            /* max used index in current "register" pad */
341 PERLVAR(Ipadix_floor,   I32)            /* how low may inner block reset padix */
342 PERLVAR(Ipad_reset_pending,     I32)    /* reset pad on next attempted alloc */
343
344 PERLVAR(Ilast_uni,      char *)         /* position of last named-unary op */
345 PERLVAR(Ilast_lop,      char *)         /* position of last list operator */
346 PERLVAR(Ilast_lop_op,   OPCODE)         /* last list operator */
347 PERLVAR(Iin_my,         I32)            /* we're compiling a "my" (or "our") declaration */
348 PERLVAR(Iin_my_stash,   HV *)           /* declared class of this "my" declaration */
349 #ifdef FCRYPT
350 PERLVARI(Icryptseen,    bool,   FALSE)  /* has fast crypt() been initialized? */
351 #endif
352
353 PERLVAR(Ihints,         U32)            /* pragma-tic compile-time flags */
354
355 PERLVAR(Idebug,         VOL U32)        /* flags given to -D switch */
356
357 PERLVARI(Iamagic_generation,    long,   0)
358
359 #ifdef USE_LOCALE_COLLATE
360 PERLVARI(Icollation_ix, U32,    0)      /* Collation generation index */
361 PERLVAR(Icollation_name,char *)         /* Name of current collation */
362 PERLVARI(Icollation_standard, bool,     TRUE)
363                                         /* Assume simple collation */
364 PERLVAR(Icollxfrm_base, Size_t)         /* Basic overhead in *xfrm() */
365 PERLVARI(Icollxfrm_mult,Size_t, 2)      /* Expansion factor in *xfrm() */
366 #endif /* USE_LOCALE_COLLATE */
367
368 #ifdef USE_LOCALE_NUMERIC
369
370 PERLVAR(Inumeric_name,  char *)         /* Name of current numeric locale */
371 PERLVARI(Inumeric_standard,     bool,   TRUE)
372                                         /* Assume simple numerics */
373 PERLVARI(Inumeric_local,        bool,   TRUE)
374                                         /* Assume local numerics */
375
376 PERLVAR(Inumeric_compat1,               char)
377                                         /* Used to be numeric_radix */
378 #endif /* !USE_LOCALE_NUMERIC */
379
380 /* utf8 character classes */
381 PERLVAR(Iutf8_alnum,    SV *)
382 PERLVAR(Iutf8_alnumc,   SV *)
383 PERLVAR(Iutf8_ascii,    SV *)
384 PERLVAR(Iutf8_alpha,    SV *)
385 PERLVAR(Iutf8_space,    SV *)
386 PERLVAR(Iutf8_cntrl,    SV *)
387 PERLVAR(Iutf8_graph,    SV *)
388 PERLVAR(Iutf8_digit,    SV *)
389 PERLVAR(Iutf8_upper,    SV *)
390 PERLVAR(Iutf8_lower,    SV *)
391 PERLVAR(Iutf8_print,    SV *)
392 PERLVAR(Iutf8_punct,    SV *)
393 PERLVAR(Iutf8_xdigit,   SV *)
394 PERLVAR(Iutf8_mark,     SV *)
395 PERLVAR(Iutf8_toupper,  SV *)
396 PERLVAR(Iutf8_totitle,  SV *)
397 PERLVAR(Iutf8_tolower,  SV *)
398 PERLVAR(Iutf8_tofold,   SV *)
399 PERLVAR(Ilast_swash_hv, HV *)
400 PERLVAR(Ilast_swash_klen,       U32)
401 PERLVARA(Ilast_swash_key,10,    U8)
402 PERLVAR(Ilast_swash_tmps,       U8 *)
403 PERLVAR(Ilast_swash_slen,       STRLEN)
404
405 /* perly.c globals */
406 PERLVAR(Iyycharp,       int *)
407 PERLVAR(Iyylvalp,       YYSTYPE *)
408
409 PERLVARI(Iglob_index,   int,    0)
410 PERLVAR(Isrand_called,  bool)
411 PERLVARA(Iuudmap,256,   char)
412 PERLVAR(Ibitcount,      char *)
413
414 PERLVAR(Ipsig_ptr, SV**)
415 PERLVAR(Ipsig_name, SV**)
416
417 #if defined(PERL_IMPLICIT_SYS)
418 PERLVAR(IMem,           struct IPerlMem*)
419 PERLVAR(IMemShared,     struct IPerlMem*)
420 PERLVAR(IMemParse,      struct IPerlMem*)
421 PERLVAR(IEnv,           struct IPerlEnv*)
422 PERLVAR(IStdIO,         struct IPerlStdIO*)
423 PERLVAR(ILIO,           struct IPerlLIO*)
424 PERLVAR(IDir,           struct IPerlDir*)
425 PERLVAR(ISock,          struct IPerlSock*)
426 PERLVAR(IProc,          struct IPerlProc*)
427 #endif
428
429 #if defined(USE_ITHREADS)
430 PERLVAR(Iptr_table,     PTR_TBL_t*)
431 #endif
432 PERLVARI(Ibeginav_save, AV*, Nullav)    /* save BEGIN{}s when compiling */
433
434 PERLVAR(Ixnv_arenaroot, XPV*)           /* list of allocated xnv areas */
435 PERLVAR(Ixrv_arenaroot, XPV*)           /* list of allocated xrv areas */
436 PERLVAR(Ixpv_arenaroot, xpv_allocated *)        /* list of allocated xpv areas */
437 PERLVAR(Ixpviv_arenaroot,XPVIV*)        /* list of allocated xpviv areas */
438 PERLVAR(Ixpvnv_arenaroot,XPVNV*)        /* list of allocated xpvnv areas */
439 PERLVAR(Ixpvcv_arenaroot,XPVCV*)        /* list of allocated xpvcv areas */
440 PERLVAR(Ixpvav_arenaroot,xpvav_allocated*)      /* list of allocated xpvav areas */
441 PERLVAR(Ixpvhv_arenaroot,xpvhv_allocated*)      /* list of allocated xpvhv areas */
442 PERLVAR(Ixpvmg_arenaroot,XPVMG*)        /* list of allocated xpvmg areas */
443 PERLVAR(Ixpvgv_arenaroot,XPVGV*)        /* list of allocated xpvgv areas */
444 PERLVAR(Ixpvlv_arenaroot,XPVLV*)        /* list of allocated xpvlv areas */
445 PERLVAR(Ixpvbm_arenaroot,XPVBM*)        /* list of allocated xpvbm areas */
446 PERLVAR(Ihe_arenaroot,  HE *)           /* list of allocated he areas */
447 #if defined(USE_ITHREADS)
448 PERLVAR(Ipte_arenaroot, struct ptr_tbl_ent *) /* list of allocated he areas */
449 #endif
450      /* 5.6.0 stopped here */
451
452 PERLVAR(Ipsig_pend, int *)              /* per-signal "count" of pending */
453 PERLVARI(Isig_pending, int,0)           /* Number if highest signal pending */
454
455 #ifdef USE_LOCALE_NUMERIC
456
457 PERLVAR(Inumeric_radix_sv,      SV *)   /* The radix separator if not '.' */
458
459 #endif
460
461 #if defined(USE_ITHREADS)
462 PERLVAR(Iregex_pad,     SV**)           /* All regex objects */
463 PERLVAR(Iregex_padav,   AV*)            /* All regex objects */
464
465 #endif
466
467 #ifdef USE_REENTRANT_API
468 PERLVAR(Ireentrant_buffer, REENTR*)     /* here we store the _r buffers */
469 #endif
470
471 PERLVARI(Isavebegin,     bool,  FALSE)  /* save BEGINs for compiler     */
472
473 PERLVAR(Icustom_op_names, HV*)  /* Names of user defined ops */
474 PERLVAR(Icustom_op_descs, HV*)  /* Descriptions of user defined ops */
475
476 #ifdef PERLIO_LAYERS
477 PERLVARI(Iperlio, PerlIO *,NULL)
478 PERLVARI(Iknown_layers, PerlIO_list_t *,NULL)
479 PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL)
480 #endif
481
482 PERLVARI(Iencoding,     SV*, Nullsv)            /* character encoding */
483
484 PERLVAR(Idebug_pad,     struct perl_debug_pad)  /* always needed because of the re extension */
485
486 PERLVAR(Itaint_warn, bool)      /* taint warns instead of dying */
487
488 #ifdef PL_OP_SLAB_ALLOC
489 PERLVAR(IOpPtr,I32 **)
490 PERLVARI(IOpSpace,I32,0)
491 PERLVAR(IOpSlab,I32 *)
492 #endif
493
494 PERLVAR(Iutf8locale,    bool)           /* utf8 locale detected */
495
496 PERLVAR(Iutf8_idstart,  SV *)
497 PERLVAR(Iutf8_idcont,   SV *)
498
499 PERLVAR(Isort_RealCmp,  SVCOMPARE_t)
500
501 PERLVARI(Icheckav_save, AV*, Nullav)    /* save CHECK{}s when compiling */
502
503 PERLVARI(Iclocktick, long, 0)   /* this many times() ticks in a second */
504
505 PERLVARI(Iin_load_module, int, 0)       /* to prevent recursions in PerlIO_find_layer */
506
507 PERLVAR(Iunicode, U32)  /* Unicode features: $ENV{PERL_UNICODE} or -C */
508
509 PERLVAR(Isignals, U32)  /* Using which pre-5.8 signals */
510
511 PERLVAR(Istashcache,    HV *)           /* Cache to speed up S_method_common */
512
513 PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions */
514
515 /* Hooks to shared SVs and locks. */
516 PERLVARI(Isharehook,    share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nosharing))
517 PERLVARI(Ilockhook,     share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nolocking))
518 PERLVARI(Iunlockhook,   share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nounlocking))
519 PERLVARI(Ithreadhook,   thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
520
521 /* Force inclusion of both runops options */
522 PERLVARI(Irunops_std,   runops_proc_t,  MEMBER_TO_FPTR(Perl_runops_standard))
523 PERLVARI(Irunops_dbg,   runops_proc_t,  MEMBER_TO_FPTR(Perl_runops_debug))
524
525 /* Stores the PPID */
526 #ifdef THREADS_HAVE_PIDS
527 PERLVARI(Ippid,         IV,             0)
528 #endif
529
530 PERLVARI(Ihash_seed, UV, 0)             /* Hash initializer */
531
532 PERLVARI(Ihash_seed_set, bool, FALSE)           /* Hash initialized? */
533
534 PERLVAR(IDBassertion,   SV *)
535
536 PERLVARI(Icv_has_eval, I32, 0) /* PL_compcv includes an entereval or similar */
537
538 PERLVARI(Irehash_seed, UV, 0)           /* 582 hash initializer */
539
540 PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
541
542 /* These two variables are needed to preserve 5.8.x bincompat because we can't
543    change function prototypes of two exported functions.  Probably should be
544    taken out of blead soon, and relevant prototypes changed.  */
545 PERLVARI(Ifdscript, int, -1)    /* fd for script */
546 PERLVARI(Isuidscript, int, -1)  /* fd for suid script */
547 /* New variables must be added to the very end, before this comment,
548  * for binary compatibility (the offsets of the old members must not change).
549  * (Don't forget to add your variable also to perl_clone()!)
550  * XSUB.h provides wrapper functions via perlapi.h that make this
551  * irrelevant, but not all code may be expected to #include XSUB.h.
552  */
553