From 765ff64b107753a67c354463aabb8144cf70f120 Mon Sep 17 00:00:00 2001 From: nobu Date: Sun, 2 May 2010 08:25:15 +0000 Subject: * ext/dl/cfunc.c (rb_dlcfunc_call): ignore signedness. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@27588 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/dl/cfunc.c | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to 'ext/dl/cfunc.c') diff --git a/ext/dl/cfunc.c b/ext/dl/cfunc.c index e1cf9d1629..f2579da191 100644 --- a/ext/dl/cfunc.c +++ b/ext/dl/cfunc.c @@ -6,6 +6,8 @@ #include #include "dl.h" +VALUE rb_big2ulong_pack(VALUE x); + VALUE rb_cDLCFunc; static ID id_last_error; @@ -348,11 +350,21 @@ rb_dlcfunc_call(VALUE self, VALUE ary) } for( i = 0; i < RARRAY_LEN(ary); i++ ){ + VALUE arg; if( i >= DLSTACK_SIZE ){ rb_raise(rb_eDLError, "too many arguments (stack overflow)"); } - rb_check_safe_obj(RARRAY_PTR(ary)[i]); - stack[i] = NUM2LONG(RARRAY_PTR(ary)[i]); + arg = rb_to_int(RARRAY_PTR(ary)[i]); + rb_check_safe_obj(arg); + if (FIXNUM_P(arg)) { + stack[i] = (DLSTACK_TYPE)FIX2LONG(arg); + } + else if (RB_TYPE_P(arg, T_BIGNUM)) { + stack[i] = (DLSTACK_TYPE)rb_big2ulong_pack(arg); + } + else { + Check_Type(arg, T_FIXNUM); + } } /* calltype == CFUNC_CDECL */ -- cgit v1.2.3