PERLVARI(Imaxsysfd, I32, MAXSYSFD)
/* top fd to pass to subprocesses */
-PERLVAR(Imultiline, int) /* $*--do strings hold >1 line? */
PERLVAR(Istatusvalue, I32) /* $? */
PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */
#ifdef VMS
/* these used to be in global before 5.004_68 */
PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */
-PERLVARI(Irsfp, PerlIO * VOL, Nullfp) /* current source file pointer */
+PERLVARI(Irsfp, PerlIO * VOL, NULL) /* current source file pointer */
PERLVARI(Irsfp_filters, AV *, NULL) /* keeps active source filters */
PERLVAR(Icompiling, COP) /* compiling/done executing marker */
PERLVAR(Isighandlerp, Sighandler_t)
-PERLVARA(Ibody_roots, SVt_LAST, void*) /* array of body roots */
+PERLVARA(Ibody_roots, PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
PERLVAR(Inice_chunk, char *) /* a nice chunk of memory to reuse */
PERLVAR(Inice_chunk_size, U32) /* how nice the chunk of memory is */
PERLVAR(Ilex_casestack, char *) /* what kind of case mods in effect */
/* What we know when we're in LEX_KNOWNEXT state. */
+#ifdef PERL_MAD
+PERLVARA(Inexttoke,5, NEXTTOKE) /* value of next token, if any */
+PERLVAR(Ilasttoke, I32)
+PERLVAR(Irealtokenstart,I32)
+PERLVAR(Ifaketokens, I32)
+PERLVAR(Ithismad, MADPROP *)
+PERLVAR(Ithistoken, SV *)
+PERLVAR(Ithisopen, SV *)
+PERLVAR(Ithisstuff, SV *)
+PERLVAR(Ithisclose, SV *)
+PERLVAR(Ithiswhite, SV *)
+PERLVAR(Inextwhite, SV *)
+PERLVAR(Iskipwhite, SV *)
+PERLVAR(Iendwhite, SV *)
+PERLVAR(Icurforce, I32)
+#else
PERLVARA(Inextval,5, YYSTYPE) /* value of next token, if any */
PERLVARA(Inexttype,5, I32) /* type of next token */
PERLVAR(Inexttoke, I32)
+#endif
PERLVAR(Ilinestr, SV *)
PERLVAR(Ibufptr, char *)
PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */
+#ifdef PERL_MAD
+PERLVARI(Imadskills, bool, FALSE) /* preserve all syntactic info */
+ /* (MAD = Misc Attribute Decoration) */
+PERLVARI(Ixmlfp, PerlIO *,NULL)
+#endif
+
PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */
PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */
PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
-/* These two variables are needed to preserve 5.8.x bincompat because we can't
- change function prototypes of two exported functions. Probably should be
- taken out of blead soon, and relevant prototypes changed. */
-PERLVARI(Isuidscript, int, -1) /* fd for suid script */
#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
/* File descriptor to talk to the child which dumps scalars. */
PERLVARI(Idumper_fd, int, -1)
PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
#endif
+#ifdef PERL_TRACK_MEMPOOL
+/* For use with the memory debugging code in util.c */
+PERLVAR(Imemory_debug_header, struct perl_memory_debug_header)
+#endif
+
+#ifdef PERL_UTF8_CACHE_ASSERT
+PERLVARI(Iutf8cache, I8, -1) /* Is the utf8 caching code enabled? */
+#else
+PERLVARI(Iutf8cache, I8, 1) /* Is the utf8 caching code enabled? */
+#endif
+
/* New variables must be added to the very end, before this comment,
* for binary compatibility (the offsets of the old members must not change).
* (Don't forget to add your variable also to perl_clone()!)