summaryrefslogtreecommitdiff
path: root/math/s_csinl.c
diff options
context:
space:
mode:
authorThomas Schwinge <thomas@codesourcery.com>2013-05-26 16:34:06 +0200
committerThomas Schwinge <thomas@codesourcery.com>2013-05-26 16:34:06 +0200
commitf0f440a6f2e5b88e9f4114110d37689c6148e13d (patch)
tree70cde5327dcfb101349a0ec50a7d13b4431d7f6e /math/s_csinl.c
parentde1463d3e4657cf44779185870cdf5a22ee1e415 (diff)
parente631e5064e2efc594149a07e726ed086f2d8b84d (diff)
Merge commit 'refs/top-bases/t/hurdsig-global-dispositions-versions' into t/hurdsig-global-dispositions-versions
Diffstat (limited to 'math/s_csinl.c')
-rw-r--r--math/s_csinl.c13
1 files changed, 13 insertions, 0 deletions
diff --git a/math/s_csinl.c b/math/s_csinl.c
index 6b3c1ea2f1..4d6ce3db35 100644
--- a/math/s_csinl.c
+++ b/math/s_csinl.c
@@ -88,6 +88,19 @@ __csinl (__complex__ long double x)
if (negate)
__real__ retval = -__real__ retval;
+
+ 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
{