Re: Making IO::Socket pass test on Win32

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

diff --git a/thrdvar.h b/thrdvar.h
index 2745470..34bd747 100644 (file)
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -183,7 +183,6 @@ 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(Tregcc,                CURCUR *)       /* from regexec.c */
 PERLVAR(Treg_call_cc,  struct re_cc_state *)   /* from regexec.c */
 PERLVAR(Treg_re,       regexp *)       /* from regexec.c */
 PERLVAR(Treg_ganch,    char *)         /* position of \G */
@@ -222,3 +221,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 *)