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

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

        * 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

gcc/ch/ChangeLog

+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.

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));

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;