[ruby-dev:12313] Re: crash on proc without a block

なかだです。

At Tue, 27 Feb 2001 00:14:45 +0900
Kenichi Komiya <[e-mail]> wrote:
> この修正でどちらでも落ちなくなりました。ただ微妙に問題が・・・
> 
> これだとproc生成時に渡されていたブロックにアクセスできなくなってし
> まうように思います。
> 
> $ ./miniruby -v -e 'def foo; proc{yield}; end; foo{puts "hello wolrd"}.call'
> /miniruby -v -e 'def foo; proc{yield}; end; foo{puts "hello wolrd"}.call'
> ruby 1.6.3 (2001-02-26) [i686-linux]
> -e:1:in `foo': yield called out of block (LocalJumpError)
> 	from -e:1:in `call'
> 	from -e:1

  なんとなく場当たり的な気がしなくもないですが。


Index: eval.c
===================================================================
RCS file: /home/cvs/ruby/src/ruby/eval.c,v
retrieving revision 1.157
diff -u -2 -p -r1.157 eval.c
--- eval.c	2001/02/26 05:29:00	1.157
+++ eval.c	2001/02/27 01:16:32
@@ -3518,5 +3518,5 @@ rb_yield_0(val, self, klass, acheck)
     static unsigned serial = 1;
 
-    if (!ruby_frame->iter || !ruby_block) {
+    if (!(rb_block_given_p() || rb_f_block_given_p()) || !ruby_block) {
 	rb_raise(rb_eLocalJumpError, "yield called out of block");
     }
@@ -6262,17 +6262,13 @@ proc_call(proc, args)
     orphan = blk_orphan(data);
 
-    if (orphan) {/* orphan procedure */
-	if (rb_block_given_p()) {
-	    ruby_block->frame.iter = ITER_CUR;
-	}
-	else {
-	    ruby_block->frame.iter = ITER_NOT;
-	}
-    }
-
     /* PUSH BLOCK from data */
     old_block = ruby_block;
     _block = *data;
     ruby_block = &_block;
+
+    if (orphan) {/* orphan procedure */
+	struct BLOCK *blk = old_block ? old_block : ruby_block;
+	blk->frame.iter = rb_block_given_p() ? ITER_CUR : ITER_NOT;
+    }
 
     PUSH_ITER(ITER_CUR);


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦