these variables are not in use anywhere since 5.8.0

p4raw-id: //depot/perl@18355

4 files changed, 0 insertions, 77 deletions

diff --git a/embedvar.h b/embedvar.h
index bcf31c7647..cc709260cc 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 d4b678aabd..451a4d9ad0 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 d8a82453a3..478097fa41 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 48f6845e89..6058642e47 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; &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 *)