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

asinh/asinhl is defined by mingw's library

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-12-23 23:34:58 +01:00
parent 0c3f2d419c
commit adc396c252
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/numlib.lsp
View file

@ -183,13 +183,13 @@ Returns the arc cosine of NUMBER."
(asinh (imagpart (* (conjugate sqrt-1+z)
sqrt-1-z))))))
#+(and (not ecl-min) win32)
#+(and (not ecl-min) win32 (not mingw32))
(progn
(ffi:clines "double asinh(double x) { return log(x+sqrt(1.0+x*x)); }")
(ffi:clines "double acosh(double x) { return log(x+sqrt((x-1)*(x+1))); }")
(ffi:clines "double atanh(double x) { return log((1+x)/(1-x))/2; }"))
#+(and long-float (not ecl-min) win32)
#+(and long-float (not ecl-min) win32 (not mingw32))
(progn
(ffi:clines "double asinhl(long double x) { return logl(x+sqrtl(1.0+x*x)); }")
(ffi:clines "double acoshl(long double x) { return logl(x+sqrtl((x-1)*(x+1))); }")