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

ieee: fix comparison of infinities with ratios and bignums

Browse source 
Fixes #299.
This commit is contained in:
Daniel Kochmański 2016-11-04 21:07:58 +01:00
parent 4fdaf22bc5
commit 1cfb5016d8
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/numbers/number_compare.d
View file

@ -79,6 +79,10 @@ ecl_number_compare(cl_object x, cl_object y)
case t_doublefloat:
#ifdef ECL_LONG_FLOAT
case t_longfloat:
#endif
#ifdef ECL_IEEE_FP
if (si_float_infinity_p(y))
return(ecl_number_compare(ecl_make_fixnum(0), y));
#endif
y = cl_rational(y);
goto BEGIN;
@ -101,6 +105,10 @@ ecl_number_compare(cl_object x, cl_object y)
case t_doublefloat:
#ifdef ECL_LONG_FLOAT
case t_longfloat:
#endif
#ifdef ECL_IEEE_FP
if (si_float_infinity_p(y))
return(ecl_number_compare(ecl_make_fixnum(0), y));
#endif
y = cl_rational(y);
goto BEGIN;
@ -118,6 +126,10 @@ ecl_number_compare(cl_object x, cl_object y)
return -double_fix_compare(ecl_fixnum(y), dx);
case t_bignum:
case t_ratio:
#ifdef ECL_IEEE_FP
if (si_float_infinity_p(x))
return(ecl_number_compare(x, ecl_make_fixnum(0)));
#endif
x = cl_rational(x);
goto BEGIN;
case t_singlefloat: