From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1285) id 7FAFE3850867; Wed, 27 Sep 2023 08:28:21 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 7FAFE3850867 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1695803301; bh=/DMFXu9Q99+n2Hw9Bgl7x5MSMyKGV1r9EEidfqMxhoQ=; h=From:To:Subject:Date:From; b=N9HJrqgua+8ea7/n6juhmSDempjifUsXnc3VQigRl8KBQjNwpftvX4ikldNkx8h9c Y7HLttbrzOW8d0BeKw+bIb+qkYaZVGUWowb3dwuW1GjiJPsnuLZDUwfT0u/OH+YpaW VOPaI/M67CeUU2q80sVfsViKbvfZRNYaVaoB0UQQ= MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Eric Botcazou To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-7904] ada: Elide the copy in extended returns for nonlimited by-reference types X-Act-Checkin: gcc X-Git-Author: Eric Botcazou X-Git-Refname: refs/heads/releases/gcc-13 X-Git-Oldrev: 7b22fcd97ad770754b2e70e5f2c0cb2c32d16bdb X-Git-Newrev: 7657ee448e247b9be548408ca69f31b9f10cd646 Message-Id: <20230927082821.7FAFE3850867@sourceware.org> Date: Wed, 27 Sep 2023 08:28:21 +0000 (GMT) List-Id: https://gcc.gnu.org/g:7657ee448e247b9be548408ca69f31b9f10cd646 commit r13-7904-g7657ee448e247b9be548408ca69f31b9f10cd646 Author: Eric Botcazou Date: Wed Aug 23 15:11:57 2023 +0200 ada: Elide the copy in extended returns for nonlimited by-reference types gcc/ada/ * gcc-interface/trans.cc (gnat_to_gnu): Really test Storage_Pool on the simple return statement. Diff: --- gcc/ada/gcc-interface/trans.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/gcc-interface/trans.cc b/gcc/ada/gcc-interface/trans.cc index 54e0e8a7fbd..0c7fde754ea 100644 --- a/gcc/ada/gcc-interface/trans.cc +++ b/gcc/ada/gcc-interface/trans.cc @@ -8546,7 +8546,7 @@ gnat_to_gnu (Node_Id gnat_node) && ((Nkind (Parent (gnat_node)) == N_Attribute_Reference && lvalue_required_for_attribute_p (Parent (gnat_node))) || (Nkind (Parent (gnat_node)) == N_Simple_Return_Statement - && No (Storage_Pool (gnat_node))))) + && No (Storage_Pool (Parent (gnat_node)))))) ; else if (TREE_TYPE (gnu_result) != gnu_result_type)