Commit 1f6b0ce0 by Kaveh R. Ghazi Committed by Kaveh Ghazi

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
parent 98e48780
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> Sun Sep 20 11:02:55 1998 Robert Lipe <robertl@dgii.com>
* except.c: Include system.h. * except.c: Include system.h.
......
...@@ -895,9 +895,9 @@ extern tree build_chill_compound_expr PROTO((tree)); ...@@ -895,9 +895,9 @@ extern tree build_chill_compound_expr PROTO((tree));
extern tree build_chill_descr PROTO((tree)); extern tree build_chill_descr PROTO((tree));
extern void build_chill_descr_type PROTO((void)); extern void build_chill_descr_type PROTO((void));
extern void build_chill_inttime_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)); 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)); tree, tree));
extern tree check_case_selector PROTO((tree)); extern tree check_case_selector PROTO((tree));
extern tree check_case_selector_list PROTO((tree)); extern tree check_case_selector_list PROTO((tree));
......
...@@ -3125,7 +3125,7 @@ fold_set_expr (code, op0, op1) ...@@ -3125,7 +3125,7 @@ fold_set_expr (code, op0, op1)
*/ */
static tree static tree
build_compare_set_expr (code, op0, op1) build_compare_set_expr (code, op0, op1)
enum chill_tree_code code; enum tree_code code;
tree op0, op1; tree op0, op1;
{ {
tree result_type = NULL_TREE; tree result_type = NULL_TREE;
...@@ -3380,7 +3380,7 @@ build_concat_expr (op0, op1) ...@@ -3380,7 +3380,7 @@ build_concat_expr (op0, op1)
*/ */
static tree static tree
build_compare_string_expr (code, op0, op1) build_compare_string_expr (code, op0, op1)
enum chill_tree_code code; enum tree_code code;
tree op0, op1; tree op0, op1;
{ {
if (op0 == NULL_TREE || TREE_CODE (op0) == ERROR_MARK) if (op0 == NULL_TREE || TREE_CODE (op0) == ERROR_MARK)
...@@ -3539,6 +3539,8 @@ compare_int_csts (op, val1, val2) ...@@ -3539,6 +3539,8 @@ compare_int_csts (op, val1, val2)
if (op == NE_EXPR) if (op == NE_EXPR)
result = !result; result = !result;
break; break;
default:
abort();
} }
return result; return result;
} }
...@@ -3549,7 +3551,7 @@ compare_int_csts (op, val1, val2) ...@@ -3549,7 +3551,7 @@ compare_int_csts (op, val1, val2)
tree tree
build_compare_discrete_expr (op, val1, val2) build_compare_discrete_expr (op, val1, val2)
enum chill_tree_code op; enum tree_code op;
tree val1, val2; tree val1, val2;
{ {
tree type1 = TREE_TYPE (val1); tree type1 = TREE_TYPE (val1);
...@@ -3617,6 +3619,8 @@ build_compare_discrete_expr (op, val1, val2) ...@@ -3617,6 +3619,8 @@ build_compare_discrete_expr (op, val1, val2)
case NE_EXPR: case NE_EXPR:
tmp = build_compare_expr (EQ_EXPR, val1, val2); tmp = build_compare_expr (EQ_EXPR, val1, val2);
return build_chill_unary_op (TRUTH_NOT_EXPR, tmp); return build_chill_unary_op (TRUTH_NOT_EXPR, tmp);
default:
abort();
} }
} }
if (TYPE_PRECISION (type1) > TYPE_PRECISION (type2)) if (TYPE_PRECISION (type1) > TYPE_PRECISION (type2))
...@@ -3628,7 +3632,7 @@ build_compare_discrete_expr (op, val1, val2) ...@@ -3628,7 +3632,7 @@ build_compare_discrete_expr (op, val1, val2)
tree tree
build_compare_expr (op, val1, val2) build_compare_expr (op, val1, val2)
enum chill_tree_code op; enum tree_code op;
tree val1, val2; tree val1, val2;
{ {
tree tmp; tree tmp;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment