From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 24 Mar 2006 23:21:52 +0000 (+0000)
Subject: remove unused PL_regcc variable
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=35ade292f2ece2926aa263efd6269babc55a7f74;p=p5sagit%2Fp5-mst-13.2.git

remove unused PL_regcc variable

p4raw-id: //depot/perl@27599
---

diff --git a/embedvar.h b/embedvar.h
index a688c36..50bb2c3 100644
--- 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
--- 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
--- 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
--- 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
--- 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 */