[ruby-dev:15215] Re: eval.c (rb_stack_check): prohibit recursive raising error

なかだです。

At Mon, 19 Nov 2001 15:12:16 +0900,
[e-mail] (Yukihiro Matsumoto) wrote:
> あ、中田さんのは全体をTAGでくくってるのね、気がついてません
> でした。そうかそれならできるか。じゃあ、それでコミットしても
> らいましょうか。

つってる間に激しく変わってるというか、gc.cに引っ越してしまった
のでTAGは使えませんね。1.6.5の方は移動してませんが、これはその
ままの予定ですか。


Index: gc.c
===================================================================
RCS file: /cvs/ruby/src/ruby/gc.c,v
retrieving revision 1.77
diff -u -2 -p -r1.77 gc.c
--- gc.c	2001/11/19 05:03:03	1.77
+++ gc.c	2001/11/19 09:48:55
@@ -402,12 +402,32 @@ ruby_stack_length(p)
 static VALUE rb_eSysStackError;
 
+static VALUE
+stack_overflow(flagp)
+    VALUE flagp;
+{
+    *(int *)flagp = 1;
+    rb_raise(rb_eSysStackError, "stack level too deep");
+    return Qnil;
+}
+
+static VALUE
+clear_flag(flagp)
+    VALUE flagp;
+{
+    *(int *)flagp = 0;
+    return Qnil;
+}
+
 void
 ruby_stack_check()
 {
+    static int overflowing;
     int ret;
 
+    if (overflowing) return;
     CHECK_STACK(ret);
     if (ret) {
-	rb_raise(rb_eSysStackError, "stack level too deep");
+	rb_ensure(stack_overflow, (VALUE)&overflowing,
+		  clear_flag, (VALUE)&overflowing);
     }
 }


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