kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* ext/fiddle/conversions.c (generic_to_value): ffi_arg and ffi_sarg

Browse source 
should be used to handle shorter return value. fix [Bug #3861]
  [ruby-core:32504]
* ext/fiddle/closure.c (callback): ditto
* ext/fiddle/conversions.h (fiddle_generic): ditto
* ext/fiddle/conversions.c (value_to_generic): char, short and int
  are strictly distinguished on big-endian CPU, e.g. sparc64.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@32895 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
ngoto 2011-08-09 05:31:47 +00:00
parent e26cead1e9
commit 4d71d34855
4 changed files with 28 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ext/fiddle/conversions.c
View file

@ -56,7 +56,11 @@ value_to_generic(int type, VALUE src, fiddle_generic * dst)
dst->pointer = NUM2PTR(rb_Integer(src));
break;
case TYPE_CHAR:
dst->schar = NUM2INT(src);
break;
case TYPE_SHORT:
dst->sshort = NUM2INT(src);
break;
case TYPE_INT:
dst->sint = NUM2INT(src);
break;
@ -103,9 +107,14 @@ generic_to_value(VALUE rettype, fiddle_generic retval)
return rb_funcall(cPointer, rb_intern("[]"), 1,
PTR2NUM((void *)retval.pointer));
case TYPE_CHAR:
if (signed_p) return INT2NUM((char)retval.fffi_sarg);
return INT2NUM((unsigned char)retval.fffi_arg);
case TYPE_SHORT:
if (signed_p) return INT2NUM((short)retval.fffi_sarg);
return INT2NUM((unsigned short)retval.fffi_arg);
case TYPE_INT:
return INT2NUM(retval.sint);
if (signed_p) return INT2NUM((int)retval.fffi_sarg);
return UINT2NUM((unsigned int)retval.fffi_arg);
case TYPE_LONG:
if (signed_p) return LONG2NUM(retval.slong);
return ULONG2NUM(retval.ulong);