cl_object
_ecl_fix_minus_big(cl_fixnum a, cl_object b)
{
- cl_object z;
- if (a == 0) {
- return ecl_negate(b);
- } else {
- cl_index size_b = (b->big.big_size < 0)? -b->big.big_size
- : b->big.big_size;
- cl_index size_z = size_b + limbs_per_fixnum;
- cl_object z = _ecl_alloc_compact_bignum(size_z);
- mpz_set_si(z->big.big_num, a);
- mpz_sub(z->big.big_num, z->big.big_num, b->big.big_num);
- return big_normalize(z);
- }
+ cl_index size_b = (b->big.big_size < 0)? -b->big.big_size : b->big.big_size;
+ cl_index size_z = size_b + limbs_per_fixnum;
+ cl_object z = _ecl_alloc_compact_bignum(size_z);
+ mpz_set_si(z->big.big_num, a);
+ mpz_sub(z->big.big_num, z->big.big_num, b->big.big_num);
+ return big_normalize(z);
}
static void *
case t_fixnum:
return ecl_make_integer(fix(x) - fix(y));
case t_bignum:
- z = _ecl_big_register0();
- i = fix(x);
- if (i > 0)
- _ecl_big_sub_ui(z, y, i);
- else
- _ecl_big_add_ui(z, y, -i);
- _ecl_big_complement(z, z);
- return _ecl_big_register_normalize(z);
+ return _ecl_fix_minus_big(fix(x), y);
case t_ratio:
z = ecl_times(x, y->ratio.den);
z = ecl_minus(z, y->ratio.num);
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_sub_ui(z, x, j);
- else
- _ecl_big_add_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_sub(z, x, y);
- return _ecl_big_register_normalize(z);
+ return _ecl_big_minus_big(x, y);
case t_ratio:
z = ecl_times(x, y->ratio.den);
z = ecl_minus(z, y->ratio.num);
Repositories / ecl.git / commitdiff