Changeset 32531 in project


Ignore:
Timestamp:
07/03/15 08:37:41 (5 years ago)
Author:
sjamaan
Message:

numbers: Fix another double C_fix wrapping bug, in ratcmp

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/trunk/numbers-c.c

    r32529 r32531  
    10701070   * are inlineable, which makes a big difference for the common case.
    10711071   */
    1072   ssize = C_fix(C_bignum_size(x1) + C_bignum_size(y2));
     1072  ssize = C_bignum_size(x1) + C_bignum_size(y2);
    10731073  negp = C_mk_bool(C_bignum_negativep(x1));
    10741074  s = allocate_tmp_bignum(C_fix(ssize), negp, C_SCHEME_TRUE);
    10751075  bignum_digits_multiply(x1, y2, s); /* Swap args if x1 < y2? */
    10761076
    1077   tsize = C_fix(C_bignum_size(y1) + C_bignum_size(x2));
     1077  tsize = C_bignum_size(y1) + C_bignum_size(x2);
    10781078  negp = C_mk_bool(C_bignum_negativep(y1));
    10791079  t = allocate_tmp_bignum(C_fix(tsize), negp, C_SCHEME_TRUE);
Note: See TracChangeset for help on using the changeset viewer.