[svn.haxx.se] · SVN Dev · SVN Users · SVN Org · TSVN Dev · TSVN Users · Subclipse Dev · Subclipse Users · this month's index

[PATCH] Perl Bindings on Win32

From: Michael S. Liebman <m-liebman_at_northwestern.edu>
Date: 2004-04-10 21:14:00 CEST

This patch does not fix the Perl bindings on Win32 but gets us a step
closer and will hopefully help other people.

Michael

[[
* subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c
   Replace 'long long' with apr_int64_t and 'unsigned long long'' with
apr_uint64_t in svn_error_t
]]

Index: subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c
===================================================================
---
subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c
(revision 9312)
+++
subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c
(working copy)
@@ -312,14 +312,14 @@
              * it available as a string. If not then perl will convert
              * it to an IV for us. So this handles the problem gracefully */
             c = malloc(30);
- snprintf(c,30,"%lld",va_arg(ap, long long));
+ snprintf(c,30,"%lld",va_arg(ap, apr_int64_t));
             XPUSHs(sv_2mortal(newSVpv(c, 0)));
             free(c);
             break;

         case 'U': /* unsigned long long */
             c = malloc(30);
- snprintf(c,30,"%llu",va_arg(ap, unsigned long long));
+ snprintf(c,30,"%llu",va_arg(ap, apr_uint64_t));
             XPUSHs(sv_2mortal(newSVpv(c, 0)));
             free(c);
             break;

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org
Received on Sat Apr 10 21:14:21 2004

This is an archived mail posted to the Subversion Dev mailing list.

This site is subject to the Apache Privacy Policy and the Apache Public Forum Archive Policy.