| OLD | NEW | 
| (Empty) |  | 
 |   1 #include "libm.h" | 
 |   2  | 
 |   3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 | 
 |   4 long double coshl(long double x) | 
 |   5 { | 
 |   6         return cosh(x); | 
 |   7 } | 
 |   8 #elif LDBL_MANT_DIG == 64 && LDBL_MAX_EXP == 16384 | 
 |   9 long double coshl(long double x) | 
 |  10 { | 
 |  11         union ldshape u = {x}; | 
 |  12         unsigned ex = u.i.se & 0x7fff; | 
 |  13         uint32_t w; | 
 |  14         long double t; | 
 |  15  | 
 |  16         /* |x| */ | 
 |  17         u.i.se = ex; | 
 |  18         x = u.f; | 
 |  19         w = u.i.m >> 32; | 
 |  20  | 
 |  21         /* |x| < log(2) */ | 
 |  22         if (ex < 0x3fff-1 || (ex == 0x3fff-1 && w < 0xb17217f7)) { | 
 |  23                 if (ex < 0x3fff-32) { | 
 |  24                         FORCE_EVAL(x + 0x1p120f); | 
 |  25                         return 1; | 
 |  26                 } | 
 |  27                 t = expm1l(x); | 
 |  28                 return 1 + t*t/(2*(1+t)); | 
 |  29         } | 
 |  30  | 
 |  31         /* |x| < log(LDBL_MAX) */ | 
 |  32         if (ex < 0x3fff+13 || (ex == 0x3fff+13 && w < 0xb17217f7)) { | 
 |  33                 t = expl(x); | 
 |  34                 return 0.5*(t + 1/t); | 
 |  35         } | 
 |  36  | 
 |  37         /* |x| > log(LDBL_MAX) or nan */ | 
 |  38         t = expl(0.5*x); | 
 |  39         return 0.5*t*t; | 
 |  40 } | 
 |  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) | 
 |  44 { | 
 |  45         return cosh(x); | 
 |  46 } | 
 |  47 #endif | 
| OLD | NEW |