[ruby-list:45673] Re: ruby-1.9.1-preview2のruby-tk on OSX

なかだです。

At Tue, 2 Dec 2008 19:59:38 +0900,
天野竜太郎 wrote in [ruby-list:45670]:
> widgetを起動してサンプルをクリックすると落ちます。

環境は関係ないようです。

* ext/tk/tcltklib.c (ip_ruby_cmd, ip_invoke_with_position): must
  not access internal union directly.  [ruby-list:45670]


Index: ext/tk/tcltklib.c
===================================================================
--- ext/tk/tcltklib.c	(revision 20429)
+++ ext/tk/tcltklib.c	(working copy)
@@ -3091,19 +3091,17 @@ ip_ruby_cmd(clientData, interp, argc, ar
     args = rb_ary_new2(argc - 2);
     for(i = 3; i < argc; i++) {
+        VALUE s;
 #if TCL_MAJOR_VERSION >= 8
         str = Tcl_GetStringFromObj(argv[i], &len);
-        DUMP2("arg:%s",str);
-#ifndef HAVE_STRUCT_RARRAY_LEN
-	rb_ary_push(args, rb_tainted_str_new(str, len));
-#else
-        RARRAY(args)->as.heap.ptr[RARRAY(args)->as.heap.len++] = rb_tainted_str_new(str, len);
-#endif
+        s = rb_tainted_str_new(str, len);
 #else /* TCL_MAJOR_VERSION < 8 */
-        DUMP2("arg:%s",argv[i]);
+        str = argv[i];
+        s = rb_tainted_str_new2(str);
+#endif
+        DUMP2("arg:%s",str);
 #ifndef HAVE_STRUCT_RARRAY_LEN
-	rb_ary_push(args, rb_tainted_str_new2(argv[i]));
+        rb_ary_push(args, s);
 #else
-        RARRAY(args)->as.heap.ptr[RARRAY(args)->as.heap.len++] = rb_tainted_str_new2(argv[i]);
-#endif
+        RARRAY(args)->ptr[RARRAY(args)->len++] = s;
 #endif
     }
@@ -8296,5 +8294,5 @@ ip_invoke_with_position(argc, argv, obj,
 
     /* get result & free allocated memory */
-    ret = RARRAY(result)->as.heap.ptr[0];
+    ret = RARRAY_PTR(result)[0];
 #if 0 /* use Tcl_EventuallyFree */
     Tcl_EventuallyFree((ClientData)alloc_done, TCL_DYNAMIC); /* XXXXXXXX */


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦