Try not to use negative values when accessing arrays in C. Yet another

[p5sagit/p5-mst-13.2.git] / thrdvar.h

diff --git a/thrdvar.h b/thrdvar.h
index 5db1a33..c626f5f 100644 (file)
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -160,8 +160,6 @@ PERLVARI(Tmaxscream,        I32,    -1)
 PERLVAR(Tlastscream,   SV *)
 
 PERLVAR(Tregdummy,     regnode)        /* from regcomp.c */
-PERLVAR(Tregprecomp,   char *)         /* uncompiled string. */
-PERLVAR(Tregnpar,      I32)            /* () count. */
 PERLVAR(Tregsize,      I32)            /* Code size. */
 PERLVAR(Tcolorset,     int)            /* from regcomp.c */
 PERLVARA(Tcolors,6,    char *)         /* from regcomp.c */
@@ -175,13 +173,11 @@ PERLVAR(Treglastcloseparen, U32 *)        /* Similarly for lastcloseparen. */
 PERLVAR(Tregtill,      char *)         /* How far we are required to go. */
 PERLVAR(Treg_start_tmp,        char **)        /* from regexec.c */
 PERLVAR(Treg_start_tmpl,U32)           /* from regexec.c */
-PERLVAR(Tregdata,      struct reg_data *)
                                        /* from regexec.c renamed was data */
 PERLVAR(Tbostr,                char *)         /* from regexec.c */
 PERLVAR(Treg_flags,    U32)            /* from regexec.c */
 PERLVAR(Treg_eval_set, I32)            /* from regexec.c */
 PERLVAR(Tregnarrate,   I32)            /* from regexec.c */
-PERLVAR(Tregprogram,   regnode *)      /* from regexec.c */
 PERLVARI(Tregindent,   int,        0)  /* from regexec.c */
 PERLVAR(Treg_call_cc,  struct re_cc_state *)   /* from regexec.c */
 PERLVAR(Treg_re,       regexp *)       /* from regexec.c */
@@ -221,3 +217,8 @@ PERLVAR(Twatchok,   char *)
 
 PERLVAR(Treg_match_utf8,       bool)           /* was what we matched against utf8 */
 
+/* the currently active slab in a chain of slabs of regmatch states,
+ * and the currently active state within that slab */
+
+PERLVARI(Tregmatch_slab,       regmatch_slab *, NULL)
+PERLVAR(Tregmatch_state,       regmatch_state *)