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

Hack to avoid the problem of tanf(PI/4) overflowing in GLIBC.

Browse source
This commit is contained in:
jjgarcia 2008-08-03 08:36:51 +00:00
parent f83ba9a73d
commit a072c1dc88
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/num_sfun.d
View file

@ -597,6 +597,18 @@ cl_cos(cl_object x)
@(return output)
}
/*
* As of 2006-10-13 I found this bug in GLIBC's tanf, which overflows
* when the argument is pi/4. It is 2008 and this has not yet been
* solved.
*/
#if defined(__amd64__) && defined(__GLIBC_)
# ifdef tanf
# undef tanf
# endif
# define tanf(x) (float)tan(x)
#endif
cl_object
cl_tan(cl_object x)
{