From 195c09c3629c17448fb78757b0012553fb092895 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 19 Apr 2003 18:52:24 +0000 Subject: [PATCH] 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 --- embedvar.h | 4 ++++ perlapi.h | 4 ++++ thrdvar.h | 2 ++ 3 files changed, 10 insertions(+) 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? */ -- 2.7.4