From 493f72185499f3fea1212b04d177a0870d6e89c3 Mon Sep 17 00:00:00 2001 From: naruse Date: Fri, 10 Sep 2010 05:44:54 +0000 Subject: * random.c (rb_genrand_ulong_limited): renamed from rb_rand_internal and now this is public API. * include/ruby/ruby.h (rb_genrand_ulong_limited): added. * bignum.c (big_sparse_p): use rb_genrand_ulong_limited. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@29212 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- bignum.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'bignum.c') diff --git a/bignum.c b/bignum.c index 1dd43df494..3145f24843 100644 --- a/bignum.c +++ b/bignum.c @@ -2214,11 +2214,10 @@ static inline VALUE big_sparse_p(VALUE x) { long c = 0, n = RBIGNUM_LEN(x); - unsigned long rb_rand_internal(unsigned long i); - if ( BDIGITS(x)[rb_rand_internal(n / 2) + n / 4]) c++; - if (c <= 1 && BDIGITS(x)[rb_rand_internal(n / 2) + n / 4]) c++; - if (c <= 1 && BDIGITS(x)[rb_rand_internal(n / 2) + n / 4]) c++; + if ( BDIGITS(x)[rb_genrand_ulong_limited(n / 2) + n / 4]) c++; + if (c <= 1 && BDIGITS(x)[rb_genrand_ulong_limited(n / 2) + n / 4]) c++; + if (c <= 1 && BDIGITS(x)[rb_genrand_ulong_limited(n / 2) + n / 4]) c++; return (c <= 1) ? Qtrue : Qfalse; } -- cgit v1.2.3