[ruby-dev:27643] Re: tcltkstub cause SEGV

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

From: KIMURA Koichi <[e-mail]>
Subject: [ruby-dev:27638] tcltkstub cause SEGV
Date: Sun, 6 Nov 2005 05:16:51 +0900
Message-ID: <[e-mail]>
> CVS HEADで、tcltkstubsを有効にしてコンパイルすると
> require 'tk' したときにSEGVします(mswin32)。

報告をありがとうございます．

> ext/tk/stubs.c/_nativethread_consistency_check()の
> 
>     if (Tcl_Eval(ip, "set ::tcl_platform(threaded)") == TCL_OK) {
> 
> の行でSEGVが発生するところまでは突き止めたのですが、
> この先までは追いかけられませんでした。調べた範囲では
> DLLのハンドルは正しく取れているようでした。

もしかして，次の変更で回避できたりしますか？

Index: stubs.c
===================================================================
RCS file: /var/cvs/src/ruby/ext/tk/stubs.c,v
retrieving revision 1.3
diff -u -r1.3 stubs.c
--- stubs.c	4 Aug 2005 09:41:55 -0000	1.3
+++ stubs.c	6 Nov 2005 12:40:23 -0000
@@ -30,11 +30,18 @@
 _nativethread_consistency_check(ip)
     Tcl_Interp *ip;
 {
+    char *buf;
+    int ret;
+
     if (nativethread_checked || ip == (Tcl_Interp *)NULL) {
         return;
     }
 
-    if (Tcl_Eval(ip, "set ::tcl_platform(threaded)") == TCL_OK) {
+    buf = strdup("set ::tcl_platform(threaded)");
+    ret = Tcl_Eval(ip, buf);
+    free(buf);
+
+    if (ret == TCL_OK) {
 #ifdef HAVE_NATIVETHREAD
         /* consistent */
 #else

-- 
                                       永井 秀利 （九工大 知能情報）
                                           [e-mail]