Fix incorrect SLOC on instruction

This puts the missing SLOC on a statement generated by a return.

gcc/ada/
	* gcc-interface/trans.c (gnat_to_gnu) <N_Simple_Return_Statement>:
	Put a SLOC on the assignment from the return value to the return
	object in the copy-in/copy-out case.
This commit is contained in:
Eric Botcazou 2021-05-21 10:26:50 +02:00
parent e5bfda0204
commit b1cd7461ec

View File

@ -7624,8 +7624,10 @@ gnat_to_gnu (Node_Id gnat_node)
if (gnu_return_label_stack->last ())
{
if (gnu_ret_val)
add_stmt (build_binary_op (MODIFY_EXPR, NULL_TREE, gnu_ret_obj,
gnu_ret_val));
add_stmt_with_node (build_binary_op (MODIFY_EXPR,
NULL_TREE, gnu_ret_obj,
gnu_ret_val),
gnat_node);
gnu_result = build1 (GOTO_EXPR, void_type_node,
gnu_return_label_stack->last ());