From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 19 Apr 2003 18:52:24 +0000 (+0000)
Subject: Restore the two variables retired by the change #19268
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=195c09c3629c17448fb78757b0012553fb092895;p=p5sagit%2Fp5-mst-13.2.git

Restore the two variables retired by the change #19268
(for binary backward compatibility)
p4raw-link: @19268 on //depot/perl: dd28f7bb7eebdb0b562c940b3c4f89457e829ea6

p4raw-id: //depot/perl@19275
---

diff --git a/embedvar.h b/embedvar.h
index 5477705..b0b81b9 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -40,6 +40,7 @@
 
 #define PL_Sv			(vTHX->TSv)
 #define PL_Xpv			(vTHX->TXpv)
+#define PL_av_fetch_sv		(vTHX->Tav_fetch_sv)
 #define PL_bodytarget		(vTHX->Tbodytarget)
 #define PL_bostr		(vTHX->Tbostr)
 #define PL_chopset		(vTHX->Tchopset)
@@ -62,6 +63,7 @@
 #define PL_firstgv		(vTHX->Tfirstgv)
 #define PL_formtarget		(vTHX->Tformtarget)
 #define PL_hv_fetch_ent_mh	(vTHX->Thv_fetch_ent_mh)
+#define PL_hv_fetch_sv		(vTHX->Thv_fetch_sv)
 #define PL_in_eval		(vTHX->Tin_eval)
 #define PL_last_in_gv		(vTHX->Tlast_in_gv)
 #define PL_lastgotoprobe	(vTHX->Tlastgotoprobe)
@@ -745,6 +747,7 @@
 
 #define PL_TSv			PL_Sv
 #define PL_TXpv			PL_Xpv
+#define PL_Tav_fetch_sv		PL_av_fetch_sv
 #define PL_Tbodytarget		PL_bodytarget
 #define PL_Tbostr		PL_bostr
 #define PL_Tchopset		PL_chopset
@@ -767,6 +770,7 @@
 #define PL_Tfirstgv		PL_firstgv
 #define PL_Tformtarget		PL_formtarget
 #define PL_Thv_fetch_ent_mh	PL_hv_fetch_ent_mh
+#define PL_Thv_fetch_sv		PL_hv_fetch_sv
 #define PL_Tin_eval		PL_in_eval
 #define PL_Tlast_in_gv		PL_last_in_gv
 #define PL_Tlastgotoprobe	PL_lastgotoprobe
diff --git a/perlapi.h b/perlapi.h
index e350586..945ce26 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -664,6 +664,8 @@ END_EXTERN_C
 #define PL_Sv			(*Perl_TSv_ptr(aTHX))
 #undef  PL_Xpv
 #define PL_Xpv			(*Perl_TXpv_ptr(aTHX))
+#undef  PL_av_fetch_sv
+#define PL_av_fetch_sv		(*Perl_Tav_fetch_sv_ptr(aTHX))
 #undef  PL_bodytarget
 #define PL_bodytarget		(*Perl_Tbodytarget_ptr(aTHX))
 #undef  PL_bostr
@@ -708,6 +710,8 @@ END_EXTERN_C
 #define PL_formtarget		(*Perl_Tformtarget_ptr(aTHX))
 #undef  PL_hv_fetch_ent_mh
 #define PL_hv_fetch_ent_mh	(*Perl_Thv_fetch_ent_mh_ptr(aTHX))
+#undef  PL_hv_fetch_sv
+#define PL_hv_fetch_sv		(*Perl_Thv_fetch_sv_ptr(aTHX))
 #undef  PL_in_eval
 #define PL_in_eval		(*Perl_Tin_eval_ptr(aTHX))
 #undef  PL_last_in_gv
diff --git a/thrdvar.h b/thrdvar.h
index 19f233e..da80ab4 100644
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -140,6 +140,8 @@ PERLVARI(Tprotect,	protect_proc_t,	MEMBER_TO_FPTR(Perl_default_protect))
 PERLVARI(Terrors,	SV *, Nullsv)	/* outstanding queued errors */
 
 /* statics "owned" by various functions */
+PERLVAR(Tav_fetch_sv,	SV *)		/* unused as of change #19268 */
+PERLVAR(Thv_fetch_sv,	SV *)		/* unused as of change #19268 */
 PERLVAR(Thv_fetch_ent_mh, HE*)		/* owned by hv_fetch_ent() */
 
 PERLVAR(Tmodcount,	I32)		/* how much mod()ification in assignment? */