about summary refs log tree commit diff
path: root/math/s_ccoshl.c
diff options
context:
space:
mode:
authorJoseph Myers <joseph@codesourcery.com>2013-04-26 19:25:19 +0000
committerJoseph Myers <joseph@codesourcery.com>2013-04-26 19:25:19 +0000
commitf0302940e7c2acb587971e3c99dfbd00aa4e2134 (patch)
tree14ca5247684a4ca2ef2ea2f46c4d375cde6aa6b9 /math/s_ccoshl.c
parentaa630f590c9c7d070a7cdf3a2a88069ad6b63de9 (diff)
downloadglibc-f0302940e7c2acb587971e3c99dfbd00aa4e2134.tar.gz
glibc-f0302940e7c2acb587971e3c99dfbd00aa4e2134.tar.xz
glibc-f0302940e7c2acb587971e3c99dfbd00aa4e2134.zip
Fix csin, csinh, ccos, ccosh missing underflows (bug 15405).
Diffstat (limited to 'math/s_ccoshl.c')
-rw-r--r--math/s_ccoshl.c13
1 files changed, 13 insertions, 0 deletions
diff --git a/math/s_ccoshl.c b/math/s_ccoshl.c
index 4bbd31148f..18d3df0430 100644
--- a/math/s_ccoshl.c
+++ b/math/s_ccoshl.c
@@ -82,6 +82,19 @@ __ccoshl (__complex__ long double x)
 	      __real__ retval = __ieee754_coshl (__real__ x) * cosix;
 	      __imag__ retval = __ieee754_sinhl (__real__ x) * sinix;
 	    }
+
+	  if (fabsl (__real__ retval) < LDBL_MIN)
+	    {
+	      volatile long double force_underflow
+		= __real__ retval * __real__ retval;
+	      (void) force_underflow;
+	    }
+	  if (fabsl (__imag__ retval) < LDBL_MIN)
+	    {
+	      volatile long double force_underflow
+		= __imag__ retval * __imag__ retval;
+	      (void) force_underflow;
+	    }
 	}
       else
 	{