dougm 01/03/05 21:16:26 Modified: xs modperl_xs_util.h xs/APR/Pool APR__Pool.h Log: shutup fussy compiler Revision Changes Path 1.2 +2 -2 modperl-2.0/xs/modperl_xs_util.h Index: modperl_xs_util.h =================================================================== RCS file: /home/cvs/modperl-2.0/xs/modperl_xs_util.h,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- modperl_xs_util.h 2001/03/05 03:48:15 1.1 +++ modperl_xs_util.h 2001/03/06 05:16:24 1.2 @@ -33,8 +33,8 @@ #define mpxs_sv_is_object(sv) \ (SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) -#define mpxs_sv_object_deref(sv) \ -(mpxs_sv_is_object(sv) ? SvIV((SV*)SvRV(sv)) : NULL) +#define mpxs_sv_object_deref(sv, type) \ +(mpxs_sv_is_object(sv) ? (type *)SvIVX((SV*)SvRV(sv)) : NULL) #define mpxs_sv2_obj(obj, sv) \ (obj = mp_xs_sv2_##obj(sv)) 1.2 +1 -1 modperl-2.0/xs/APR/Pool/APR__Pool.h Index: APR__Pool.h =================================================================== RCS file: /home/cvs/modperl-2.0/xs/APR/Pool/APR__Pool.h,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- APR__Pool.h 2001/03/05 03:53:29 1.1 +++ APR__Pool.h 2001/03/06 05:16:25 1.2 @@ -2,7 +2,7 @@ static MP_INLINE apr_pool_t *mpxs_apr_pool_create(pTHX_ SV *obj) { - apr_pool_t *parent = (apr_pool_t *)mpxs_sv_object_deref(obj); + apr_pool_t *parent = mpxs_sv_object_deref(obj, apr_pool_t); apr_pool_t *retval = NULL; (void)apr_pool_create(&retval, parent); return retval;