ch-tree.h (build_compare_expr): Change first argument's type from `enum chill_tree_co...

        * ch-tree.h (build_compare_expr): Change first argument's type
        from `enum chill_tree_code' to `enum tree_code'.
        (build_compare_discrete_expr): Likewise.
        * expr.c (build_compare_set_expr): Likewise.
        (build_compare_string_expr): Likewise.
        (build_compare_expr): Likewise.
        (build_compare_discrete_expr): Likewise.  Also add default case in
        switch statement.
        (compare_int_csts): Add default case in switch statement.

From-SVN: r22643

diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index 7370b7565f17aab31c9d2ff63c1352d53a896de5..994abe24312bd91caaa057155408bc7f70450c14 100644 (file)
--- a/gcc/ch/ChangeLog
+++ b/gcc/ch/ChangeLog
@@ -1,3 +1,16 @@
+Tue Sep 29 21:37:33 1998  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * ch-tree.h (build_compare_expr): Change first argument's type
+       from `enum chill_tree_code' to `enum tree_code'.
+       (build_compare_discrete_expr): Likewise.
+
+       * expr.c (build_compare_set_expr): Likewise.
+       (build_compare_string_expr): Likewise.
+       (build_compare_expr): Likewise.
+       (build_compare_discrete_expr): Likewise.  Also add default case in
+       switch statement.
+       (compare_int_csts): Add default case in switch statement.
+
 Sun Sep 20 11:02:55 1998  Robert Lipe  <robertl@dgii.com>
 
        * except.c: Include system.h.

diff --git a/gcc/ch/ch-tree.h b/gcc/ch/ch-tree.h
index cb3fd3d659373f87e68740f79e223eb11a900b5b..ae43dd924ac927c6556ac6c9a0f15968b721c1e4 100644 (file)
--- a/gcc/ch/ch-tree.h
+++ b/gcc/ch/ch-tree.h
@@ -895,9 +895,9 @@ extern tree build_chill_compound_expr           PROTO((tree));
 extern tree build_chill_descr                   PROTO((tree));
 extern void build_chill_descr_type              PROTO((void));
 extern void build_chill_inttime_type            PROTO((void));
-extern tree build_compare_expr                 PROTO((enum chill_tree_code,
+extern tree build_compare_expr                 PROTO((enum tree_code,
                                                       tree, tree));
-extern tree build_compare_discrete_expr                PROTO((enum chill_tree_code,
+extern tree build_compare_discrete_expr                PROTO((enum tree_code,
                                                       tree, tree));
 extern tree check_case_selector                 PROTO((tree));
 extern tree check_case_selector_list            PROTO((tree));

diff --git a/gcc/ch/expr.c b/gcc/ch/expr.c
index 3326eead38fa5ba6f2322d063a3fb6a365cffa2a..acc1bc7ec04398106b933f674b0c2cf0b60ca434 100644 (file)
--- a/gcc/ch/expr.c
+++ b/gcc/ch/expr.c
@@ -3125,7 +3125,7 @@ fold_set_expr (code, op0, op1)
  */
 static tree
 build_compare_set_expr (code, op0, op1)
-     enum chill_tree_code code;
+     enum tree_code code;
      tree op0, op1;
 {
   tree result_type = NULL_TREE;
@@ -3380,7 +3380,7 @@ build_concat_expr (op0, op1)
  */
 static tree
 build_compare_string_expr (code, op0, op1)
-     enum chill_tree_code code;
+     enum tree_code code;
      tree op0, op1;
 {
   if (op0 == NULL_TREE || TREE_CODE (op0) == ERROR_MARK)
@@ -3539,6 +3539,8 @@ compare_int_csts (op, val1, val2)
       if (op == NE_EXPR)
        result = !result;
       break;
+    default:
+      abort();
     }
   return result;
 }
@@ -3549,7 +3551,7 @@ compare_int_csts (op, val1, val2)
 
 tree
 build_compare_discrete_expr (op, val1, val2)
-     enum chill_tree_code op;
+     enum tree_code op;
      tree val1, val2;
 {
   tree type1 = TREE_TYPE (val1);
@@ -3617,6 +3619,8 @@ build_compare_discrete_expr (op, val1, val2)
        case NE_EXPR:
          tmp = build_compare_expr (EQ_EXPR, val1, val2);
          return build_chill_unary_op (TRUTH_NOT_EXPR, tmp);
+       default:
+         abort();
        }
     }
   if (TYPE_PRECISION (type1) > TYPE_PRECISION (type2))
@@ -3628,7 +3632,7 @@ build_compare_discrete_expr (op, val1, val2)
 
 tree
 build_compare_expr (op, val1, val2)
-     enum chill_tree_code op;
+     enum tree_code op;
      tree val1, val2;
 {
   tree tmp;