Re: Warning in B.xs

Message-ID: <3C41E288.20562.1C8C895@localhost>

p4raw-id: //depot/perl@14241

diff --git a/ext/B/B.xs b/ext/B/B.xs
index c9ca8b1..9b7fa9d 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1013,7 +1013,7 @@ SvSTASH(sv)
 #define MgFLAGS(mg) mg->mg_flags
 #define MgOBJ(mg) mg->mg_obj
 #define MgLENGTH(mg) mg->mg_len
-#define MgREGEX(mg) ((IV)(mg->mg_obj))
+#define MgREGEX(mg) PTR2IV(mg->mg_obj)
 
 MODULE = B     PACKAGE = B::MAGIC      PREFIX = Mg