Change 27507 by [EMAIL PROTECTED] on 2006/03/15 17:21:00
Expunge references to HV_AMAGIC, HV_AMAGICbad and HV_AMAGICmb which
have been unused since revision 1.
Affected files ...
... //depot/perl/hv.h#88 edit
... //depot/perl/sv.h#269 edit
Differences ...
==== //depot/perl/hv.h#88 (text) ====
Index: perl/hv.h
--- perl/hv.h#87~27380~ 2006-03-05 10:13:42.000000000 -0800
+++ perl/hv.h 2006-03-15 09:21:00.000000000 -0800
@@ -283,19 +283,6 @@
#define HvREHASH_on(hv) (SvFLAGS(hv) |= SVphv_REHASH)
#define HvREHASH_off(hv) (SvFLAGS(hv) &= ~SVphv_REHASH)
-/* Maybe amagical: */
-/* #define HV_AMAGICmb(hv) (SvFLAGS(hv) & (SVpgv_badAM | SVpgv_AM)) */
-
-#define HV_AMAGIC(hv) (SvFLAGS(hv) & SVpgv_AM)
-#define HV_AMAGIC_on(hv) (SvFLAGS(hv) |= SVpgv_AM)
-#define HV_AMAGIC_off(hv) (SvFLAGS(hv) &= ~SVpgv_AM)
-
-/*
-#define HV_AMAGICbad(hv) (SvFLAGS(hv) & SVpgv_badAM)
-#define HV_badAMAGIC_on(hv) (SvFLAGS(hv) |= SVpgv_badAM)
-#define HV_badAMAGIC_off(hv) (SvFLAGS(hv) &= ~SVpgv_badAM)
-*/
-
#define Nullhe Null(HE*)
#define HeNEXT(he) (he)->hent_next
#define HeKEY_hek(he) (he)->hent_hek
==== //depot/perl/sv.h#269 (text) ====
Index: perl/sv.h
--- perl/sv.h#268~27506~ 2006-03-15 07:08:49.000000000 -0800
+++ perl/sv.h 2006-03-15 09:21:00.000000000 -0800
@@ -993,11 +993,6 @@
#define SvGAMAGIC(sv) (SvGMAGICAL(sv) || SvAMAGIC(sv))
-/*
-#define Gv_AMG(stash) \
- (HV_AMAGICmb(stash) && \
- ((!HV_AMAGICbad(stash) && HV_AMAGIC(stash)) || Gv_AMupdate(stash)))
-*/
#define Gv_AMG(stash) (PL_amagic_generation && Gv_AMupdate(stash))
#define SvWEAKREF(sv) ((SvFLAGS(sv) & (SVf_ROK|SVprv_WEAKREF)) \
End of Patch.
