Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-06 20:56:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Small simplification in sexp_bignum_fxmul.

Browse source
This commit is contained in:
Alex Shinn 2014-01-30 22:31:01 +09:00
parent 9737c4dc1d
commit 6a8f96b2cc
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bignum.c
View file

@ -190,9 +190,8 @@ sexp sexp_bignum_fxmul (sexp ctx, sexp d, sexp a, sexp_uint_t b, int offset) {
sexp_gc_var1(tmp); sexp_gc_var1(tmp);
sexp_gc_preserve1(ctx, tmp); sexp_gc_preserve1(ctx, tmp);
if ((! d) || (sexp_bignum_length(d) < len+offset)) if ((! d) || (sexp_bignum_length(d) < len+offset))
d = tmp = sexp_make_bignum(ctx, len+offset); d = sexp_make_bignum(ctx, len+offset);
else tmp = d;
tmp = d;
data = sexp_bignum_data(d); data = sexp_bignum_data(d);
for (i=0; i<len; i++) { for (i=0; i<len; i++) {
n = (sexp_luint_t)adata[i]*b + carry; n = (sexp_luint_t)adata[i]*b + carry;