mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 22:12:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

SIN and SINH, when applied on long doubles, used only float accuracy.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-08-02 16:33:19 +02:00
parent 404b1640ca
commit 298e0f88e7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/num_sfun.d
View file

@ -481,7 +481,7 @@ cl_sin(cl_object x)
output = ecl_make_doublefloat(sin(df(x))); break;
#ifdef ECL_LONG_FLOAT
case t_longfloat:
output = make_longfloat(sinf(ecl_long_float(x))); break;
output = make_longfloat(sinl(ecl_long_float(x))); break;
#endif
case t_complex: {
/*
@ -609,7 +609,7 @@ cl_sinh(cl_object x)
output = ecl_make_doublefloat(sinh(df(x))); break;
#ifdef ECL_LONG_FLOAT
case t_longfloat:
output = make_longfloat(sinhf(ecl_long_float(x))); break;
output = make_longfloat(sinhl(ecl_long_float(x))); break;
#endif
case t_complex: {
/*