From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 894203858416; Wed, 1 Dec 2021 10:26:35 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 894203858416 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-5671] [Ada] Spurious warning when using 'Type_Key on generic formal X-Act-Checkin: gcc X-Git-Author: Justin Squirek X-Git-Refname: refs/heads/master X-Git-Oldrev: 8ba38e8c8b737df2734c06486a7fc39f4be78f43 X-Git-Newrev: b940999de44208a0659d9441393fa3f62be24f28 Message-Id: <20211201102635.894203858416@sourceware.org> Date: Wed, 1 Dec 2021 10:26:35 +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, 01 Dec 2021 10:26:35 -0000 https://gcc.gnu.org/g:b940999de44208a0659d9441393fa3f62be24f28 commit r12-5671-gb940999de44208a0659d9441393fa3f62be24f28 Author: Justin Squirek Date: Tue Nov 16 10:50:06 2021 -0500 [Ada] Spurious warning when using 'Type_Key on generic formal gcc/ada/ * sem_attr.adb (Type_Key): Avoid premature use warnings when the prefix is a generic actual. Diff: --- gcc/ada/sem_attr.adb | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 2575ddfe86d..ef7437a0dd0 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -6664,6 +6664,7 @@ package body Sem_Attr is if not Is_Frozen (Entity (P)) and then not Is_Generic_Type (Entity (P)) + and then not Is_Generic_Actual_Type (Entity (P)) then Error_Msg_N ("premature usage of Type_Key?", N); end if;