lucy-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mar...@apache.org
Subject svn commit: r885887 - /lucene/lucy/trunk/perl/xs/Lucy/Object/Host.c
Date Tue, 01 Dec 2009 19:32:45 GMT
Author: marvin
Date: Tue Dec  1 19:32:45 2009
New Revision: 885887

URL: http://svn.apache.org/viewvc?rev=885887&view=rev
Log:
Fix a bug in the Perl binding where an argument of type i64_t could be 
truncated to 32 bits when calling back to a function implemented in Perl.

Modified:
    lucene/lucy/trunk/perl/xs/Lucy/Object/Host.c

Modified: lucene/lucy/trunk/perl/xs/Lucy/Object/Host.c
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/perl/xs/Lucy/Object/Host.c?rev=885887&r1=885886&r2=885887&view=diff
==============================================================================
--- lucene/lucy/trunk/perl/xs/Lucy/Object/Host.c (original)
+++ lucene/lucy/trunk/perl/xs/Lucy/Object/Host.c Tue Dec  1 19:32:45 2009
@@ -48,9 +48,9 @@
             }
             break;
         case LUCY_HOST_ARGTYPE_I64: {
-                chy_i32_t value = va_arg(args, chy_i64_t);
+                chy_i64_t value = va_arg(args, chy_i64_t);
                 if (sizeof(IV) == 8) {
-                    XPUSHs( sv_2mortal( newSViv(value) ) );
+                    XPUSHs( sv_2mortal( newSViv((IV)value) ) );
                 }
                 else {
                     /* lossy */



Mime
View raw message