From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id ECC77398B155; Wed, 16 Jun 2021 08:44:52 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org ECC77398B155 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-1506] [Ada] Don't look for aliases for generic subprograms X-Act-Checkin: gcc X-Git-Author: Richard Kenner X-Git-Refname: refs/heads/master X-Git-Oldrev: e505bf515f59e9c914101fdbd45ffeda9b51040f X-Git-Newrev: ff4746bcdefb170e9583b673d29af474b7ca0786 Message-Id: <20210616084452.ECC77398B155@sourceware.org> Date: Wed, 16 Jun 2021 08:44:52 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 16 Jun 2021 08:44:53 -0000 https://gcc.gnu.org/g:ff4746bcdefb170e9583b673d29af474b7ca0786 commit r12-1506-gff4746bcdefb170e9583b673d29af474b7ca0786 Author: Richard Kenner Date: Sun Feb 28 11:00:33 2021 -0500 [Ada] Don't look for aliases for generic subprograms gcc/ada/ * exp_unst.adb (Register_Subprogram): Don't look for aliases for subprograms that are generic. Reorder tests for efficiency. Diff: --- gcc/ada/exp_unst.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 52d6142f20d..8204fdc9bb6 100644 --- a/gcc/ada/exp_unst.adb +++ b/gcc/ada/exp_unst.adb @@ -883,9 +883,10 @@ package body Exp_Unst is -- within Subp. Calls to Subp itself or to subprograms -- outside the nested structure do not affect us. - if Scope_Within (Ultimate_Alias (Ent), Subp) - and then Is_Subprogram (Ent) + if Is_Subprogram (Ent) + and then not Is_Generic_Subprogram (Ent) and then not Is_Imported (Ent) + and then Scope_Within (Ultimate_Alias (Ent), Subp) then Append_Unique_Call ((N, Current_Subprogram, Ent)); end if;