Change 14241 by jhi@alpha on 2002/01/13 17:40:29
Subject: [PATCH] Re: Warning in B.xs
From: "Mattia Barbon" <[EMAIL PROTECTED]>
Date: Sun, 13 Jan 2002 19:39:52 +0100
Message-ID: <3C41E288.20562.1C8C895@localhost>
Affected files ...
.... //depot/perl/ext/B/B.xs#66 edit
Differences ...
==== //depot/perl/ext/B/B.xs#66 (text) ====
Index: perl/ext/B/B.xs
--- perl/ext/B/B.xs.~1~ Sun Jan 13 10:45:05 2002
+++ perl/ext/B/B.xs Sun Jan 13 10:45:05 2002
@@ -1013,7 +1013,7 @@
#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
End of Patch.
