From: nobu.nakada@...
Date: 2003-05-15T16:38:45+09:00
Subject: [ruby-dev:20191] SEGV at yield

なかだです。

http://www.namikilab.tuat.ac.jp/~sasada/diary/200305.html#d14
の、1.6.8でSEGVするという件ですが、rb_f_block_given_p()のほうだ
けバックポートされていて、rb_block_given_p()が抜けているようで
す。

ちょっとめんどくさいコードでないと起きない条件ですが。


Index: eval.c
===================================================================
RCS file: /cvs/ruby/src/ruby/eval.c,v
retrieving revision 1.137.2.149
diff -u -2 -p -r1.137.2.149 eval.c
--- eval.c	21 Feb 2003 18:12:02 -0000	1.137.2.149
+++ eval.c	15 May 2003 07:01:09 -0000
@@ -3532,5 +3532,6 @@ int
 rb_block_given_p()
 {
-    if (ruby_frame->iter) return Qtrue;
+    if (ruby_frame->iter && ruby_block)
+	return Qtrue;
     return Qfalse;
 }


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