From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 20 Dec 2005 13:55:19 +0000 (+0000)
Subject: Use PTR2IV instead of casting directly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=98f4023cc000034f1c073b9f79944462b68e983f;p=p5sagit%2Fp5-mst-13.2.git

Use PTR2IV instead of casting directly

p4raw-id: //depot/perl@26416
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 2f563ef..5483499 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3831,10 +3831,10 @@ S_do_smartmatch(pTHX_ HV *seen_this, HV *seen_other)
 	
 
 #   define SM_SEEN_THIS(sv) hv_exists_ent(seen_this, \
-	sv_2mortal(newSViv((IV) sv)), 0)
+	sv_2mortal(newSViv(PTR2IV(sv))), 0)
 
 #   define SM_SEEN_OTHER(sv) hv_exists_ent(seen_other, \
-	sv_2mortal(newSViv((IV) sv)), 0)
+	sv_2mortal(newSViv(PTR2IV(sv))), 0)
 
     tryAMAGICbinSET(smart, 0);
     
@@ -4010,10 +4010,10 @@ S_do_smartmatch(pTHX_ HV *seen_this, HV *seen_other)
 		    }
 		    else {
 			hv_store_ent(seen_this,
-			    sv_2mortal(newSViv((IV) *this_elem)),
+			    sv_2mortal(newSViv(PTR2IV(*this_elem))),
 			    &PL_sv_undef, 0);
 			hv_store_ent(seen_other,
-			    sv_2mortal(newSViv((IV) *other_elem)),
+			    sv_2mortal(newSViv(PTR2IV(*other_elem))),
 			    &PL_sv_undef, 0);
 			PUSHs(*this_elem);
 			PUSHs(*other_elem);