From 06696f40afe58a231e2531c8bf6d9f0dadb92e51 Mon Sep 17 00:00:00 2001 From: Jakob Kaivo Date: Sun, 3 Mar 2019 21:25:50 -0500 Subject: outline details from C18 annex F --- src/math/acosh.c | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'src/math/acosh.c') diff --git a/src/math/acosh.c b/src/math/acosh.c index aeb15816..f557c875 100644 --- a/src/math/acosh.c +++ b/src/math/acosh.c @@ -1,9 +1,23 @@ # define TGSOURCE "acosh.c" #include "_tgmath.h" #include +#include "fenv.h" TYPE TGFN(acosh)(TYPE x) { + if (x == 1.0) { + return 0.0; + } + + if (x < 1.0) { + feraiseexcept(FE_INVALID); + return NAN; + } + + if (fpclassify(x) == FP_INFINITE && !signbit(x)) { + return x; + } + return x; } -- cgit v1.2.1