From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 Feb 2000 23:59:59 +0000 (+0000)
Subject: Do not cast pointers into I32s.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48944bdf88abc95632c13b4206704af5887baf4e;p=p5sagit%2Fp5-mst-13.2.git

Do not cast pointers into I32s.

p4raw-id: //depot/cfgperl@5334
---

diff --git a/mg.c b/mg.c
index a3607eb..4fe40a1 100644
--- a/mg.c
+++ b/mg.c
@@ -2175,7 +2175,7 @@ static void
 restore_magic(pTHXo_ void *p)
 {
     dTHR;
-    MGS* mgs = SSPTR((I32)p, MGS*);
+    MGS* mgs = SSPTR(PTR2IV(p), MGS*);
     SV* sv = mgs->mgs_sv;
 
     if (!sv)