Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handling potential memory overflow in random-integer with a bignum bound.

Browse source
This commit is contained in:
Alex Shinn 2014-01-01 13:26:43 +09:00
parent e4c70383a7
commit 53826be6f9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/27/rand.c
View file

@ -51,8 +51,8 @@ static sexp sexp_rs_random_integer (sexp ctx, sexp self, sexp_sint_t n, sexp rs,
#if SEXP_USE_BIGNUMS #if SEXP_USE_BIGNUMS
} else if (sexp_bignump(bound)) { } else if (sexp_bignump(bound)) {
hi = sexp_bignum_hi(bound); hi = sexp_bignum_hi(bound);
len = hi * sizeof(sexp_uint_t) / sizeof(int32_t); len = hi * (sizeof(sexp_uint_t) / sizeof(int32_t));
res = sexp_make_bignum(ctx, hi); res = sexp_make_bignum(ctx, hi + 1);
data = (int32_t*) sexp_bignum_data(res); data = (int32_t*) sexp_bignum_data(res);
for (i=0; i<len-1; i++) { for (i=0; i<len-1; i++) {
sexp_call_random(rs, m); sexp_call_random(rs, m);