remove unused PL_regcc variable

p4raw-id: //depot/perl@27599

diff --git a/embedvar.h b/embedvar.h
index a688c36..50bb2c3 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -104,7 +104,6 @@
 #define PL_reg_starttry                (vTHX->Treg_starttry)
 #define PL_reg_sv              (vTHX->Treg_sv)
 #define PL_regbol              (vTHX->Tregbol)
-#define PL_regcc               (vTHX->Tregcc)
 #define PL_regcompp            (vTHX->Tregcompp)
 #define PL_regdata             (vTHX->Tregdata)
 #define PL_regdummy            (vTHX->Tregdummy)
@@ -814,7 +813,6 @@
 #define PL_Treg_starttry       PL_reg_starttry
 #define PL_Treg_sv             PL_reg_sv
 #define PL_Tregbol             PL_regbol
-#define PL_Tregcc              PL_regcc
 #define PL_Tregcompp           PL_regcompp
 #define PL_Tregdata            PL_regdata
 #define PL_Tregdummy           PL_regdummy

diff --git a/perlapi.h b/perlapi.h
index 91422e3..b275264 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -830,8 +830,6 @@ END_EXTERN_C
 #define PL_reg_sv              (*Perl_Treg_sv_ptr(aTHX))
 #undef  PL_regbol
 #define PL_regbol              (*Perl_Tregbol_ptr(aTHX))
-#undef  PL_regcc
-#define PL_regcc               (*Perl_Tregcc_ptr(aTHX))
 #undef  PL_regcompp
 #define PL_regcompp            (*Perl_Tregcompp_ptr(aTHX))
 #undef  PL_regdata

diff --git a/regcomp.c b/regcomp.c
index cf8486c..46960fb 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -6199,7 +6199,6 @@ Perl_save_re_context(pTHX)
     SAVEI32(PL_regnarrate);            /* from regexec.c */
     SAVEVPTR(PL_regprogram);           /* from regexec.c */
     SAVEINT(PL_regindent);             /* from regexec.c */
-    SAVEVPTR(PL_regcc);                        /* from regexec.c */
     SAVEVPTR(PL_curcop);
     SAVEVPTR(PL_reg_call_cc);          /* from regexec.c */
     SAVEVPTR(PL_reg_re);               /* from regexec.c */

diff --git a/sv.c b/sv.c
index a19939e..3aa9108 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11437,7 +11437,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_regnarrate      = 0;
     PL_regprogram      = (regnode*)NULL;
     PL_regindent       = 0;
-    PL_regcc           = (CURCUR*)NULL;
     PL_reg_call_cc     = (struct re_cc_state*)NULL;
     PL_reg_re          = (regexp*)NULL;
     PL_reg_ganch       = NULL;

diff --git a/thrdvar.h b/thrdvar.h
index 2745470..5db1a33 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 */