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

なかだです。

At Mon, 26 Feb 2001 14:30:00 +0900,
[e-mail] (Yukihiro Matsumoto) wrote:
> |・・・の直前に持ってきてみたら proc{proc}.callでは落ちなくなりまし
> |たがproc{proc}call{1}を試してみたら落ちました。
> 
> あらら。今度はウチでは落ちません。CVS版で試してみてください
> ませんか、時間がとれれば。

  こうしてみました。


Index: eval.c
===================================================================
RCS file: /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/26 14:12:10
@@ -6262,13 +6262,4 @@ 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;
@@ -6276,4 +6267,9 @@ proc_call(proc, args)
     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);
     ruby_frame->iter = ITER_CUR;


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