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

MinGW32 does not have asinh/acosh/atanh

Browse source
This commit is contained in:
jjgarcia 2004-06-11 15:10:45 +00:00
parent 32ae214c26
commit d47c45ee6c
2 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/main.d
View file

@ -386,6 +386,9 @@ cl_boot(int argc, char **argv)
#ifdef MSDOS
ADD_FEATURE("MS-DOS");
#endif
#ifdef mingw32
ADD_FEATURE("MINGW32");
#endif
#ifdef ECL_CMU_FORMAT
ADD_FEATURE("CMU-FORMAT");
#endif

12
src/lsp/numlib.lsp
View file

@ -158,12 +158,12 @@ Returns the arc cosine of NUMBER."
(defun asinh (x)
"Args: (number)
Returns the hyperbolic arc sine of NUMBER."
(if #+ecl-min t #-ecl-min (complexp x)
(if #+(or ecl-min mingw32) t #-(or ecl-min mingw32) (complexp x)
(let* ((iz (complex (- (imagpart x)) (realpart x)))
(result (complex-asin iz)))
(complex (imagpart result)
(- (realpart result))))
#-ecl-min
#-(or ecl-min mingw32)
(float (ffi:c-inline (x) (:double) :double "asinh(#0)" :one-liner t)
(float x))))
@ -171,9 +171,9 @@ Returns the hyperbolic arc sine of NUMBER."
(defun acosh (x)
"Args: (number)
Returns the hyperbolic arc cosine of NUMBER."
(if #+ecl-min t #-ecl-min (complexp x)
(if #+(or ecl-min mingw32) t #-(or ecl-min mingw32) (complexp x)
(complex-acos x)
#-ecl-min
#-(or ecl-min mingw32)
(let* ((x (float x))
(xr (float x 1d0)))
(declare (double-float xr))
@ -193,9 +193,9 @@ Returns the hyperbolic arc cosine of NUMBER."
(defun atanh (x)
"Args: (number)
Returns the hyperbolic arc tangent of NUMBER."
(if #+ecl-min t #-ecl-min (complexp x)
(if #+(or ecl-min mingw32) t #-(or ecl-min mingw32) (complexp x)
(complex-atanh x)
#-ecl-min
#-(or ecl-min mingw32)
(let* ((x (float x))
(xr (float x 1d0)))
(declare (double-float xr))