diff options
| -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 7f6d18e..0b1f358 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 36a2462..b644688 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 c40223f..8419170 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: |