* tree-cfg.c (verify_expr): Use CHECK_OK in binary case.
authorRichard Kenner <kenner@vlsi1.ultra.nyu.edu>
Mon, 5 Jul 2004 14:25:14 +0000 (14:25 +0000)
committerRichard Kenner <kenner@gcc.gnu.org>
Mon, 5 Jul 2004 14:25:14 +0000 (10:25 -0400)
From-SVN: r84114

gcc/ChangeLog
gcc/tree-cfg.c

index c2dd100ed31869fde9f8e9ab5fbee5219dbb5f86..5ea730178f11419e066acd56982505dace2560fa 100644 (file)
@@ -1,5 +1,7 @@
 2004-07-05  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
+       * tree-cfg.c (verify_expr): Use CHECK_OK in binary case.
+
        * function.c, langhooks-def.h, langhooks.h: Move max_size hook
        to type hooks; remove bogus PARAMS.
 
index 940df86bbac5fe5d1644008d98f8bdf2713ff5e3..4bf00dff375a2f44770bbfb96479ae7975b13665 100644 (file)
@@ -3151,7 +3151,9 @@ verify_expr (tree *tp, int *walk_subtrees, void *data ATTRIBUTE_UNUSED)
   if (TYPE_P (t))
     *walk_subtrees = 0;
   
-  /* Check operand N for being valid GIMPLE and give error MSG if not.  */
+  /* Check operand N for being valid GIMPLE and give error MSG if not. 
+     We check for constants explicitly since they are not considered
+     gimple invariants if they overflowed.  */
 #define CHECK_OP(N, MSG) \
   do { if (TREE_CODE_CLASS (TREE_CODE (TREE_OPERAND (t, N))) != 'c'    \
          && !is_gimple_val (TREE_OPERAND (t, N)))                      \
@@ -3300,24 +3302,8 @@ verify_expr (tree *tp, int *walk_subtrees, void *data ATTRIBUTE_UNUSED)
     case BIT_IOR_EXPR:
     case BIT_XOR_EXPR:
     case BIT_AND_EXPR:
-      x = TREE_OPERAND (t, 0);
-      /* We check for constants explicitly since they are not considered
-        gimple invariants if they overflowed.  */
-      if (TREE_CODE_CLASS (TREE_CODE (x)) != 'c'
-         && !is_gimple_val (x))
-       {
-         error ("Invalid operand to binary operator");
-         return x;
-       }
-      x = TREE_OPERAND (t, 1);
-      /* We check for constants explicitly since they are not considered
-        gimple invariants if they overflowed.  */
-      if (TREE_CODE_CLASS (TREE_CODE (x)) != 'c'
-         && !is_gimple_val (x))
-       {
-         error ("Invalid operand to binary operator");
-         return x;
-       }
+      CHECK_OP (0, "Invalid operand to binary operator");
+      CHECK_OP (1, "Invalid operand to binary operator");
       break;
 
     default: