[ruby-dev:27513] broken Qtrue in 64bit environment

山本です。

[ruby-dev:27049] とも関連するような話なんですが、
http://inamode6.tokuhirom.dnsalias.org/show/1037 という話を目にしました。

// 再現コード（bcc32の場合）

#include <stdio.h>

typedef unsigned __int64 VALUE;

#define Qtrue 3 /* 32bit */

static void test(); /* ANYARGS */

int main()
{
    test(Qtrue);
}

static void test(VALUE val) /* 64bit */
{
    printf("%Lx\n", val); /* 3256e7da00000003 */
}

VisualC++ では再現しませんが、たぶん引数を増やしたりすればおかしくなると
思います。

結局のところ、ANYARGS を使うなら

  * int, double より小さいサイズの変数は引数に渡せない（使えない）

  * それより大きいサイズでも、型を厳密にあわせる必要がある

ということなんでしょうか。他にもこういう場所がありそうな気がしますが、
とりあえず下のようなパッチは必要なんじゃないでしょうか。

Index: ruby.h
===================================================================
RCS file: /src/ruby/ruby.h,v
retrieving revision 1.125
diff -u -w -b -p -r1.125 ruby.h
--- ruby.h	21 Oct 2005 06:46:39 -0000	1.125
+++ ruby.h	25 Oct 2005 08:23:59 -0000
@@ -187,10 +187,10 @@ VALUE rb_ull2inum(unsigned LONG_LONG);
 #define SYM2ID(x) RSHIFT((long)x,8)
 
 /* special contants - i.e. non-zero and non-fixnum constants */
-#define Qfalse 0
-#define Qtrue  2
-#define Qnil   4
-#define Qundef 6		/* undefined value for placeholder */
+#define Qfalse ((VALUE)0)
+#define Qtrue  ((VALUE)2)
+#define Qnil   ((VALUE)4)
+#define Qundef ((VALUE)6)	/* undefined value for placeholder */
 
 #define RTEST(v) (((VALUE)(v) & ~Qnil) != 0)
 #define NIL_P(v) ((VALUE)(v) == Qnil)

しかしこうなってくると、[ruby-dev:27028] が欲しい気がしてきますね。