* random.c (make_seed_value): Fix the length given for

  rb_integer_unpack.



git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@41170 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 6 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 037a8d829d..fa9b8565c0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Jun  8 17:15:18 2013  Tanaka Akira  <akr@fsij.org>
+
+	* random.c (make_seed_value): Fix the length given for
+	  rb_integer_unpack.
+
 Sat Jun  8 16:38:02 2013  Tanaka Akira  <akr@fsij.org>
 
 	* bignum.c (rb_integer_unpack): Don't use rb_funcall if possible.
diff --git a/random.c b/random.c
index 03b8235982..797d49c787 100644
--- a/random.c
+++ b/random.c
@@ -517,7 +517,7 @@ make_seed_value(const uint32_t *ptr)
         len = DEFAULT_SEED_CNT;
     }
 
-    seed = rb_integer_unpack(+1, ptr, DEFAULT_SEED_CNT, sizeof(uint32_t), 0,
+    seed = rb_integer_unpack(+1, ptr, len, sizeof(uint32_t), 0,
         INTEGER_PACK_LSWORD_FIRST|INTEGER_PACK_NATIVE_BYTE_ORDER);
 
     return seed;