| Subject: | fix use64bitint warnings |
Attached patch silences the next round of introduced
1.66 64bit int-> 32 bit ptr warnings (tested with cygwin)
warning: cast to pointer from integer of different size
--
Reini Urban
| Subject: | XML-LibXML-1.66.patch |
difforig XML-LibXML-1.66
diff -u XML-LibXML-1.66/perl-libxml-mm.h.orig
--- XML-LibXML-1.66/perl-libxml-mm.h.orig 2008-01-28 13:21:45.000000000 +0100
+++ XML-LibXML-1.66/perl-libxml-mm.h 2008-05-24 11:10:41.125000000 +0200
@@ -73,9 +73,9 @@
typedef ProxyNode* ProxyNodePtr;
/* this my go only into the header used by the xs */
-#define SvPROXYNODE(x) ((ProxyNodePtr)SvIV(SvRV(x)))
-#define PmmPROXYNODE(x) ((ProxyNodePtr)x->_private)
-#define SvNAMESPACE(x) ((xmlNsPtr)SvIV(SvRV(x)))
+#define SvPROXYNODE(x) (INT2PTR(ProxyNodePtr,SvIV(SvRV(x))))
+#define SvNAMESPACE(x) (INT2PTR(xmlNsPtr,SvIV(SvRV(x))))
+#define PmmPROXYNODE(x) (INT2PTR(ProxyNodePtr,x->_private))
#define PmmREFCNT(node) node->count
#define PmmREFCNT_inc(node) node->count++
diff -u XML-LibXML-1.66/typemap.orig
--- XML-LibXML-1.66/typemap.orig 2006-11-16 00:31:46.000000000 +0100
+++ XML-LibXML-1.66/typemap 2008-05-24 11:19:33.062500000 +0200
@@ -13,7 +13,7 @@
INPUT
O_OBJECT
if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) )
- $var = ($type)SvIV((SV*)SvRV( $arg ));
+ $var = INT2PTR($type, SvIV((SV*)SvRV( $arg )));
else{
warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
XSRETURN_UNDEF;