OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans.c (gnat_to_gnu): Use invert_truthvalue_loc instead of invert_truthvalue.

Browse Source 
* 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.

From-SVN: r165253
This commit is contained in:
Eric Botcazou 2010-10-10 12:29:16 +00:00 committed by Eric Botcazou
parent bdf057c6e2
commit 658a41acf0
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/ChangeLog
View File

@ -1,3 +1,10 @@
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

3
gcc/ada/gcc-interface/trans.c
View File

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

4
gcc/ada/gcc-interface/utils2.c
View File

@ -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: