This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Restore the two variables retired by the change #19268
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 19 Apr 2003 18:52:24 +0000 (18:52 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 19 Apr 2003 18:52:24 +0000 (18:52 +0000)
(for binary backward compatibility)
p4raw-link: @19268 on //depot/perl: dd28f7bb7eebdb0b562c940b3c4f89457e829ea6

p4raw-id: //depot/perl@19275

embedvar.h
perlapi.h
thrdvar.h

index 5477705..b0b81b9 100644 (file)
@@ -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)
 
 #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
 #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
index e350586..945ce26 100644 (file)
--- 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
index 19f233e..da80ab4 100644 (file)
--- 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? */