3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
4 long double coshl(long double x
)
8 #elif LDBL_MANT_DIG == 64 && LDBL_MAX_EXP == 16384
9 long double coshl(long double x
)
11 union ldshape u
= {x
};
12 unsigned ex
= u
.i
.se
& 0x7fff;
22 if (ex
< 0x3fff-1 || (ex
== 0x3fff-1 && w
< 0xb17217f7)) {
24 FORCE_EVAL(x
+ 0x1p
120f
);
28 return 1 + t
*t
/(2*(1+t
));
31 /* |x| < log(LDBL_MAX) */
32 if (ex
< 0x3fff+13 || (ex
== 0x3fff+13 && w
< 0xb17217f7)) {
37 /* |x| > log(LDBL_MAX) or nan */
41 #elif LDBL_MANT_DIG == 113 && LDBL_MAX_EXP == 16384
42 // TODO: broken implementation to make things compile
43 long double coshl(long double x
)