summaryrefslogtreecommitdiff
path: root/src/math/atanh.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/math/atanh.c')
-rw-r--r--src/math/atanh.c15
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;
}