mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-01 18:20:28 -08:00
Code Issues Projects Releases Packages Wiki Activity

More accurate ratio->float conversion which does not fail if the denominator is too large to fit a float

Browse source
This commit is contained in:
jjgarcia 2005-06-27 08:30:12 +00:00
parent 6a4308353b
commit 53c751a89f
2 changed files with 21 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/CHANGELOG
View file

@ -68,6 +68,9 @@ ECL 0.9g
- Remove obsolete C::BUILD-ECL documentation (M. Goffioul).
- The conversion from ratio to float works now even if the numerator/denominator
are themselves too large to fit a float.
* ANSI compatibility:
- Several functions that signaled type-errors did not set the right values

22
src/c/number.d
View file

@ -214,10 +214,24 @@ number_to_double(cl_object x)
case t_bignum:
return(big_to_double(x));
case t_ratio:
return(number_to_double(x->ratio.num) /
number_to_double(x->ratio.den));
case t_ratio: {
double output;
mpq_t aux;
mpq_init(aux);
if (FIXNUMP(x->ratio.num)) {
mpz_set_si(mpq_numref(aux), fix(x->ratio.num));
} else {
mpz_set(mpq_numref(aux), x->ratio.num->big.big_num);
}
if (FIXNUMP(x->ratio.den)) {
mpz_set_si(mpq_denref(aux), fix(x->ratio.den));
} else {
mpz_set(mpq_denref(aux), x->ratio.den->big.big_num);
}
output = mpq_get_d(aux);
mpq_clear(aux);
return output;
}
case t_shortfloat:
return((double)(sf(x)));