1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

bugfix. (Thanks U.Nakamura)

Browse Source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2552 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
ttate 2002-06-11 11:16:56 +00:00
parent 7f80a1800f
commit 176542da7f
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ext/dl/dl.c
View File

@ -16,7 +16,7 @@ static ID id_call;
static int static int
rb_dl_scan_callback_args(long stack[], const char *proto, rb_dl_scan_callback_args(long stack[], const char *proto,
int *argc, VALUE (*argv)[]) int *argc, VALUE argv[])
{ {
int i; int i;
long *sp; long *sp;
@ -93,7 +93,7 @@ rb_dl_scan_callback_args(long stack[], const char *proto,
rb_raise(rb_eDLTypeError, "unsupported type `%c'", proto[i]); rb_raise(rb_eDLTypeError, "unsupported type `%c'", proto[i]);
break; break;
} }
(*argv)[i-1] = val; argv[i-1] = val;
} }
*argc = (i - 1); *argc = (i - 1);
@ -608,7 +608,7 @@ rb_dl_callback(int argc, VALUE argv[], VALUE self)
rettype = 0x07; rettype = 0x07;
break; break;
default: default:
rb_raise(rb_eDLTypeError, "unsupported type `%s'", STR2CSTR(rettype)); rb_raise(rb_eDLTypeError, "unsupported type `%c'", STR2CSTR(type)[0]);
} }
entry = -1; entry = -1;

2
ext/dl/mkcallback.rb
View File

@ -33,7 +33,7 @@ def mkfunc(rettype, fnum, argc)
" obj = rb_hash_aref(DLFuncTable, rb_assoc_new(INT2NUM(#{rettype.to_s}),INT2NUM(#{fnum.to_s})));", " obj = rb_hash_aref(DLFuncTable, rb_assoc_new(INT2NUM(#{rettype.to_s}),INT2NUM(#{fnum.to_s})));",
" proto = rb_ary_entry(obj, 0);", " proto = rb_ary_entry(obj, 0);",
" proc = rb_ary_entry(obj, 1);", " proc = rb_ary_entry(obj, 1);",
" rb_dl_scan_callback_args(buff, STR2CSTR(proto), &argc, &argv);", " rb_dl_scan_callback_args(buff, STR2CSTR(proto), &argc, argv);",
" retval = rb_funcall2(proc, id_call, argc, argv);", " retval = rb_funcall2(proc, id_call, argc, argv);",
"", "",
ret_code, ret_code,