nagai	2008-05-16 16:24:08 +0900 (Fri, 16 May 2008)

  New Revision: 16434

  Modified files:
    branches/ruby_1_8/ChangeLog
    branches/ruby_1_8/ext/tk/tcltklib.c

  Log:
    * ext/tk/lib/tcltklib.c: sometimes freeze when receive Interrupt signal.


  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/branches/ruby_1_8/ChangeLog?r1=16434&r2=16433&diff_format=u
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/branches/ruby_1_8/ext/tk/tcltklib.c?r1=16434&r2=16433&diff_format=u

Index: ruby_1_8/ext/tk/tcltklib.c
===================================================================
--- ruby_1_8/ext/tk/tcltklib.c	(revision 16433)
+++ ruby_1_8/ext/tk/tcltklib.c	(revision 16434)
@@ -4,7 +4,7 @@
  *              Oct. 24, 1997   Y. Matsumoto
  */
 
-#define TCLTKLIB_RELEASE_DATE "2008-05-09"
+#define TCLTKLIB_RELEASE_DATE "2008-05-16"
 
 #include "ruby.h"
 
@@ -3153,6 +3153,7 @@
                          str, "'", (char *)NULL);
         rbtk_pending_exception = rb_exc_new2(rb_eArgError, 
                                              Tcl_GetStringResult(interp));
+        if (old_gc == Qfalse) rb_gc_enable();
         return TCL_ERROR;
 #endif
     }
@@ -5155,6 +5156,8 @@
 	Tcl_CreateCommand(ip, "ruby_cmd", ip_null_proc, 
 			  (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
 #endif
+        rb_thread_critical = thr_crit_bup;
+        return;
     }
 
     /* delete root widget */
@@ -5162,7 +5165,7 @@
     DUMP1("check `destroy'");
     if (Tcl_GetCommandInfo(ip, "destroy", &info)) {
         DUMP1("call `destroy'");
-        Tcl_GlobalEval(ip, "destroy .");
+        Tcl_GlobalEval(ip, "catch {destroy .}");
     }
 #endif
 #if 1
Index: ruby_1_8/ChangeLog
===================================================================
--- ruby_1_8/ChangeLog	(revision 16433)
+++ ruby_1_8/ChangeLog	(revision 16434)
@@ -1,3 +1,8 @@
+Fri May 16 16:22:40 2008  Hidetoshi NAGAI  <nagai@a...>
+
+	* ext/tk/tcltklib.c: sometimes freeze when receive Interrupt signal.
+
+
 Fri May 16 14:54:56 2008  Tanaka Akira  <akr@f...>
 
 	* Makefile.in (update-rubyspec): move rubyspec to srcdir. 

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/