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

* insnhelper.ci (vm_yield_with_cfunc), proc.c: fix Method#to_proc

to return lamba Proc ([ruby-dev:31021], [ruby-dev:31037]).



git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12620 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
ko1 2007-06-25 19:06:00 +00:00
parent 1a49d91fdd
commit 8bfcdf323f
3 changed files with 38 additions and 20 deletions

View file

@ -1,3 +1,8 @@
Tue Jun 26 04:03:50 2007 Koichi Sasada <ko1@atdot.net>
* insnhelper.ci (vm_yield_with_cfunc), proc.c: fix Method#to_proc
to return lamba Proc ([ruby-dev:31021], [ruby-dev:31037]).
Tue Jun 26 03:46:08 2007 Koichi Sasada <ko1@atdot.net> Tue Jun 26 03:46:08 2007 Koichi Sasada <ko1@atdot.net>
* cont.c (rb_fiber_s_new): fix to clear rb_thread_t#tag. * cont.c (rb_fiber_s_new): fix to clear rb_thread_t#tag.

View file

@ -562,6 +562,20 @@ vm_call_method(rb_thread_t *th, rb_control_frame_t *cfp,
/* yield */ /* yield */
static inline int
block_proc_is_lambda(VALUE procval)
{
rb_proc_t *proc;
if (procval) {
GetProcPtr(procval, proc);
return proc->is_lambda;
}
else {
return 0;
}
}
static inline VALUE static inline VALUE
vm_yield_with_cfunc(rb_thread_t *th, rb_block_t *block, vm_yield_with_cfunc(rb_thread_t *th, rb_block_t *block,
VALUE self, int argc, VALUE *argv) VALUE self, int argc, VALUE *argv)
@ -569,15 +583,21 @@ vm_yield_with_cfunc(rb_thread_t *th, rb_block_t *block,
NODE *ifunc = (NODE *) block->iseq; NODE *ifunc = (NODE *) block->iseq;
VALUE val; VALUE val;
VALUE arg; VALUE arg;
int lambda = block_proc_is_lambda(block->proc);
if (argc == 1) { if (lambda) {
arg = *argv;
}
else if (argc > 1) {
arg = rb_ary_new4(argc, argv); arg = rb_ary_new4(argc, argv);
} }
else { else {
arg = rb_ary_new(); if (argc == 1) {
arg = *argv;
}
else if (argc > 1) {
arg = rb_ary_new4(argc, argv);
}
else {
arg = rb_ary_new();
}
} }
vm_push_frame(th, 0, FRAME_MAGIC_IFUNC, vm_push_frame(th, 0, FRAME_MAGIC_IFUNC,
@ -970,20 +990,6 @@ vm_search_super_klass(VALUE klass, VALUE recv)
return klass; return klass;
} }
static inline int
block_proc_is_lambda(VALUE procval)
{
rb_proc_t *proc;
if (procval) {
GetProcPtr(procval, proc);
return proc->is_lambda;
}
else {
return 0;
}
}
static void static void
call_yarv_end_proc(VALUE data) call_yarv_end_proc(VALUE data)
{ {

9
proc.c
View file

@ -1312,10 +1312,17 @@ mproc(VALUE method)
return rb_funcall(Qnil, rb_intern("proc"), 0); return rb_funcall(Qnil, rb_intern("proc"), 0);
} }
static VALUE
mlambda(VALUE method)
{
return rb_funcall(Qnil, rb_intern("lambda"), 0);
}
static VALUE static VALUE
bmcall(VALUE args, VALUE method) bmcall(VALUE args, VALUE method)
{ {
volatile VALUE a; volatile VALUE a;
if (CLASS_OF(args) != rb_cArray) { if (CLASS_OF(args) != rb_cArray) {
args = rb_ary_new3(1, args); args = rb_ary_new3(1, args);
} }
@ -1356,7 +1363,7 @@ method_proc(VALUE method)
* end * end
* end * end
*/ */
proc = rb_iterate((VALUE (*)(VALUE))mproc, 0, bmcall, method); proc = rb_iterate((VALUE (*)(VALUE))mlambda, 0, bmcall, method);
return proc; return proc;
} }