From: Koji Arai <JCA02266@...>
Date: 1999-06-17T00:06:32+09:00
Subject: [ruby-dev:7126] Re: Ruby 1.3.4-990611

新井＠制御 九工大 学卒です(^^

>>> From: nagai@dumbo.ai.kyutech.ac.jp
>>> Date: 16 Jun 1999 10:39:42 +0900
>>> Subject: [ruby-dev:7123] Re: Ruby 1.3.4-990611

> 永井＠知能．九工大です．

> これは 1.2.5 では生じないようですね．
> 1.2.x と 1.3.x との間で変更された部分が影響しているのでしょうか？

ですね。threadがらみでSEGVする件の修正かな？

tcltklib.c:lib_mainloop()の
        Tcl_DoOneEvent(TCL_DONT_WAIT);
を
        Tcl_DoOneEvent(0);

に戻せばとりあえず、CPUの占有はなくなるんだけどこ
れじゃなんの解決にもならないんでしょうねぇ。
# ぐっ、Ctrl-C 効かんし。

今は、その場しのぎで以下のようにしてます。

Index: ext/tcltklib/tcltklib.c
===================================================================
RCS file: /home/cvs/ruby/ext/tcltklib/tcltklib.c,v
retrieving revision 1.1.1.2.2.5
diff -u -r1.1.1.2.2.5 tcltklib.c
--- ext/tcltklib/tcltklib.c	1999/06/09 09:21:36	1.1.1.2.2.5
+++ ext/tcltklib/tcltklib.c	1999/06/16 15:02:47
@@ -69,6 +69,7 @@
     DUMP1("start Tk_Mainloop");
     while (Tk_GetNumMainWindows() > 0) {
         Tcl_DoOneEvent(TCL_DONT_WAIT);
+	usleep(200);
 	CHECK_INTS;
 	q = iqueue;
 	while (q) {