cvs commit: modperl-2.0/xs/APR/Pool APR__Pool.h

[dougm]

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;