diff options
Diffstat (limited to 'libc/sysdeps/ieee754/ldbl-96/e_atanhl.c')
| -rw-r--r-- | libc/sysdeps/ieee754/ldbl-96/e_atanhl.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libc/sysdeps/ieee754/ldbl-96/e_atanhl.c b/libc/sysdeps/ieee754/ldbl-96/e_atanhl.c index 5a2aebef3..0f3c7fb59 100644 --- a/libc/sysdeps/ieee754/ldbl-96/e_atanhl.c +++ b/libc/sysdeps/ieee754/ldbl-96/e_atanhl.c @@ -52,7 +52,10 @@ __ieee754_atanhl(long double x) return (x-x)/(x-x); if(ix==0x3fff) return x/zero; - if(ix<0x3fe3&&(huge+x)>zero) return x; /* x<2**-28 */ + if(ix<0x3fe3) { + math_force_eval(huge+x); + return x; /* x<2**-28 */ + } SET_LDOUBLE_EXP(x,ix); if(ix<0x3ffe) { /* x < 0.5 */ t = x+x; |