Change 27599 by [EMAIL PROTECTED] on 2006/03/24 23:21:52
remove unused PL_regcc variable
Affected files ...
... //depot/perl/embedvar.h#221 edit
... //depot/perl/perlapi.h#143 edit
... //depot/perl/regcomp.c#406 edit
... //depot/perl/sv.c#1212 edit
... //depot/perl/thrdvar.h#70 edit
Differences ...
==== //depot/perl/embedvar.h#221 (text+w) ====
Index: perl/embedvar.h
--- perl/embedvar.h#220~27525~ 2006-03-16 15:11:11.000000000 -0800
+++ perl/embedvar.h 2006-03-24 15:21:52.000000000 -0800
@@ -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
==== //depot/perl/perlapi.h#143 (text+w) ====
Index: perl/perlapi.h
--- perl/perlapi.h#142~27525~ 2006-03-16 15:11:11.000000000 -0800
+++ perl/perlapi.h 2006-03-24 15:21:52.000000000 -0800
@@ -830,8 +830,6 @@
#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
==== //depot/perl/regcomp.c#406 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#405~27536~ 2006-03-17 11:37:41.000000000 -0800
+++ perl/regcomp.c 2006-03-24 15:21:52.000000000 -0800
@@ -6199,7 +6199,6 @@
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 */
==== //depot/perl/sv.c#1212 (text) ====
Index: perl/sv.c
--- perl/sv.c#1211~27588~ 2006-03-23 08:25:51.000000000 -0800
+++ perl/sv.c 2006-03-24 15:21:52.000000000 -0800
@@ -11437,7 +11437,6 @@
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;
==== //depot/perl/thrdvar.h#70 (text) ====
Index: perl/thrdvar.h
--- perl/thrdvar.h#69~27065~ 2006-02-03 08:03:01.000000000 -0800
+++ perl/thrdvar.h 2006-03-24 15:21:52.000000000 -0800
@@ -183,7 +183,6 @@
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 */
End of Patch.
