diff options
author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-10 12:29:16 +0000 |
---|---|---|
committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-10 12:29:16 +0000 |
commit | 01dc0a34140ce0ef9f47c8bebeb4524429c3ef1a (patch) | |
tree | 7b667576acbb4ba6e0ff8660cedd3aa3f31097b1 | |
parent | 302d28128473ecf820b888d11b774bb6cd208646 (diff) | |
download | gcc-01dc0a34140ce0ef9f47c8bebeb4524429c3ef1a.tar.gz |
* gcc-interface/trans.c (gnat_to_gnu) <N_Not_In>: Use
invert_truthvalue_loc instead of invert_truthvalue.
* gcc-interface/utils2.c (build_binary_op) <NE_EXPR>: Likewise.
(build_unary_op) <TRUTH_NOT_EXPR>: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165253 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
-rw-r--r-- | gcc/ada/gcc-interface/trans.c | 3 | ||||
-rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 4 |
3 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 7f6d18e8efe..0b1f3587f57 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,12 @@ 2010-10-10 Eric Botcazou <ebotcazou@adacore.com> + * gcc-interface/trans.c (gnat_to_gnu) <N_Not_In>: Use + invert_truthvalue_loc instead of invert_truthvalue. + * utils2.c (build_binary_op) <NE_EXPR>: Likewise. + (build_unary_op) <TRUTH_NOT_EXPR>: Likewise. + +2010-10-10 Eric Botcazou <ebotcazou@adacore.com> + * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Subprogram_Type>: Add assertion on the types of the parameters. Use KIND local variable. <E_Incomplete_Type>: Likewise. diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 36a246297c0..b644688b1e5 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -4496,7 +4496,8 @@ gnat_to_gnu (Node_Id gnat_node) } if (kind == N_Not_In) - gnu_result = invert_truthvalue (gnu_result); + gnu_result + = invert_truthvalue_loc (EXPR_LOCATION (gnu_result), gnu_result); } break; diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index c40223f8e36..8419170cdbb 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -791,7 +791,7 @@ build_binary_op (enum tree_code op_code, tree result_type, result = compare_arrays (result_type, left_operand, right_operand); if (op_code == NE_EXPR) - result = invert_truthvalue (result); + result = invert_truthvalue_loc (EXPR_LOCATION (result), result); else gcc_assert (op_code == EQ_EXPR); @@ -1018,7 +1018,7 @@ build_unary_op (enum tree_code op_code, tree result_type, tree operand) #ifdef ENABLE_CHECKING gcc_assert (TREE_CODE (get_base_type (result_type)) == BOOLEAN_TYPE); #endif - result = invert_truthvalue (operand); + result = invert_truthvalue_loc (EXPR_LOCATION (operand), operand); break; case ATTR_ADDR_EXPR: |