From: Gurusamy Sarathy Date: Sat, 28 Dec 2002 02:05:14 +0000 (+0000) Subject: these variables are not in use anywhere since 5.8.0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dc9c021ca78f3bbc3b2e8051ee276bd4857df211;p=p5sagit%2Fp5-mst-13.2.git these variables are not in use anywhere since 5.8.0 p4raw-id: //depot/perl@18355 --- diff --git a/embedvar.h b/embedvar.h index bcf31c7..cc70926 100644 --- a/embedvar.h +++ b/embedvar.h @@ -60,7 +60,6 @@ #define PL_efloatbuf (vTHX->Tefloatbuf) #define PL_efloatsize (vTHX->Tefloatsize) #define PL_errors (vTHX->Terrors) -#define PL_extralen (vTHX->Textralen) #define PL_firstgv (vTHX->Tfirstgv) #define PL_formtarget (vTHX->Tformtarget) #define PL_hv_fetch_ent_mh (vTHX->Thv_fetch_ent_mh) @@ -103,20 +102,14 @@ #define PL_reg_start_tmpl (vTHX->Treg_start_tmpl) #define PL_reg_starttry (vTHX->Treg_starttry) #define PL_reg_sv (vTHX->Treg_sv) -#define PL_reg_whilem_seen (vTHX->Treg_whilem_seen) #define PL_regbol (vTHX->Tregbol) #define PL_regcc (vTHX->Tregcc) -#define PL_regcode (vTHX->Tregcode) -#define PL_regcomp_parse (vTHX->Tregcomp_parse) -#define PL_regcomp_rx (vTHX->Tregcomp_rx) -#define PL_regcompat1 (vTHX->Tregcompat1) #define PL_regcompp (vTHX->Tregcompp) #define PL_regdata (vTHX->Tregdata) #define PL_regdummy (vTHX->Tregdummy) #define PL_regendp (vTHX->Tregendp) #define PL_regeol (vTHX->Tregeol) #define PL_regexecp (vTHX->Tregexecp) -#define PL_regflags (vTHX->Tregflags) #define PL_regfree (vTHX->Tregfree) #define PL_regindent (vTHX->Tregindent) #define PL_reginput (vTHX->Treginput) @@ -126,16 +119,12 @@ #define PL_reglastcloseparen (vTHX->Treglastcloseparen) #define PL_reglastparen (vTHX->Treglastparen) #define PL_regnarrate (vTHX->Tregnarrate) -#define PL_regnaughty (vTHX->Tregnaughty) #define PL_regnpar (vTHX->Tregnpar) #define PL_regprecomp (vTHX->Tregprecomp) #define PL_regprogram (vTHX->Tregprogram) -#define PL_regsawback (vTHX->Tregsawback) -#define PL_regseen (vTHX->Tregseen) #define PL_regsize (vTHX->Tregsize) #define PL_regstartp (vTHX->Tregstartp) #define PL_regtill (vTHX->Tregtill) -#define PL_regxend (vTHX->Tregxend) #define PL_restartop (vTHX->Trestartop) #define PL_retstack (vTHX->Tretstack) #define PL_retstack_ix (vTHX->Tretstack_ix) @@ -150,8 +139,6 @@ #define PL_screamfirst (vTHX->Tscreamfirst) #define PL_screamnext (vTHX->Tscreamnext) #define PL_secondgv (vTHX->Tsecondgv) -#define PL_seen_evals (vTHX->Tseen_evals) -#define PL_seen_zerolen (vTHX->Tseen_zerolen) #define PL_sortcop (vTHX->Tsortcop) #define PL_sortcxix (vTHX->Tsortcxix) #define PL_sortstash (vTHX->Tsortstash) @@ -772,7 +759,6 @@ #define PL_Tefloatbuf PL_efloatbuf #define PL_Tefloatsize PL_efloatsize #define PL_Terrors PL_errors -#define PL_Textralen PL_extralen #define PL_Tfirstgv PL_firstgv #define PL_Tformtarget PL_formtarget #define PL_Thv_fetch_ent_mh PL_hv_fetch_ent_mh @@ -815,20 +801,14 @@ #define PL_Treg_start_tmpl PL_reg_start_tmpl #define PL_Treg_starttry PL_reg_starttry #define PL_Treg_sv PL_reg_sv -#define PL_Treg_whilem_seen PL_reg_whilem_seen #define PL_Tregbol PL_regbol #define PL_Tregcc PL_regcc -#define PL_Tregcode PL_regcode -#define PL_Tregcomp_parse PL_regcomp_parse -#define PL_Tregcomp_rx PL_regcomp_rx -#define PL_Tregcompat1 PL_regcompat1 #define PL_Tregcompp PL_regcompp #define PL_Tregdata PL_regdata #define PL_Tregdummy PL_regdummy #define PL_Tregendp PL_regendp #define PL_Tregeol PL_regeol #define PL_Tregexecp PL_regexecp -#define PL_Tregflags PL_regflags #define PL_Tregfree PL_regfree #define PL_Tregindent PL_regindent #define PL_Treginput PL_reginput @@ -838,16 +818,12 @@ #define PL_Treglastcloseparen PL_reglastcloseparen #define PL_Treglastparen PL_reglastparen #define PL_Tregnarrate PL_regnarrate -#define PL_Tregnaughty PL_regnaughty #define PL_Tregnpar PL_regnpar #define PL_Tregprecomp PL_regprecomp #define PL_Tregprogram PL_regprogram -#define PL_Tregsawback PL_regsawback -#define PL_Tregseen PL_regseen #define PL_Tregsize PL_regsize #define PL_Tregstartp PL_regstartp #define PL_Tregtill PL_regtill -#define PL_Tregxend PL_regxend #define PL_Trestartop PL_restartop #define PL_Tretstack PL_retstack #define PL_Tretstack_ix PL_retstack_ix @@ -862,8 +838,6 @@ #define PL_Tscreamfirst PL_screamfirst #define PL_Tscreamnext PL_screamnext #define PL_Tsecondgv PL_secondgv -#define PL_Tseen_evals PL_seen_evals -#define PL_Tseen_zerolen PL_seen_zerolen #define PL_Tsortcop PL_sortcop #define PL_Tsortcxix PL_sortcxix #define PL_Tsortstash PL_sortstash diff --git a/perlapi.h b/perlapi.h index d4b678a..451a4d9 100644 --- a/perlapi.h +++ b/perlapi.h @@ -696,8 +696,6 @@ END_EXTERN_C #define PL_efloatsize (*Perl_Tefloatsize_ptr(aTHX)) #undef PL_errors #define PL_errors (*Perl_Terrors_ptr(aTHX)) -#undef PL_extralen -#define PL_extralen (*Perl_Textralen_ptr(aTHX)) #undef PL_firstgv #define PL_firstgv (*Perl_Tfirstgv_ptr(aTHX)) #undef PL_formtarget @@ -782,20 +780,10 @@ END_EXTERN_C #define PL_reg_starttry (*Perl_Treg_starttry_ptr(aTHX)) #undef PL_reg_sv #define PL_reg_sv (*Perl_Treg_sv_ptr(aTHX)) -#undef PL_reg_whilem_seen -#define PL_reg_whilem_seen (*Perl_Treg_whilem_seen_ptr(aTHX)) #undef PL_regbol #define PL_regbol (*Perl_Tregbol_ptr(aTHX)) #undef PL_regcc #define PL_regcc (*Perl_Tregcc_ptr(aTHX)) -#undef PL_regcode -#define PL_regcode (*Perl_Tregcode_ptr(aTHX)) -#undef PL_regcomp_parse -#define PL_regcomp_parse (*Perl_Tregcomp_parse_ptr(aTHX)) -#undef PL_regcomp_rx -#define PL_regcomp_rx (*Perl_Tregcomp_rx_ptr(aTHX)) -#undef PL_regcompat1 -#define PL_regcompat1 (*Perl_Tregcompat1_ptr(aTHX)) #undef PL_regcompp #define PL_regcompp (*Perl_Tregcompp_ptr(aTHX)) #undef PL_regdata @@ -808,8 +796,6 @@ END_EXTERN_C #define PL_regeol (*Perl_Tregeol_ptr(aTHX)) #undef PL_regexecp #define PL_regexecp (*Perl_Tregexecp_ptr(aTHX)) -#undef PL_regflags -#define PL_regflags (*Perl_Tregflags_ptr(aTHX)) #undef PL_regfree #define PL_regfree (*Perl_Tregfree_ptr(aTHX)) #undef PL_regindent @@ -828,26 +814,18 @@ END_EXTERN_C #define PL_reglastparen (*Perl_Treglastparen_ptr(aTHX)) #undef PL_regnarrate #define PL_regnarrate (*Perl_Tregnarrate_ptr(aTHX)) -#undef PL_regnaughty -#define PL_regnaughty (*Perl_Tregnaughty_ptr(aTHX)) #undef PL_regnpar #define PL_regnpar (*Perl_Tregnpar_ptr(aTHX)) #undef PL_regprecomp #define PL_regprecomp (*Perl_Tregprecomp_ptr(aTHX)) #undef PL_regprogram #define PL_regprogram (*Perl_Tregprogram_ptr(aTHX)) -#undef PL_regsawback -#define PL_regsawback (*Perl_Tregsawback_ptr(aTHX)) -#undef PL_regseen -#define PL_regseen (*Perl_Tregseen_ptr(aTHX)) #undef PL_regsize #define PL_regsize (*Perl_Tregsize_ptr(aTHX)) #undef PL_regstartp #define PL_regstartp (*Perl_Tregstartp_ptr(aTHX)) #undef PL_regtill #define PL_regtill (*Perl_Tregtill_ptr(aTHX)) -#undef PL_regxend -#define PL_regxend (*Perl_Tregxend_ptr(aTHX)) #undef PL_restartop #define PL_restartop (*Perl_Trestartop_ptr(aTHX)) #undef PL_retstack @@ -876,10 +854,6 @@ END_EXTERN_C #define PL_screamnext (*Perl_Tscreamnext_ptr(aTHX)) #undef PL_secondgv #define PL_secondgv (*Perl_Tsecondgv_ptr(aTHX)) -#undef PL_seen_evals -#define PL_seen_evals (*Perl_Tseen_evals_ptr(aTHX)) -#undef PL_seen_zerolen -#define PL_seen_zerolen (*Perl_Tseen_zerolen_ptr(aTHX)) #undef PL_sortcop #define PL_sortcop (*Perl_Tsortcop_ptr(aTHX)) #undef PL_sortcxix diff --git a/sv.c b/sv.c index d8a8245..478097f 100644 --- a/sv.c +++ b/sv.c @@ -10768,23 +10768,11 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_watchok = Nullch; PL_regdummy = proto_perl->Tregdummy; - PL_regcomp_parse = Nullch; - PL_regxend = Nullch; - PL_regcode = (regnode*)NULL; - PL_regnaughty = 0; - PL_regsawback = 0; PL_regprecomp = Nullch; PL_regnpar = 0; PL_regsize = 0; - PL_regflags = 0; - PL_regseen = 0; - PL_seen_zerolen = 0; - PL_seen_evals = 0; - PL_regcomp_rx = (regexp*)NULL; - PL_extralen = 0; PL_colorset = 0; /* reinits PL_colors[] */ /*PL_colors[6] = {0,0,0,0,0,0};*/ - PL_reg_whilem_seen = 0; PL_reginput = Nullch; PL_regbol = Nullch; PL_regeol = Nullch; diff --git a/thrdvar.h b/thrdvar.h index 48f6845..6058642 100644 --- a/thrdvar.h +++ b/thrdvar.h @@ -168,23 +168,11 @@ PERLVARI(Tmaxscream, I32, -1) PERLVAR(Tlastscream, SV *) PERLVAR(Tregdummy, regnode) /* from regcomp.c */ -PERLVAR(Tregcomp_parse, char*) /* Input-scan pointer. */ -PERLVAR(Tregxend, char*) /* End of input for compile */ -PERLVAR(Tregcode, regnode*) /* Code-emit pointer; ®dummy = don't */ -PERLVAR(Tregnaughty, I32) /* How bad is this pattern? */ -PERLVAR(Tregsawback, I32) /* Did we see \1, ...? */ PERLVAR(Tregprecomp, char *) /* uncompiled string. */ PERLVAR(Tregnpar, I32) /* () count. */ PERLVAR(Tregsize, I32) /* Code size. */ -PERLVAR(Tregflags, U32) /* are we folding, multilining? */ -PERLVAR(Tregseen, U32) /* from regcomp.c */ -PERLVAR(Tseen_zerolen, I32) /* from regcomp.c */ -PERLVAR(Tseen_evals, I32) /* from regcomp.c */ -PERLVAR(Tregcomp_rx, regexp *) /* from regcomp.c */ -PERLVAR(Textralen, I32) /* from regcomp.c */ PERLVAR(Tcolorset, int) /* from regcomp.c */ PERLVARA(Tcolors,6, char *) /* from regcomp.c */ -PERLVAR(Treg_whilem_seen, I32) /* number of WHILEM in this expr */ PERLVAR(Treginput, char *) /* String-input pointer. */ PERLVAR(Tregbol, char *) /* Beginning of input, for ^ check. */ PERLVAR(Tregeol, char *) /* End of input, for $ check. */ @@ -193,7 +181,6 @@ PERLVAR(Tregendp, I32 *) /* Ditto for endp. */ PERLVAR(Treglastparen, U32 *) /* Similarly for lastparen. */ PERLVAR(Treglastcloseparen, U32 *) /* Similarly for lastcloseparen. */ PERLVAR(Tregtill, char *) /* How far we are required to go. */ -PERLVAR(Tregcompat1, char) /* used to be regprev1 */ PERLVAR(Treg_start_tmp, char **) /* from regexec.c */ PERLVAR(Treg_start_tmpl,U32) /* from regexec.c */ PERLVAR(Tregdata, struct reg_data *)