From 36f8622d5971e275a7102b12d1acf96b8bd5bc28 Mon Sep 17 00:00:00 2001 From: Richard Soderberg Date: Thu, 25 Oct 2001 19:42:50 -0400 Subject: [PATCH] Fix sharedsv.c compile-time warnings. Message-Id: p4raw-id: //depot/perl@12667 --- sharedsv.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; } } -- 2.7.4