mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 14:21:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed and used _ecl_big_plus_{fix,big}

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-01-28 17:57:43 +01:00
parent 4b4e17ac03
commit 11a1ffb74f
2 changed files with 4 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/big.d
View file

@ -187,7 +187,7 @@ _ecl_big_plus_fix(cl_object a, cl_fixnum b)
cl_index size_z = size_a + limbs_per_fixnum;
cl_object z = _ecl_alloc_compact_bignum(size_z);
if (b < 0) {
_ecl_big_sub_ui(z, a, b);
_ecl_big_sub_ui(z, a, (-b));
} else {
_ecl_big_add_ui(z, a, b);
}

22
src/c/num_arith.d
View file

@ -273,14 +273,7 @@ ecl_plus(cl_object x, cl_object y)
case t_fixnum:
return ecl_make_integer(fix(x) + fix(y));
case t_bignum:
if ((i = fix(x)) == 0)
return(y);
z = _ecl_big_register0();
if (i > 0)
_ecl_big_add_ui(z, y, i);
else
_ecl_big_sub_ui(z, y, -i);
return _ecl_big_register_normalize(z);
return _ecl_big_plus_fix(y, fix(x));
case t_ratio:
z = ecl_times(x, y->ratio.den);
z = ecl_plus(z, y->ratio.num);
@ -307,18 +300,9 @@ ecl_plus(cl_object x, cl_object y)
case t_bignum:
switch (type_of(y)) {
case t_fixnum:
if ((j = fix(y)) == 0)
return(x);
z = _ecl_big_register0();
if (j > 0)
_ecl_big_add_ui(z, x, j);
else
_ecl_big_sub_ui(z, x, (-j));
return _ecl_big_register_normalize(z);
return _ecl_big_plus_fix(x, fix(y));
case t_bignum:
z = _ecl_big_register0();
_ecl_big_add(z, x, y);
return _ecl_big_register_normalize(z);
return _ecl_big_plus_big(x, y);
case t_ratio:
z = ecl_times(x, y->ratio.den);
z = ecl_plus(z, y->ratio.num);