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;
