This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Expunge references to HV_AMAGIC, HV_AMAGICbad and HV_AMAGICmb which
authorNicholas Clark <nick@ccl4.org>
Wed, 15 Mar 2006 17:21:00 +0000 (17:21 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 15 Mar 2006 17:21:00 +0000 (17:21 +0000)
have been unused since revision 1.

p4raw-id: //depot/perl@27507

hv.h
sv.h

diff --git a/hv.h b/hv.h
index 79035e2..efba2b9 100644 (file)
--- a/hv.h
+++ b/hv.h
@@ -283,19 +283,6 @@ C<SV*>.
 #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
diff --git a/sv.h b/sv.h
index f2f2fea..73ed715 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -993,11 +993,6 @@ in gv.h: */
 
 #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)) \