perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/xs modperl_xs_util.h
Date Thu, 08 Apr 2004 01:41:36 GMT
stas        2004/04/07 18:41:36

  Modified:    xs       modperl_xs_util.h
  Log:
  darwin 'incompatible pointer type' fixes
  
  Revision  Changes    Path
  1.19      +3 -3      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.18
  retrieving revision 1.19
  diff -u -u -r1.18 -r1.19
  --- modperl_xs_util.h	4 Mar 2004 06:01:09 -0000	1.18
  +++ modperl_xs_util.h	8 Apr 2004 01:41:36 -0000	1.19
  @@ -97,11 +97,11 @@
   /* XXX: we probably shouldn't croak here */
   #define mpxs_write_loop(func, obj) \
       while (MARK <= SP) { \
  -        apr_ssize_t wlen; \
  +        STRLEN wlen; \
           apr_status_t rv; \
  -        char *buf = SvPV(*MARK, wlen); \
  +        char *buf = SvPV(*MARK, wlen);        \
           MP_TRACE_o(MP_FUNC, "%d bytes [%s]", wlen, buf); \
  -        rv = func(aTHX_ obj, buf, &wlen); \
  +        rv = func(aTHX_ obj, buf, &(apr_size_t)wlen);    \
           if (rv != APR_SUCCESS) { \
               Perl_croak(aTHX_ modperl_apr_strerror(rv)); \
           } \
  
  
  

Mime
View raw message