Author: joes
Date: Sat Apr 9 20:22:38 2005
New Revision: 160731
URL: http://svn.apache.org/viewcvs?view=rev&rev=160731
Log:
Use INT2PTR when casting an IV to a pointer.
With large-file support enabled on a 32bit OS,
IV's are larger than pointers.
Reported by: Philip M. Gollucci
Modified:
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/typemap
Modified: httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/typemap
URL:
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/typemap?view=diff&r1=160730&r2=160731
==============================================================================
--- httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/typemap
(original)
+++ httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/typemap Sat Apr
9 20:22:38 2005
@@ -31,7 +31,7 @@
MAGIC *mg;
if (SvMAGICAL(hv)) {
if ((mg = mg_find(hv, PERL_MAGIC_tied))) {
- $var = (void *)MgObjIV(mg);
+ $var = INT2PTR(void *, MgObjIV(mg));
}
else {
Perl_warn(aTHX_ \"Not a tied hash: (magic=%c)\", mg);
@@ -44,7 +44,7 @@
}
}
else {
- $var = (void *)SvObjIV($arg);
+ $var = INT2PTR(void *, SvObjIV($arg));
}
}
else {
@@ -82,7 +82,7 @@
MAGIC *mg;
if (SvMAGICAL(hv)) {
if ((mg = mg_find(hv, PERL_MAGIC_tied))) {
- $var = (void *)MgObjIV(mg);
+ $var = INT2PTR(void *,MgObjIV(mg));
}
else {
Perl_warn(aTHX_ \"Not a tied hash: (magic=%c)\", mg);
@@ -95,7 +95,7 @@
}
}
else {
- $var = (void *)SvObjIV($arg);
+ $var = INT2PTR(void *, SvObjIV($arg));
}
}
else {
