From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 25 May 2021 15:40:38 +0000 (+0200)
Subject: [Ada] Replace low-level condition with a high-level call
X-Git-Tag: basepoints/gcc-13~6158
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=df0783f81ca9aca026a1db3b81080a8756c6166e;p=thirdparty%2Fgcc.git

[Ada] Replace low-level condition with a high-level call

gcc/ada/

	* lib-writ.adb (Ensure_System_Dependency): Simplify condition.
---

diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb
index 1b2912a53b2c..738a91e5ae1e 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;