From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 7871) id 1BAA83858C74; Mon, 7 Nov 2022 08:38:01 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 1BAA83858C74 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1667810281; bh=B/Y1Ggf7d92rUARu7q54sVdrfw3qgyQbHLy3TaK1cQU=; h=From:To:Subject:Date:From; b=kmW20/JV1TZThox8M6x9gHeYMp1Gkpd8TFjibm23Ai331yORT5lqVUanZLe+8l2lT xAQNamBgkenrgBaJZV2d9uGuk87E5oWSQjVWx4n0JKEQm/tuLq9cn3DdVT077bojOL NtedxfELpMcIf59gF2Iuo3mDXASLRsUXkvxKHNh4= 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-3718] ada: Fix missing tag for with of an obsolescent function X-Act-Checkin: gcc X-Git-Author: Piotr Trojanek X-Git-Refname: refs/heads/master X-Git-Oldrev: f74a049a5371d421c5f4637dfae1ce0afc8a01ff X-Git-Newrev: c7dc111e9d8e2eb83e45870a98c193f2fd681313 Message-Id: <20221107083801.1BAA83858C74@sourceware.org> Date: Mon, 7 Nov 2022 08:38:01 +0000 (GMT) List-Id: https://gcc.gnu.org/g:c7dc111e9d8e2eb83e45870a98c193f2fd681313 commit r13-3718-gc7dc111e9d8e2eb83e45870a98c193f2fd681313 Author: Piotr Trojanek Date: Wed Sep 7 15:01:16 2022 +0200 ada: Fix missing tag for with of an obsolescent function Fix minor inconsistency in tags of warnings about obsolescent entities. Part of cleaning up the warnings machinery to better handle references to unset objects. gcc/ada/ * sem_warn.adb (Output_Obsolescent_Entity_Warnings): Tag warnings about obsolescent functions just like we tag similar warnings for packages and procedures. Diff: --- gcc/ada/sem_warn.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 77d58211b50..83b9b20b44e 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -3146,7 +3146,7 @@ package body Sem_Warn is ("?j?with of obsolescent procedure& declared#", N, E); else Error_Msg_NE - ("??with of obsolescent function& declared#", N, E); + ("?j?with of obsolescent function& declared#", N, E); end if; -- If we do not have a with clause, then ignore any reference to an