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

trans.c (call_to_gnu): Use the Sloc of the call for back-copy statements in lieu of that of the actual.

Browse Source 
* gcc-interface/trans.c (call_to_gnu): Use the Sloc of the call
	for back-copy statements in lieu of that of the actual.

From-SVN: r139161
This commit is contained in:
Eric Botcazou 2008-08-16 20:15:08 +00:00 committed by Eric Botcazou
parent 12f89f6c60
commit e650b83a5d
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2008-08-16 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/trans.c (call_to_gnu): Use the Sloc of the call
for back-copy statements in lieu of that of the actual.
2008-08-16 Eric Botcazou <ebotcazou@adacore.com>
PR ada/20548

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

@ -2249,7 +2249,7 @@ call_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, tree gnu_target)
{
gnu_temp = build_binary_op (MODIFY_EXPR, NULL_TREE, gnu_copy,
gnu_name);
set_expr_location_from_node (gnu_temp, gnat_actual);
set_expr_location_from_node (gnu_temp, gnat_node);
append_to_statement_list (gnu_temp, &gnu_after_list);
}
}
@ -2601,7 +2601,7 @@ call_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, tree gnu_target)
gnu_result = build_binary_op (MODIFY_EXPR, NULL_TREE,
gnu_actual, gnu_result);
set_expr_location_from_node (gnu_result, gnat_actual);
set_expr_location_from_node (gnu_result, gnat_node);
append_to_statement_list (gnu_result, &gnu_before_list);
scalar_return_list = TREE_CHAIN (scalar_return_list);
gnu_name_list = TREE_CHAIN (gnu_name_list);