(truthvalue_conversion): Handle COMPLEX_EXPR.

From-SVN: r3638

diff --git a/gcc/c-common.c b/gcc/c-common.c
index 85ef0480ba4cadfce35f2274ddab29b176480364..8dfc1e725d419c38d3149f2ef0314d16ff1269f9 100644 (file)
--- a/gcc/c-common.c
+++ b/gcc/c-common.c
@@ -373,7 +373,13 @@ convert_and_check (type, expr)
   tree t = convert (type, expr);
   if (TREE_CODE (t) == INTEGER_CST)
     {
-      if (TREE_CONSTANT_OVERFLOW (t))
+      if (TREE_UNSIGNED (TREE_TYPE (expr))
+         && !TREE_UNSIGNED (type)
+         && TREE_CODE (TREE_TYPE (expr)) == INTEGER_TYPE
+         && TYPE_PRECISION (type) == TYPE_PRECISION (TREE_TYPE (expr)))
+       /* No warning for converting 0x80000000 to int.  */
+       TREE_CONSTANT_OVERFLOW (t) = 0;
+      else if (TREE_CONSTANT_OVERFLOW (t))
        {
          pedwarn ("overflow in implicit constant conversion");
          TREE_CONSTANT_OVERFLOW (t) = 0;
@@ -829,7 +835,8 @@ shorten_compare (op0_ptr, op1_ptr, restype_ptr, rescode_ptr)
         TYPE is already properly set.  */
     }
   else if (real1 && real2
-          && TYPE_PRECISION (TREE_TYPE (primop0)) == TYPE_PRECISION (TREE_TYPE (primop1)))
+          && (TYPE_PRECISION (TREE_TYPE (primop0))
+              == TYPE_PRECISION (TREE_TYPE (primop1))))
     type = TREE_TYPE (primop0);
 
   /* If args' natural types are both narrower than nominal type
@@ -959,6 +966,12 @@ truthvalue_conversion (expr)
       else
        return integer_one_node;
 
+    case COMPLEX_EXPR:
+      return build_binary_op (TRUTH_ANDIF_EXPR,
+                             truthvalue_conversion (TREE_REALPART (expr)),
+                             truthvalue_conversion (TREE_IMAGPART (expr)),
+                             0);
+
     case NEGATE_EXPR:
     case ABS_EXPR:
     case FLOAT_EXPR: