From: Gurusamy Sarathy <gsar@cpan.org>
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 *)