svn commit: r160873 - httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/APR__Request__Param.h

[joes]

Author: joes
Date: Mon Apr 11 06:25:48 2005
New Revision: 160873

URL: http://svn.apache.org/viewcvs?view=rev&rev=160873
Log:
More INT2PTR stuff, first reported by Philip M. Gollucci.

Modified:
    
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/APR__Request__Param.h

Modified: 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/APR__Request__Param.h
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/APR__Request__Param.h?view=diff&r1=160872&r2=160873
==============================================================================
--- 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/APR__Request__Param.h
 (original)
+++ 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/APR__Request__Param.h
 Mon Apr 11 06:25:48 2005
@@ -100,13 +100,15 @@
     apr_bucket_brigade *bb, *bb_copy;
     char *class;
     SV *sv, *obj;
+    IV iv;
 
     if (items != 2 || !SvPOK(ST(0)) || !SvROK(ST(1)))
         Perl_croak(aTHX_ "Usage: APR::Request::Brigade->new($bb)");
 
     class = SvPV_nolen(ST(0));
     obj = apreq_xs_find_bb_obj(aTHX_ ST(1));
-    bb = (apr_bucket_brigade *)SvIVX(obj);
+    iv = SvIVX(obj);
+    bb = INT2PTR(apr_bucket_brigade *, iv);
     bb_copy = apr_brigade_create(bb->p, bb->bucket_alloc);
     apreq_brigade_copy(bb_copy, bb);
 
@@ -136,8 +138,10 @@
         sv = ST(1);
         SvUPGRADE(sv, SVt_PV);
         if (SvROK(ST(0))) {
+            IV iv;
             obj = apreq_xs_find_bb_obj(aTHX_ ST(0));
-            bb = (apr_bucket_brigade *)SvIVX(obj);
+            iv = SvIVX(obj);
+            bb = INT2PTR(apr_bucket_brigade *, iv);
             break;
         }
     default:
@@ -218,6 +222,7 @@
     apr_bucket_brigade *bb;
     apr_bucket *e;
     SV *sv, *obj;
+    IV iv;
     apr_status_t s;
     unsigned tainted;
 
@@ -225,7 +230,8 @@
         Perl_croak(aTHX_ "Usage: $bb->READLINE");
 
     obj = apreq_xs_find_bb_obj(aTHX_ ST(0));
-    bb = (apr_bucket_brigade *)SvIVX(obj);
+    iv = SvIVX(obj);
+    bb = INT2PTR(apr_bucket_brigade *, iv);
 
     if (APR_BRIGADE_EMPTY(bb))
         XSRETURN(0);