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)); \
} \
