From: Robin Barker <RMBarker@cpan.org>
Date: Thu, 29 Mar 2001 13:58:47 +0000 (+0100)
Subject: typemap cast warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c725d1150e34e93ef99448f1b52ff246bc32946a;p=p5sagit%2Fp5-mst-13.2.git

typemap cast warning
Message-Id: <200103291258.NAA09360@tempest.npl.co.uk>

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

diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap
index 3304df5..08ca108 100644
--- a/lib/ExtUtils/typemap
+++ b/lib/ExtUtils/typemap
@@ -122,14 +122,14 @@ T_PTRREF
 T_REF_IV_REF
 	if (sv_isa($arg, \"${type}\")) {
 	    IV tmp = SvIV((SV*)SvRV($arg));
-	    $var = *($type *) tmp;
+	    $var = *INT2PTR($type *, tmp);
 	}
 	else
 	    Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
 T_REF_IV_PTR
 	if (sv_isa($arg, \"${ntype}\")) {
 	    IV tmp = SvIV((SV*)SvRV($arg));
-	    $var = ($type) tmp;
+	    $var = INT2PTR($type, tmp);
 	}
 	else
 	    Perl_croak(aTHX_ \"$var is not of type ${ntype}\")