From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Sun, 13 Jan 2002 19:39:52 +0000 (+0100)
Subject: Re: Warning in B.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bde7177df8a653ca87ecd91ccbb107a8a43388c7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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