nobu	2010-03-15 14:06:11 +0900 (Mon, 15 Mar 2010)

  New Revision: 26937

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

  Log:
    * random.c (next_state): no initialization here.
    
    * random.c (default_mt): always return initialized MT.

  Modified files:
    trunk/ChangeLog
    trunk/random.c

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 26936)
+++ ChangeLog	(revision 26937)
@@ -1,3 +1,9 @@
+Mon Mar 15 14:06:07 2010  Nobuyoshi Nakada  <nobu@r...>
+
+	* random.c (next_state): no initialization here.
+
+	* random.c (default_mt): always return initialized MT.
+
 Mon Mar 15 11:49:48 2010  NARUSE, Yui  <naruse@r...>
 
 	* random.c (rb_reset_random_seed): set seed in this.
Index: random.c
===================================================================
--- random.c	(revision 26936)
+++ random.c	(revision 26937)
@@ -137,10 +137,6 @@
     unsigned int *p = mt->state;
     int j;
 
-    /* if init_genrand() has not been called, */
-    /* a default initial seed is used         */
-    if (!genrand_initialized(mt)) init_genrand(mt, 5489U);
-
     mt->left = N;
     mt->next = mt->state;
 
@@ -157,6 +153,7 @@
 static unsigned int
 genrand_int32(struct MT *mt)
 {
+    /* mt must be initialized */
     unsigned int y;
 
     if (--mt->left <= 0) next_state(mt);
@@ -175,6 +172,7 @@
 static double
 genrand_real(struct MT *mt)
 {
+    /* mt must be initialized */
     unsigned int a = genrand_int32(mt)>>5, b = genrand_int32(mt)>>6;
     return(a*67108864.0+b)*(1.0/9007199254740992.0);
 }
@@ -184,6 +182,7 @@
 static double
 genrand_real2(struct MT *mt)
 {
+    /* mt must be initialized */
     unsigned int a = genrand_int32(mt), b = genrand_int32(mt);
     return int_pair_to_real_inclusive(a, b);
 }
@@ -226,30 +225,28 @@
 static VALUE rand_init(struct MT *mt, VALUE vseed);
 static VALUE random_seed(void);
 
-static void
-default_rand_init(void)
+static struct MT *
+default_mt(void)
 {
     rb_random_t *r = &default_rand.rnd;
-    r->seed = rand_init(&r->mt, random_seed());
+    struct MT *mt = &r->mt;
+    if (!genrand_initialized(mt)) {
+	r->seed = rand_init(mt, random_seed());
+    }
+    return mt;
 }
 
 unsigned int
 rb_genrand_int32(void)
 {
-    struct MT *mt = &default_rand.rnd.mt;
-    if (!genrand_initialized(mt)) {
-	default_rand_init();
-    }
+    struct MT *mt = default_mt();
     return genrand_int32(mt);
 }
 
 double
 rb_genrand_real(void)
 {
-    struct MT *mt = &default_rand.rnd.mt;
-    if (!genrand_initialized(mt)) {
-	default_rand_init();
-    }
+    struct MT *mt = default_mt();
     return genrand_real(mt);
 }
 
@@ -774,6 +771,7 @@
 static unsigned long
 limited_rand(struct MT *mt, unsigned long limit)
 {
+    /* mt must be initialized */
     int i;
     unsigned long val, mask;
 
@@ -795,6 +793,7 @@
 static VALUE
 limited_big_rand(struct MT *mt, struct RBignum *limit)
 {
+    /* mt must be initialized */
     unsigned long mask, lim, rnd;
     struct RBignum *val;
     long i, len;
@@ -845,10 +844,7 @@
 unsigned long
 rb_rand_internal(unsigned long i)
 {
-    struct MT *mt = &default_rand.rnd.mt;
-    if (!genrand_initialized(mt)) {
-	default_rand_init();
-    }
+    struct MT *mt = default_mt();
     return limited_rand(mt, i);
 }
 
@@ -919,6 +915,7 @@
 static VALUE
 rand_int(struct MT *mt, VALUE vmax, int restrictive)
 {
+    /* mt must be initialized */
     long max;
     unsigned long r;
 
@@ -1124,11 +1121,8 @@
 rb_f_rand(int argc, VALUE *argv, VALUE obj)
 {
     VALUE vmax, r;
-    struct MT *mt = &default_rand.rnd.mt;
+    struct MT *mt = default_mt();
 
-    if (!genrand_initialized(mt)) {
-	default_rand_init();
-    }
     if (argc == 0) goto zero_arg;
     rb_scan_args(argc, argv, "01", &vmax);
     if (NIL_P(vmax)) goto zero_arg;

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