From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 00F8C398B884; Thu, 8 Jul 2021 13:37:10 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 00F8C398B884 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-2155] [Ada] Replace low-level condition with a high-level call X-Act-Checkin: gcc X-Git-Author: Piotr Trojanek X-Git-Refname: refs/heads/master X-Git-Oldrev: 3711c2e5a06ac318fec2f7a5cfbd1f0267607a0f X-Git-Newrev: df0783f81ca9aca026a1db3b81080a8756c6166e Message-Id: <20210708133710.00F8C398B884@sourceware.org> Date: Thu, 8 Jul 2021 13:37:10 +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: Thu, 08 Jul 2021 13:37:10 -0000 https://gcc.gnu.org/g:df0783f81ca9aca026a1db3b81080a8756c6166e commit r12-2155-gdf0783f81ca9aca026a1db3b81080a8756c6166e Author: Piotr Trojanek Date: Tue May 25 17:40:38 2021 +0200 [Ada] Replace low-level condition with a high-level call gcc/ada/ * lib-writ.adb (Ensure_System_Dependency): Simplify condition. Diff: --- gcc/ada/lib-writ.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 1b2912a53b2..738a91e5ae1 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -147,7 +147,7 @@ package body Lib.Writ is begin -- Nothing to do if we already compiled System - if Unit_Names.Get (System_Uname) /= No_Unit then + if Is_Loaded (System_Uname) then return; end if;