From e650b83a5d644b4be976d157d890861ef219674c Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sat, 16 Aug 2008 20:15:08 +0000 Subject: [PATCH] trans.c (call_to_gnu): Use the Sloc of the call for back-copy statements in lieu of that of the actual. * 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/trans.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e7da3466e72..a5169b7a359 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2008-08-16 Eric Botcazou + + * 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 PR ada/20548 diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 97ff3bd2269..db63baae030 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -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);