X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/f65e70f560c80556143956eb9980619a9dfbe2f4..24ffa3099a4f0f4904129f4f4633846134d0b51f:/intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 32a9983..299ac0f 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -119,13 +119,12 @@ PERLVAR(I, sv_objcount,	IV)		/* DEPRECATED AND UNMAINTAINED.
 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 *)
@@ -229,8 +228,6 @@ PERLVAR(I, secondgv,	GV *)		/* $b */
 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 */
 
@@ -238,7 +235,7 @@ PERLVAR(I, exit_flags,	U8)		/* was exit() unexpected, etc. */
 
 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
@@ -559,7 +556,7 @@ PERLVAR(I, sawampersand, U8)		/* must save all match strings */
 #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
@@ -744,7 +741,7 @@ PERLVAR(I, debug_pad,	struct perl_debug_pad)	/* always needed because of the re
 /* 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.  */
@@ -778,6 +775,17 @@ PERLVARI(I, xmlfp,	PerlIO *, NULL)
 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.  */