(expand_units): Remove decl of unused variable.

[pf3gnuchains/gcc-fork.git] / gcc / real.c

diff --git a/gcc/real.c b/gcc/real.c
index ea89ef8..16d9ebc 100644 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -824,19 +824,14 @@ target_isnan (x)
 
 
 /* Check for a negative REAL_VALUE_TYPE number.
- * this means strictly less than zero, not -0.
+ * This just checks the sign bit, so that -0 counts as negative.
  */
 
 int
 target_negative (x)
      REAL_VALUE_TYPE x;
 {
-  unsigned EMUSHORT e[NE];
-
-  GET_REAL (&x, e);
-  if (ecmp (e, ezero) == -1)
-    return (1);
-  return (0);
+  return ereal_isneg (x);
 }
 
 /* Expansion of REAL_VALUE_TRUNCATE.
@@ -882,8 +877,11 @@ real_value_truncate (mode, arg)
       r = etrunci (arg);
       return (r);
 
+    /* If an unsupported type was requested, presume that
+       the machine files know something useful to do with
+       the unmodified value.  */
     default:
-      abort ();
+      return (arg);
     }
   PUT_REAL (t, &r);
   return (r);