This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use PTR2IV instead of casting directly
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 20 Dec 2005 13:55:19 +0000 (13:55 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 20 Dec 2005 13:55:19 +0000 (13:55 +0000)
p4raw-id: //depot/perl@26416

pp_ctl.c

index 2f563ef..5483499 100644 (file)
--- 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);