PERLVAR(I, sv_root, SV *) /* storage for SVs belonging to interp */
PERLVAR(I, sv_arenaroot, SV *) /* list of areas for garbage collection */
-PERLVAR(I, reg_state, struct re_save_state)
-
/* fake PMOP that PL_curpm points to while in (?{}) so $1 et al are visible */
PERLVARI(I, reg_curpm, PMOP*, NULL)
/* the currently active slab in a chain of slabs of regmatch states,
- * and the currently active state within that slab */
+ * and the currently active state within that slab. This stack of states
+ * is shared amongst re-entrant calls to the regex engine */
PERLVARI(I, regmatch_slab, regmatch_slab *, NULL)
PERLVAR(I, regmatch_state, regmatch_state *)
PERLVAR(I, efloatbuf, char *)
PERLVAR(I, efloatsize, STRLEN)
-PERLVAR(I, regdummy, regnode) /* from regcomp.c */
-
PERLVARI(I, dumpindent, U16, 4) /* number of blanks per dump
indentation level */
PERLVAR(I, utf8locale, bool) /* utf8 locale detected */
-PERLVARA(I, colors,6, char *) /* from regcomp.c */
+PERLVARA(I, colors,6, char *) /* values from PERL_RE_COLORS env var */
/*
=for apidoc Amn|peep_t|PL_peepp
#endif
PERLVAR(I, unsafe, bool)
-PERLVAR(I, colorset, bool) /* from regcomp.c */
+PERLVAR(I, colorset, bool) /* PERL_RE_COLORS env var is in use */
/* current phase the interpreter is in
for ordering this structure to remove holes, we're assuming that this is 4
/* Hook for File::Glob */
PERLVARI(I, globhook, globhook_t, NULL)
-/* The last unconditional member of the interpreter structure when 5.19.1 was
+/* The last unconditional member of the interpreter structure when 5.19.3 was
released. The offset of the end of this is baked into a global variable in
any shared perl library which will allow a sanity test in future perl
releases. */
PERLVARI(I, sv_serial, U32, 0) /* SV serial number, used in sv.c */
#endif
+PERLVARA(I, sv_consts, SV_CONSTS_COUNT, SV*) /* constant SVs with precomputed hash value */
+
+#ifdef PERL_TRACE_OPS
+PERLVARA(I, op_exec_cnt, OP_max+2, UV) /* Counts of executed OPs of the given type.
+ If PERL_TRACE_OPS is enabled, we'll dump
+ a summary count of all ops executed in the
+ program at perl_destruct time. For
+ profiling/debugging only. Works only if
+ DEBUGGING is enabled, too. */
+#endif
+
/* If you are adding a U8 or U16, check to see if there are 'Space' comments
* above on where there are gaps which currently will be structure padding. */