diff options
| author | Jakob Kaivo <jkk@ung.org> | 2019-03-03 21:25:50 -0500 |
|---|---|---|
| committer | Jakob Kaivo <jkk@ung.org> | 2019-03-03 21:25:50 -0500 |
| commit | 06696f40afe58a231e2531c8bf6d9f0dadb92e51 (patch) | |
| tree | b146422c6326ffe3debf3163f0941d8dda0be105 /src/math/atanh.c | |
| parent | f20eeea657d62f2ef905627ca3a9094d33af7d40 (diff) | |
outline details from C18 annex F
Diffstat (limited to 'src/math/atanh.c')
| -rw-r--r-- | src/math/atanh.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/math/atanh.c b/src/math/atanh.c index eef1cfc6..bfd4e57b 100644 --- a/src/math/atanh.c +++ b/src/math/atanh.c @@ -1,9 +1,24 @@ # define TGSOURCE "atanh.c" #include "_tgmath.h" #include <math.h> +#include "fenv.h" TYPE TGFN(atanh)(TYPE x) { + if (fpclassify(x) == FP_ZERO) { + return x; + } + + if (TGFN(fabs)(x) == 1.0) { + feraiseexcept(FE_DIVBYZERO); + return copysign(INFINITY, x); + } + + if (TGFN(fabs)(x) > 1.0) { + feraiseexcept(FE_INVALID); + return NAN; + } + return x; } |