[ruby-dev:31058] Re: Fixnum on IL32LLP64 (was Re: problem in bignorm)

こんにちは、なかむら(う)です。

いきなり1年近く前の話で恐縮なんですが、

In message "[ruby-dev:29056] Re: Fixnum on IL32LLP64 (was Re: problem in bignorm)"
    on Jul.18,2006 17:04:07, <[e-mail]> wrote:
| |もったいないんですけど、現実問題として、早くBignumになっちゃ
| |うことによる性能低下やなんかと、実装上のこれだけの苦労を比較
| |すると、どうも苦労に見合ってないんじゃなかろうか、というのが、
| |前に試しに作業してみたときの私の感想でした。
| |そのときはNUM2LONGあたりをいじってたあたりでもう投げ出しまし
| |たけど(忍耐力がない
| 
| うーん、じゃあ、Fixnum=longで妥協しちゃおうかなあ(根性なし)。

というわけで、IL32LLP64環境ではFixnumをlongの範囲とする、とい
うことで結論が出ているということでいいでしょうか?
これでよければ、以下のパッチをcommitしたいのですが、いいです
かね?
# 他にもinsns.defへのパッチが必要なんですが、これは別途ささだ
# さんと相談します。

Index: include/ruby/ruby.h
===================================================================
--- include/ruby/ruby.h	(revision 12615)
+++ include/ruby/ruby.h	(working copy)
@@ -151,13 +151,8 @@
 # endif
 #endif
 
-#ifdef LONG_LONG_VALUE
-# define FIXNUM_MAX (LLONG_MAX>>1)
-# define FIXNUM_MIN RSHIFT((LONG_LONG)LLONG_MIN,1)
-#else
-# define FIXNUM_MAX (LONG_MAX>>1)
-# define FIXNUM_MIN RSHIFT((long)LONG_MIN,1)
-#endif
+#define FIXNUM_MAX (LONG_MAX>>1)
+#define FIXNUM_MIN RSHIFT((long)LONG_MIN,1)
 
 #define FIXNUM_FLAG 0x01
 #define INT2FIX(i) ((VALUE)(((SIGNED_VALUE)(i))<<1 | FIXNUM_FLAG))
Index: bignum.c
===================================================================
--- bignum.c	(revision 12615)
+++ bignum.c	(working copy)
@@ -107,8 +107,8 @@
     long len = RBIGNUM(x)->len;
     BDIGIT *ds = BDIGITS(x);
 
-    if (len*SIZEOF_BDIGITS <= sizeof(VALUE)) {
-	SIGNED_VALUE num = 0;
+    if (len*SIZEOF_BDIGITS <= sizeof(long)) {
+	long num = 0;
 	while (len--) {
 	    num = BIGUP(num) + ds[len];
 	}
@@ -415,7 +415,7 @@
     }
     len *= strlen(str)*sizeof(char);
 
-    if (len <= (sizeof(VALUE)*CHAR_BIT)) {
+    if (len <= (sizeof(long)*CHAR_BIT)) {
 	unsigned long val = strtoul(str, &end, base);
 
 	if (str < end && *end == '_') goto bigparse;

それでは。
-- 
U.Nakamura <[e-mail]>
あ、-pついてない