summaryrefslogtreecommitdiff
path: root/math/s_cexpl.c
diff options
context:
space:
mode:
Diffstat (limited to 'math/s_cexpl.c')
-rw-r--r--math/s_cexpl.c13
1 files changed, 1 insertions, 12 deletions
diff --git a/math/s_cexpl.c b/math/s_cexpl.c
index e2e703f8fd..264a5742bc 100644
--- a/math/s_cexpl.c
+++ b/math/s_cexpl.c
@@ -74,18 +74,7 @@ __cexpl (__complex__ long double x)
__real__ retval = exp_val * cosix;
__imag__ retval = exp_val * 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;
- }
+ math_check_force_underflow_complex (retval);
}
else
{