From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 7871) id F28ED3858D32; Mon, 16 Jan 2023 14:48:11 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org F28ED3858D32 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1673880491; bh=msd3lt/XzDOBAJ1L6PhyhhNi0pkXzwOnwJ/W9UZHE78=; h=From:To:Subject:Date:From; b=Iwo7HvUzVm+W411ASSRlp51RFHPZP6IEvCRWFZpeNf966Ib6G/6BFoyWniaM06KbW MCGSqv3PvEPwwel133Rn8+P3OkwiJm8797qiYDWRPnZsvFRP+Y8W9LEqSvr9RwLdXU 8VqW9kN7Kr0mhEDEx7kvfum+8e6PCctNgBcrAHRU= MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Marc Poulhi?s To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-5204] ada: Lift restriction on optimization of aliased objects X-Act-Checkin: gcc X-Git-Author: Eric Botcazou X-Git-Refname: refs/heads/master X-Git-Oldrev: 8daf80ff0ecd2aee50bf8e4f0f0dda906aeb190d X-Git-Newrev: 24993939b7e405cdb8fa7ab6b388913a5d9fb6ce Message-Id: <20230116144811.F28ED3858D32@sourceware.org> Date: Mon, 16 Jan 2023 14:48:11 +0000 (GMT) List-Id: https://gcc.gnu.org/g:24993939b7e405cdb8fa7ab6b388913a5d9fb6ce commit r13-5204-g24993939b7e405cdb8fa7ab6b388913a5d9fb6ce Author: Eric Botcazou Date: Mon Jan 2 23:11:21 2023 +0100 ada: Lift restriction on optimization of aliased objects It turns out that the only blocking case is an aliased object whose nominal subtype is an unconstrained array because the bounds must be allocated. gcc/ada/ * exp_ch3.adb (Expand_N_Object_Declaration): Also optimize aliased objects if their nominal subtype is not an unconstrained array. Diff: --- gcc/ada/exp_ch3.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 536ae0c36e4..c866a9c40f5 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -7965,10 +7965,10 @@ package body Exp_Ch3 is Is_Entity_Name (Original_Node (Obj_Def)) - -- The aliased case has to be excluded because the expression - -- will not be aliased in the general case. + -- Nor if it is effectively an unconstrained declaration - and then not Aliased_Present (N) + and then not (Is_Array_Type (Typ) + and then Is_Constr_Subt_For_UN_Aliased (Typ)) -- We may use a renaming if the initializing expression is a -- captured function call that meets a few conditions.