Restore the two variables retired by the change #19268

(for binary backward compatibility)
p4raw-link: @19268 on //depot/perl: dd28f7b

p4raw-id: //depot/perl@19275

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

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

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? */