diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-08-16 20:15:08 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-08-16 20:15:08 +0000 |
| commit | e650b83a5d644b4be976d157d890861ef219674c (patch) | |
| tree | 3819529548bad0747e2e3c0c77ae7ac81976571c /gcc/ada | |
| parent | 12f89f6c6097964b3d11c10337a19dfda2d7c45d (diff) | |
| download | gcc-e650b83a5d644b4be976d157d890861ef219674c.zip gcc-e650b83a5d644b4be976d157d890861ef219674c.tar.gz gcc-e650b83a5d644b4be976d157d890861ef219674c.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 e7da346..a5169b7 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 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 * gcc-interface/decl.c (gnat_to_gnu_entity): Use DECL_SIZE_UNIT in the setjmp test consistently. Adjust for new behavior of flag_stack_check. diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 97ff3bd..db63baa 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); |