FAQ

svn commit: r885887 - /lucene/lucy/trunk/perl/xs/Lucy/Object/Host.c

Marvin
Dec 1, 2009 at 7:33 pm
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 */
reply

Search Discussions

Related Discussions

Discussion Navigation
viewthread | post

1 user in discussion

Marvin: 1 post