[ruby-dev:28156] Re: thread based generator.rb

なかだです。

At Thu, 29 Dec 2005 11:54:27 +0900,
Tanaka Akira wrote in [ruby-dev:28154]:
> ふむ。ちょっとした思い付きですが、他のスレッドから操作されな
> い限り動き出さない thread は GC の root にしない、というアイ
> デアはどうでしょう?

こういうことでしょうか。


Index: eval.c
===================================================================
RCS file: /src/ruby/eval.c,v
retrieving revision 1.859
diff -U2 -p -u -r1.859 eval.c
--- eval.c	27 Dec 2005 16:35:57 -0000	1.859
+++ eval.c	29 Dec 2005 04:36:57 -0000
@@ -9995,5 +9995,11 @@ rb_gc_mark_threads(void)
     if (!curr_thread) return;
     FOREACH_THREAD_FROM(main_thread, th) {
-	rb_gc_mark(th->thread);
+	switch (th->status) {
+	  case THREAD_STOPPED:
+	    if (!th->wait_for) break;
+	  case THREAD_TO_KILL:
+	  case THREAD_RUNNABLE:
+	    rb_gc_mark(th->thread);
+	}
     } END_FOREACH_FROM(main_thread, th);
     if (new_thread.thread) {
@@ -12528,4 +12534,5 @@ rb_callcc(VALUE self)
 
     THREAD_ALLOC(th);
+    th->status = THREAD_STOPPED;
     cont = Data_Wrap_Struct(rb_cCont, thread_mark, thread_free, th);
 


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