nobu	2009-07-17 15:21:14 +0900 (Fri, 17 Jul 2009)

  New Revision: 24164

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

  Log:
    * random.c (DIGSPERINT): fix for LP64.

  Modified files:
    trunk/ChangeLog
    trunk/random.c

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 24163)
+++ ChangeLog	(revision 24164)
@@ -1,5 +1,7 @@
-Fri Jul 17 13:58:26 2009  Nobuyoshi Nakada  <nobu@r...>
+Fri Jul 17 15:20:53 2009  Nobuyoshi Nakada  <nobu@r...>
 
+	* random.c (DIGSPERINT): fix for LP64.
+
 	* random.c (fill_random_seed): /dev/urandom is not available on
 	  DOSISH systems.
 
Index: random.c
===================================================================
--- random.c	(revision 24163)
+++ random.c	(revision 24164)
@@ -226,7 +226,7 @@
 #define BDIGITS(x) (RBIGNUM_DIGITS(x))
 #define BITSPERDIG (SIZEOF_BDIGITS*CHAR_BIT)
 #define BIGRAD ((BDIGIT_DBL)1 << BITSPERDIG)
-#define DIGSPERINT (SIZEOF_LONG/SIZEOF_BDIGITS)
+#define DIGSPERINT (SIZEOF_INT/SIZEOF_BDIGITS)
 #define BIGUP(x) ((BDIGIT_DBL)(x) << BITSPERDIG)
 #define BIGDN(x) RSHIFT(x,BITSPERDIG)
 #define BIGLO(x) ((BDIGIT)((x) & (BIGRAD-1)))
@@ -615,7 +615,7 @@
 		do {
 		    x = (x << CHAR_BIT * SIZEOF_BDIGITS) | *--d;
 		} while (--len % DIGSPERINT);
-#endif
+# endif
 		mt->state[len / DIGSPERINT] = (unsigned int)x;
 	    } while (len > 0);
 	}

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