From 0ac229c819afd15ba323838ba72d0a409f16acc4 Mon Sep 17 00:00:00 2001 From: Adhemerval Zanella Date: Thu, 26 Apr 2012 11:18:11 -0500 Subject: Fix ctan, ctanh overflow for ldbl-128ibm (bug 11521). --- sysdeps/ieee754/ldbl-128ibm/e_sinhl.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'sysdeps/ieee754/ldbl-128ibm/e_sinhl.c') diff --git a/sysdeps/ieee754/ldbl-128ibm/e_sinhl.c b/sysdeps/ieee754/ldbl-128ibm/e_sinhl.c index 4bae85a5a4..4e8481c419 100644 --- a/sysdeps/ieee754/ldbl-128ibm/e_sinhl.c +++ b/sysdeps/ieee754/ldbl-128ibm/e_sinhl.c @@ -54,7 +54,8 @@ __ieee754_sinhl(long double x) if(shuge+x>one) return x;/* sinhl(tiny) = tiny with inexact */ t = __expm1l(fabsl(x)); if(ix<0x3ff0000000000000LL) return h*(2.0*t-t*t/(t+one)); - return h*(t+t/(t+one)); + w = t/(t+one); + return h*(t+w); } /* |x| in [40, log(maxdouble)] return 0.5*exp(|x|) */ -- cgit 1.4.1