diff options
| author | Kai Tietz <ktietz@redhat.com> | 2011-05-18 10:40:50 +0200 |
|---|---|---|
| committer | Kai Tietz <ktietz@gcc.gnu.org> | 2011-05-18 10:40:50 +0200 |
| commit | bf6490b56fc40295607429331a49de4c4ac46371 (patch) | |
| tree | ee423d169b12d834bb64ac98fd4061ef9ab9c20e /gcc/ada/gcc-interface/trans.c | |
| parent | 26a8964cbdfa508d1874b1915f0f56ae62a34b3a (diff) | |
| download | gcc-bf6490b56fc40295607429331a49de4c4ac46371.zip gcc-bf6490b56fc40295607429331a49de4c4ac46371.tar.gz gcc-bf6490b56fc40295607429331a49de4c4ac46371.tar.bz2 | |
trans.c (Exception_Handler_to_gnu_sjlj): Use boolean_false_node instead of integer_zero_node.
2011-05-18 Kai Tietz <ktietz@redhat.com>
* gcc-interface/trans.c (Exception_Handler_to_gnu_sjlj): Use
boolean_false_node instead of integer_zero_node.
(convert_with_check): Likewise.
* gcc-interface/decl.c (choices_to_gnu): Likewise.
From-SVN: r173846
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 6b13235..5f08877 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -3563,7 +3563,7 @@ Exception_Handler_to_gnu_sjlj (Node_Id gnat_node) an "if" statement to select the proper exceptions. For "Others", exclude exceptions where Handled_By_Others is nonzero unless the All_Others flag is set. For "Non-ada", accept an exception if "Lang" is 'V'. */ - tree gnu_choice = integer_zero_node; + tree gnu_choice = boolean_false_node; tree gnu_body = build_stmt_group (Statements (gnat_node), false); Node_Id gnat_temp; @@ -3575,7 +3575,7 @@ Exception_Handler_to_gnu_sjlj (Node_Id gnat_node) if (Nkind (gnat_temp) == N_Others_Choice) { if (All_Others (gnat_temp)) - this_choice = integer_one_node; + this_choice = boolean_true_node; else this_choice = build_binary_op @@ -7101,7 +7101,7 @@ convert_with_check (Entity_Id gnat_type, tree gnu_expr, bool overflowp, { /* Ensure GNU_EXPR only gets evaluated once. */ tree gnu_input = gnat_protect_expr (gnu_result); - tree gnu_cond = integer_zero_node; + tree gnu_cond = boolean_false_node; tree gnu_in_lb = TYPE_MIN_VALUE (gnu_in_basetype); tree gnu_in_ub = TYPE_MAX_VALUE (gnu_in_basetype); tree gnu_out_lb = TYPE_MIN_VALUE (gnu_base_type); |