From: Richard Soderberg <p5-authors@crystalflame.net>
Date: Thu, 25 Oct 2001 23:42:50 +0000 (-0400)
Subject: Fix sharedsv.c compile-time warnings.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=36f8622d5971e275a7102b12d1acf96b8bd5bc28;p=p5sagit%2Fp5-mst-13.2.git

Fix sharedsv.c compile-time warnings.
Message-Id: <NAEKLNAAHLMBPMPNBMLEKEJCEAAA.rs@crystalflame.net>

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

diff --git a/sharedsv.c b/sharedsv.c
index ef5ebf0..755481e 100644
--- a/sharedsv.c
+++ b/sharedsv.c
@@ -95,7 +95,7 @@ Perl_sharedsv_find(pTHX_ SV* sv)
             if(mg) {
 	        if(strcmp(mg->mg_ptr,"threads::shared"))
                     break;
-                ssv = (shared_sv*) SvIV(mg->mg_obj);
+                ssv = INT2PTR(shared_sv *, SvIV(mg->mg_obj));
 	        break;
              }
 	    
@@ -103,7 +103,7 @@ Perl_sharedsv_find(pTHX_ SV* sv)
              if(mg) {
                  SV* obj = SvTIED_obj(sv,mg);
 	         if(sv_derived_from(obj, "threads::shared"))
-		     ssv = (shared_sv*) SvIV(SvRV(obj));
+                     ssv = INT2PTR(shared_sv *, SvIV(SvRV(obj)));
                  break;
              }
 	}