[PATCH perl@9424] typemap cast warning

ext/Typemap/Typemap.c gives

gcc -c  -DCHECK_FORMAT -Wformat -fno-strict-aliasing -I/usr/local/include 
	-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O   -DVERSION=\"0.01\" 
	-DXS_VERSION=\"0.01\" -fPIC -I../../..  Typemap.c
Typemap.c: In function `XS_intRefIvPtr_T_REF_IV_PTR_IN':
Typemap.c:590: warning: cast to pointer from integer of different size

The patch fixes this:

Robin

--- lib/ExtUtils/typemap.orig	Tue Mar 27 15:46:34 2001
+++ lib/ExtUtils/typemap	Thu Mar 29 13:42:49 2001
@@ -122,14 +122,14 @@
 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}\")

-- 
Robin Barker                        | Email: Robin.Barker@npl.co.uk
CMSC, Building 10,                  | Phone: +44 (0) 20 8943 7090
National Physical Laboratory,       | Fax:   +44 (0) 20 8977 7091
Teddington, Middlesex, UK. TW11 OLW | WWW:   http://www.npl.co.uk

• [PATCH perl@9424] typemap cast warning by Robin Barker