You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2009/12/01 20:32:45 UTC
svn commit: r885887 - /lucene/lucy/trunk/perl/xs/Lucy/Object/Host.c
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 */