diff options
Diffstat (limited to 'sysdeps/libm-ieee754/e_acoshl.c')
| -rw-r--r-- | sysdeps/libm-ieee754/e_acoshl.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/sysdeps/libm-ieee754/e_acoshl.c b/sysdeps/libm-ieee754/e_acoshl.c index 8af7c27aa7..7b7bea7054 100644 --- a/sysdeps/libm-ieee754/e_acoshl.c +++ b/sysdeps/libm-ieee754/e_acoshl.c @@ -52,17 +52,17 @@ ln2 = 6.931471805599453094287e-01L; /* 0x3FFE, 0xB17217F7, 0xD1CF79AC */ { long double t; u_int32_t se,i0,i1; - EXTRACT_LDOUBLE_WORDS(se,i0,i1,x); + GET_LDOUBLE_WORDS(se,i0,i1,x); if(se<0x3fff) { /* x < 1 */ return (x-x)/(x-x); - } else if(hx >=0x401b) { /* x > 2**28 */ - if(hx >=0x7fff) { /* x is inf of NaN */ + } else if(se >=0x401b) { /* x > 2**28 */ + if(se >=0x7fff) { /* x is inf of NaN */ return x+x; } else return __ieee754_logl(x)+ln2; /* acoshl(huge)=logl(2x) */ } else if(((se-0x3fff)|i0|i1)==0) { return 0.0; /* acosh(1) = 0 */ - } else if (hx > 0x4000) { /* 2**28 > x > 2 */ + } else if (se > 0x4000) { /* 2**28 > x > 2 */ t=x*x; return __ieee754_logl(2.0*x-one/(x+__ieee754_sqrtl(t-one))); } else { /* 1<x<2 */ |