[ruby-dev:2393] Re: experimental release 1.1b9_11

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

>>>>> "M" == Yukihiro Matsumoto <[e-mail]> writes:
M> |コアダンプするんですが，
M> |どうやってバックトレースを得ればいいのでしょうか？
M> gdbの中で実行してcore dump後，whereコマンドの出力を見せて下
M> さい．
  (中略)
M> なお，tcltklibはstaticリンクしておいてくださると情報が増えて
M> 嬉しいです．

遅くなりましたが，送りますので，よろしくお願いします．

なお，以下では tcltklib で TimerHandler を使ってみた場合の
パッチも添えています．
コアダンプするのがわかってから，泣きながら(^_^)
「Tcl/Tk 入門」で勉強して作ったものですから，
まだ問題があるかもしれません．
ですが，とりあえず，コアダンプせずに動作してはくれるようです．

---------<ここから gdb 出力>-------------------------------
Simakaze[root]# gdb ruby
GDB is free software and you are welcome to distribute copies of it
 under certain conditions; type "show copying" to see the conditions.
There is absolutely no warranty for GDB; type "show warranty" for details.
GDB 4.16 (i486-slackware-linux), 
Copyright 1996 Free Software Foundation, Inc...
(gdb) r thread-test.rb
Starting program: /usr/src/zzz/ruby-1.1b9_11/ruby thread-test.rb

Program received signal SIGSEGV, Segmentation fault.
0x40101ac8 in Tcl_FindCommand () at ./../generic/tclNamesp.c:1475
1475    }
(gdb) where
#0  0x40101ac8 in Tcl_FindCommand () at ./../generic/tclNamesp.c:1475
#1  0x400d8a9d in TclCompileString () at ./../generic/tclCompile.c:1597
#2  0x400d7a30 in SetByteCodeFromAny (interp=0x80bf170, objPtr=0x80d2d58)
    at ./../generic/tclCompile.c:1056
#3  0x400c70f0 in Tcl_EvalObj () at ./../generic/tclBasic.c:1070
#4  0x400c6f3f in Tcl_Eval () at ./../generic/tclBasic.c:1070
#5  0x804f7ee in ip_eval (self=1076376896, str=1076697420) at tcltklib.c:162
#6  0x805704a in rb_call0 (klass=1076468156, recv=1076376896, id=8329, argc=1, 
    argv=0xbfffe954, body=0x402998f4, nosuper=1) at eval.c:3281
#7  0x8057921 in rb_call (klass=1076468156, recv=1076376896, mid=8329, argc=1, 
    argv=0xbfffe954, scope=0) at eval.c:3551
#8  0x80544dc in rb_eval (self=1076701520, node=0x402877bc) at eval.c:1921
#9  0x8053500 in rb_eval (self=1076701520, node=0x4028776c) at eval.c:1531
#10 0x80576c2 in rb_call0 (klass=1076375796, recv=1076701520, id=5572, argc=0, 
    argv=0xbfffed68, body=0x4028776c, nosuper=0) at eval.c:3470
#11 0x8057921 in rb_call (klass=1076375796, recv=1076701520, mid=5572, argc=1, 
    argv=0xbfffed64, scope=0) at eval.c:3551
#12 0x80544dc in rb_eval (self=1076515096, node=0x40298dc8) at eval.c:1921
#13 0x8053500 in rb_eval (self=1076515096, node=0x40298d8c) at eval.c:1531
#14 0x8056349 in rb_yield_0 (val=4, self=1076515096) at eval.c:2828
#15 0x8056426 in rb_yield (val=4) at eval.c:2865
#16 0x8056437 in f_loop () at eval.c:2871
#17 0x8057030 in rb_call0 (klass=1076518036, recv=1076515096, id=3593, argc=0, 
    argv=0x0, body=0x402a4a88, nosuper=1) at eval.c:3278
#18 0x8057921 in rb_call (klass=1076518036, recv=1076515096, mid=3593, argc=0, 
    argv=0x0, scope=1) at eval.c:3551
#19 0x80544dc in rb_eval (self=1076515096, node=0x40298d50) at eval.c:1921
#20 0x8053acb in rb_eval (self=1076515096, node=0x40298d64) at eval.c:1712
#21 0x8053500 in rb_eval (self=1076515096, node=0x40298d28) at eval.c:1531
#22 0x805222e in eval_node (self=1076515096) at eval.c:885
#23 0x80522db in ruby_run () at eval.c:916
#24 0x804f304 in main (argc=2, argv=0xbffff77c, envp=0xbffff788) at main.c:32
#25 0x804f28e in _start ()
(gdb) 
---------<ここまで gdb 出力>-------------------------------

---------<以下はパッチ>-------------------------------
--- ../ruby-1.1b9_11.orig/ext/tcltklib/tcltklib.c	Thu Apr 16 19:39:34 1998
+++ ext/tcltklib/tcltklib.c	Fri Apr 17 11:58:30 1998
@@ -33,15 +33,52 @@
 
 /*---- module TclTkLib ----*/
 
+#ifdef THREAD
+/* Tk_ThreadTimer */
+typedef struct {
+    Tcl_TimerToken token;
+    int  flag;
+} Tk_ThreadTimerData;
+
+/* timer callback */
+void _timer_for_thread (ClientData clientData)
+{
+    Tk_ThreadTimerData *timer = (Tk_ThreadTimerData *) clientData;
+
+    timer->flag = 0;
+    thread_schedule();
+
+    timer->token = Tk_CreateTimerHandler(10, _timer_for_thread, 
+					 (ClientData) timer);
+    timer->flag = 1;
+}
+#endif
+
 /* execute Tk_MainLoop */
 static VALUE
 lib_mainloop(VALUE self)
 {
+#ifdef THREAD
+    Tk_ThreadTimerData *timer;
+
+    timer = (Tk_ThreadTimerData *) ckalloc(sizeof(Tk_ThreadTimerData));
+    timer->flag = 0;
+    timer->token = Tk_CreateTimerHandler(10, _timer_for_thread, 
+					 (ClientData) timer);
+    timer->flag = 1;
+#endif
+
     DUMP1("start Tk_Mainloop");
     while (Tk_GetNumMainWindows() > 0) {
         Tcl_DoOneEvent(0);
     }
     DUMP1("stop Tk_Mainloop");
+
+#ifdef THREAD
+    if (timer->flag) {
+      Tk_DeleteTimerHandler(timer->token);
+    }
+#endif
 
     return Qnil;
 }
--- ../ruby-1.1b9_11.orig/lib/tk.rb	Thu Apr 16 19:39:35 1998
+++ lib/tk.rb	Fri Apr 17 11:33:22 1998
@@ -268,13 +268,13 @@
   end
 
   def mainloop
-    if defined?(Thread)
-      INTERP._eval("proc rb_after {} {
-                      ruby {Thread.pass};
-                      after 200 rb_after
-                    }")
-      INTERP._eval("rb_after")
-    end
+#    if defined?(Thread)
+#      INTERP._eval("proc rb_after {} {
+#                      ruby {Thread.pass};
+#                      after 200 rb_after
+#                    }")
+#      INTERP._eval("rb_after")
+#    end
     TclTkLib.mainloop
   end