3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
4 long double tanhl(long double x
)
8 #elif LDBL_MANT_DIG == 64 && LDBL_MAX_EXP == 16384
9 long double tanhl(long double x
)
11 union ldshape u
= {x
};
12 unsigned ex
= u
.i
.se
& 0x7fff;
13 unsigned sign
= u
.i
.se
& 0x8000;
22 if (ex
> 0x3ffe || (ex
== 0x3ffe && w
> 0x8c9f53d5)) {
23 /* |x| > log(3)/2 ~= 0.5493 or nan */
26 t
= 1 + 0/(x
+ 0x1p
-120f
);
31 } else if (ex
> 0x3ffd || (ex
== 0x3ffd && w
> 0x82c577d4)) {
32 /* |x| > log(5/3)/2 ~= 0.2554 */
42 #elif LDBL_MANT_DIG == 113 && LDBL_MAX_EXP == 16384
43 // TODO: broken implementation to make things compile
44 long double tanhl(long double x
)