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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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; &regdummy = 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 *)