B::SV{REFCNT,FLAGS,SvTYPE,POK,ROK,MAGICAL} can be implemented via ALIAS.

[perl5.git] / ext / B / B.xs

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 1208c2e..1b93e7d 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1277,9 +1277,21 @@ COP_hints(o)
 
 MODULE = B     PACKAGE = B::SV
 
+#define MAGICAL_FLAG_BITS (SVs_GMG|SVs_SMG|SVs_RMG)
+
 U32
-SvTYPE(sv)
+REFCNT(sv)
        B::SV   sv
+    ALIAS:
+       FLAGS = 0xFFFFFFFF
+       SvTYPE = SVTYPEMASK
+       POK = SVf_POK
+       ROK = SVf_ROK
+       MAGICAL = MAGICAL_FLAG_BITS
+    CODE:
+       RETVAL = ix ? (SvFLAGS(sv) & (U32)ix) : SvREFCNT(sv);
+    OUTPUT:
+       RETVAL
 
 #define object_2svref(sv)      sv
 #define SVREF SV *
@@ -1288,28 +1300,6 @@ SVREF
 object_2svref(sv)
        B::SV   sv
 
-MODULE = B     PACKAGE = B::SV         PREFIX = Sv
-
-U32
-SvREFCNT(sv)
-       B::SV   sv
-
-U32
-SvFLAGS(sv)
-       B::SV   sv
-
-U32
-SvPOK(sv)
-       B::SV   sv
-
-U32
-SvROK(sv)
-       B::SV   sv
-
-U32
-SvMAGICAL(sv)
-       B::SV   sv
-
 MODULE = B     PACKAGE = B::IV         PREFIX = Sv
 
 IV