summaryrefslogtreecommitdiff
path: root/libm/e_atanh.c
diff options
context:
space:
mode:
Diffstat (limited to 'libm/e_atanh.c')
-rw-r--r--libm/e_atanh.c23
1 files changed, 23 insertions, 0 deletions
diff --git a/libm/e_atanh.c b/libm/e_atanh.c
index 673ef0cd6..5cf4da3b8 100644
--- a/libm/e_atanh.c
+++ b/libm/e_atanh.c
@@ -54,3 +54,26 @@ double attribute_hidden __ieee754_atanh(double x)
t = 0.5*log1p((x+x)/(one-x));
if(hx>=0) return t; else return -t;
}
+
+/*
+ * wrapper atanh(x)
+ */
+#ifndef _IEEE_LIBM
+double atanh(double x)
+{
+ double z, y;
+ z = __ieee754_atanh(x);
+ if (_LIB_VERSION == _IEEE_ || isnan(x))
+ return z;
+ y = fabs(x);
+ if (y >= 1.0) {
+ if (y > 1.0)
+ return __kernel_standard(x, x, 30); /* atanh(|x|>1) */
+ return __kernel_standard(x, x, 31); /* atanh(|x|==1) */
+ }
+ return z;
+}
+#else
+strong_alias(__ieee754_atanh, atanh)
+#endif
+libm_hidden_def(atanh)