From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 7871) id 068F63857BB2; Thu, 5 Jan 2023 14:38:56 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 068F63857BB2 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1672929536; bh=lkRxwrYYCo5zBpu0dRe3ddRNxgLnoLxqkG+U8f79iUE=; h=From:To:Subject:Date:From; b=weSMzukqeoIonrjv4kFqHZQ0CZ7fSH3ZfSz+mU8BaXG+lQzyukqiDcYL0ebACXZTZ w+7rjySn3HiVv1qCcJHL5e2Kwazh6dnpEaNzfyQSjmDoUF20/zJcJr4X2MvWu24TkB yXpYFZ0g4VPvmwUUk9c4ksCpuvSM/+dOtKOBAs+g= 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-5022] ada: Fix spurious emissions of -gnatwj warning X-Act-Checkin: gcc X-Git-Author: Ronan Desplanques X-Git-Refname: refs/heads/master X-Git-Oldrev: 9ef547a7a99522db8f0f028bde8febc8f1ad8bb8 X-Git-Newrev: a124b526315de9a14eef55fcf2e958cbb6a6e176 Message-Id: <20230105143856.068F63857BB2@sourceware.org> Date: Thu, 5 Jan 2023 14:38:56 +0000 (GMT) List-Id: https://gcc.gnu.org/g:a124b526315de9a14eef55fcf2e958cbb6a6e176 commit r13-5022-ga124b526315de9a14eef55fcf2e958cbb6a6e176 Author: Ronan Desplanques Date: Mon Dec 19 18:37:19 2022 +0100 ada: Fix spurious emissions of -gnatwj warning Before this patch, the compiler would erroneously emit a warning about the use of parentheses for array aggregates being discouraged in some situations. Those situations were the ones where array aggregates were used as generic actuals when instantiating generic packages defined in the runtime library. This patch fixes this issue by looking at the Ada version explicitly specified by the user instead of the Ada_Version flag which is always set to the latest Ada version when compiling code from the runtime library. gcc/ada/ * sem_aggr.adb (Resolve_Array_Aggregate): Tweak conditions for warning about use of parentheses for array aggregates. Diff: --- gcc/ada/sem_aggr.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 433f1ac84ca..958b2bbbd18 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -1922,7 +1922,7 @@ package body Sem_Aggr is -- Disable the warning for GNAT Mode to allow for easier transition. - if Ada_Version >= Ada_2022 + if Ada_Version_Explicit >= Ada_2022 and then Warn_On_Obsolescent_Feature and then not GNAT_Mode and then not Is_Homogeneous_Aggregate (N)