usa	2008-07-19 00:29:17 +0900 (Sat, 19 Jul 2008)

  New Revision: 18126

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=18126

  Log:
    * numeric.c (check_uint, rb_num2uint, rb_fix2uint): fixed wrong check
      about 64bit positive value.

  Modified files:
    trunk/ChangeLog
    trunk/numeric.c

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 18125)
+++ ChangeLog	(revision 18126)
@@ -1,3 +1,8 @@
+Sat Jul 19 00:27:58 2008  NAKAMURA Usaku  <usa@r...>
+
+	* numeric.c (check_uint, rb_num2uint, rb_fix2uint): fixed wrong check
+	  about 64bit positive value.
+
 Fri Jul 18 23:23:37 2008  Masaki Suketa  <masaki.suketa@n...>
 
 	* ext/win32ole/win32ole.c (EVENTSINK_Invoke): avoid cfp consistency
Index: numeric.c
===================================================================
--- numeric.c	(revision 18125)
+++ numeric.c	(revision 18126)
@@ -1585,25 +1585,26 @@
 }
 
 static void
-check_uint(VALUE num)
+check_uint(VALUE num, VALUE sign)
 {
     static const VALUE mask = ~(VALUE)UINT_MAX;
-    static const VALUE msb =
-#if SIZEOF_LONG == SIZEOF_VALUE
-	~LONG_MAX;
-#elif SIZEOF_LONG_LONG == SIZEOF_VALUE
-	~LLONG_MAX;
-#endif
     const char *s;
 
-    if ((num & mask) != 0 &&
-	((num & mask) != mask || (num & ~mask) <= INT_MAX + 1UL)) {
-	if ((num & msb) == 0)
+    if (RTEST(sign)) {
+	/* minus */
+	if ((num & mask) != mask || (num & ~mask) <= INT_MAX + 1UL)
+	    s = "small";
+	else
+	    return;
+    }
+    else {
+	/* plus */
+	if ((num & mask) != 0)
 	    s = "big";
 	else
-	    s = "small";
-	rb_raise(rb_eRangeError, "integer %"PRIdVALUE " too %s to convert to `unsigned int'", num, s);
+	    return;
     }
+    rb_raise(rb_eRangeError, "integer %"PRIdVALUE " too %s to convert to `unsigned int'", num, s);
 }
 
 long
@@ -1629,7 +1630,7 @@
 {
     unsigned long num = rb_num2ulong(val);
 
-    check_uint(num);
+    check_uint(num, rb_funcall(val, '<', 1, INT2FIX(0)));
     return num;
 }
 
@@ -1643,7 +1644,7 @@
     }
     num = FIX2ULONG(val);
 
-    check_uint(num);
+    check_uint(num, rb_funcall(val, '<', 1, INT2FIX(0)));
     return num;
 }
 #else

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/