- scalb{,f,l} depend on UCLIBC_SUSV3_LEGACY

[uclinux-h8/uClibc.git] / libm / e_atanh.c

diff --git a/libm/e_atanh.c b/libm/e_atanh.c
index 673ef0c..5cf4da3 100644 (file)
--- 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)