summaryrefslogtreecommitdiff
path: root/sysdeps/ieee754/ldbl-128/s_tanhl.c
diff options
context:
space:
mode:
Diffstat (limited to 'sysdeps/ieee754/ldbl-128/s_tanhl.c')
-rw-r--r--sysdeps/ieee754/ldbl-128/s_tanhl.c14
1 files changed, 8 insertions, 6 deletions
diff --git a/sysdeps/ieee754/ldbl-128/s_tanhl.c b/sysdeps/ieee754/ldbl-128/s_tanhl.c
index f7a1d20f79..fc309dab0a 100644
--- a/sysdeps/ieee754/ldbl-128/s_tanhl.c
+++ b/sysdeps/ieee754/ldbl-128/s_tanhl.c
@@ -44,14 +44,16 @@
#include <float.h>
#include <math.h>
#include <math_private.h>
+#include <math-underflow.h>
+#include <libm-alias-ldouble.h>
-static const long double one = 1.0, two = 2.0, tiny = 1.0e-4900L;
+static const _Float128 one = 1.0, two = 2.0, tiny = L(1.0e-4900);
-long double
-__tanhl (long double x)
+_Float128
+__tanhl (_Float128 x)
{
- long double t, z;
- u_int32_t jx, ix;
+ _Float128 t, z;
+ uint32_t jx, ix;
ieee854_long_double_shape_type u;
/* Words of |x|. */
@@ -97,4 +99,4 @@ __tanhl (long double x)
}
return (jx & 0x80000000) ? -z : z;
}
-weak_alias (__tanhl, tanhl)
+libm_alias_ldouble (__tanh, tanh)