@@ -5150,10 +5150,10 @@ real_round (REAL_VALUE_TYPE *r, format_h
real_convert (r, fmt, r);
}
-/* Return true including 0 if integer part of R is even, else return
+/* Return true (including 0) if integer part of R is even, else return
false. The function is not valid for rvc_inf and rvc_nan classes. */
-bool
+static bool
is_even (REAL_VALUE_TYPE *r)
{
gcc_assert (r->cl != rvc_inf);
@@ -5184,16 +5184,12 @@ is_even (REAL_VALUE_TYPE *r)
}
/* Return true if R is halfway between two integers, else return
- false. The function is not valid for rvc_inf and rvc_nan classes. */
+ false. */
-bool
+static bool
is_halfway_below (const REAL_VALUE_TYPE *r)
{
- gcc_assert (r->cl != rvc_inf);
- gcc_assert (r->cl != rvc_nan);
- int i;
-
- if (r->cl == rvc_zero)
+ if (r->cl != rvc_normal)
return false;
/* For numbers (-0.5,0) and (0,0.5). */
@@ -5205,13 +5201,13 @@ is_halfway_below (const REAL_VALUE_TYPE
unsigned int n = SIGNIFICAND_BITS - REAL_EXP (r) - 1;
int w = n / HOST_BITS_PER_LONG;
- for (i = 0; i < w; ++i)
+ for (int i = 0; i < w; ++i)
if (r->sig[i] != 0)
return false;
- unsigned long num = ((unsigned long)1 << (n % HOST_BITS_PER_LONG));
+ unsigned long num = 1UL << (n % HOST_BITS_PER_LONG);
- if (((r->sig[w] & num) != 0) && ((r->sig[w] & (num-1)) == 0))
+ if ((r->sig[w] & num) != 0 && (r->sig[w] & (num - 1)) == 0)
return true;
}
return false;
@@ -18,6 +18,13 @@ main (void)
TEST(roundeven, -1.5, -2);
TEST(roundeven, 3.499, 3);
TEST(roundeven, 3.501, 4);
+ TEST(roundeven, __DBL_MAX__, __DBL_MAX__);
+ TEST(roundeven, -__DBL_MAX__, -__DBL_MAX__);
+ TEST(roundeven, __builtin_inf (), __builtin_inf ());
+ TEST(roundeven, -__builtin_inf (), -__builtin_inf ());
+
+ if (!__builtin_isnan (__builtin_roundeven (__builtin_nan (""))))
+ link_error (__LINE__);
if (__builtin_copysign (1, __builtin_roundeven (-0.5)) != -1)
link_error (__LINE__);
@@ -31,6 +38,5 @@ main (void)
link_error (__LINE__);
if (__builtin_copysign (-1, __builtin_roundeven (0.25)) != 1)
link_error (__LINE__);
- return 0;
+ return 0;
}
-