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:
parent
1a49d91fdd
commit
8bfcdf323f
3 changed files with 38 additions and 20 deletions
|
@ -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.
|
||||||
|
|
|
@ -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
9
proc.c
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue