From: "H.Yamamoto" <ocean@...2.ccsnet.ne.jp>
Date: 2005-11-06T23:16:12+09:00
Subject: [ruby-dev:27650] Re: tcltkstub cause SEGV

山本です。

>配列要素が存在するかを知りたいだけですので，今現在は
>
>Index: stubs.c
>===================================================================
>RCS file: /var/cvs/src/ruby/ext/tk/stubs.c,v
>retrieving revision 1.4
>diff -u -r1.4 stubs.c
>--- stubs.c	6 Nov 2005 12:45:44 -0000	1.4
>+++ stubs.c	6 Nov 2005 13:44:39 -0000
>@@ -34,7 +34,9 @@
>         return;
>     }
> 
>-    if (Tcl_Eval(ip, "set ::tcl_platform(threaded)") == TCL_OK) {
>+    /* If the variable "tcl_platform(threaded)" exists,  
>+       then the Tcl interpreter was compiled with threads enabled. */
>+    if (Tcl_GetVar2(ip, "tcl_platform", "threaded", TCL_GLOBAL_ONLY) != (char*)NULL) {
> #ifdef HAVE_NATIVETHREAD
>         /* consistent */
> #else
>
>としておくのがいいような気がしてます．

そうですね、簡単にできると思ったのですが、やってみたら意外と時間がかかるので
あきらめることにします。（さっきのは作業中でコンパイルもできないものを送って
しまいました。すみません）