about summary refs log tree commit diff
path: root/math/s_cexp.c
diff options
context:
space:
mode:
Diffstat (limited to 'math/s_cexp.c')
-rw-r--r--math/s_cexp.c13
1 files changed, 1 insertions, 12 deletions
diff --git a/math/s_cexp.c b/math/s_cexp.c
index 06c5b63c7a..5cb42d1ec0 100644
--- a/math/s_cexp.c
+++ b/math/s_cexp.c
@@ -74,18 +74,7 @@ __cexp (__complex__ double x)
 	      __real__ retval = exp_val * cosix;
 	      __imag__ retval = exp_val * sinix;
 	    }
-	  if (fabs (__real__ retval) < DBL_MIN)
-	    {
-	      volatile double force_underflow
-		= __real__ retval * __real__ retval;
-	      (void) force_underflow;
-	    }
-	  if (fabs (__imag__ retval) < DBL_MIN)
-	    {
-	      volatile double force_underflow
-		= __imag__ retval * __imag__ retval;
-	      (void) force_underflow;
-	    }
+	  math_check_force_underflow_complex (retval);
 	}
       else
 	{