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

A followup patch for bignum addition carrying from Lorenzo.

Browse source
This commit is contained in:
Alex Shinn 2013-01-03 23:02:59 +09:00
parent df116bb779
commit 1012f7e129
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bignum.c
View file

@ -341,7 +341,7 @@ sexp sexp_bignum_add_digits (sexp ctx, sexp dst, sexp a, sexp b) {
for (i=0; i<blen; i++) { for (i=0; i<blen; i++) {
n = adata[i]; n = adata[i];
cdata[i] = n + bdata[i] + carry; cdata[i] = n + bdata[i] + carry;
carry = (n > (SEXP_UINT_T_MAX - bdata[i]) ? 1 : 0); carry = (n > (SEXP_UINT_T_MAX - bdata[i] - carry) ? 1 : 0);
} }
for ( ; carry && (i<alen); i++) { for ( ; carry && (i<alen); i++) {
carry = (cdata[i] == SEXP_UINT_T_MAX ? 1 : 0); carry = (cdata[i] == SEXP_UINT_T_MAX ? 1 : 0);