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)
+#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 */