mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

We used the wrong data for the random state when dealing with bignums (src/c/num_rand.d)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-01 22:49:48 +01:00
parent 96cd2ce15c
commit 8ba4fba58a
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/num_rand.d
View file

@ -159,8 +159,8 @@ random_integer(cl_object limit, cl_object state)
if (bit_length <= FIXNUM_BITS)
bit_length = FIXNUM_BITS;
buffer = ecl_ash(MAKE_FIXNUM(1), bit_length);
for (bit_length = buffer->big.big_size; bit_length--; ) {
buffer->big.big_limbs[bit_length] =
for (bit_length = mpz_size(buffer->big.big_num); bit_length; ) {
buffer->big.big_limbs[--bit_length] =
generate_limb(state);
}
return cl_mod(buffer, limit);
@ -184,7 +184,7 @@ rando(cl_object x, cl_object rs)
break;
#endif
case t_bignum:
z = random_integer(x, rs);
z = random_integer(x, rs->random.value);
break;
#ifdef ECL_SHORT_FLOAT
case t_shortfloat: