aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorPiotr Trojanek <trojanek@adacore.com>2021-05-25 17:40:38 +0200
committerPierre-Marie de Rodat <derodat@adacore.com>2021-07-08 13:34:20 +0000
commitdf0783f81ca9aca026a1db3b81080a8756c6166e (patch)
tree651c1233698289c2e1584c8e0110d4c7a9f849f9 /gcc
parent3711c2e5a06ac318fec2f7a5cfbd1f0267607a0f (diff)
downloadgcc-df0783f81ca9aca026a1db3b81080a8756c6166e.zip
gcc-df0783f81ca9aca026a1db3b81080a8756c6166e.tar.gz
gcc-df0783f81ca9aca026a1db3b81080a8756c6166e.tar.bz2
[Ada] Replace low-level condition with a high-level call
gcc/ada/ * lib-writ.adb (Ensure_System_Dependency): Simplify condition.
Diffstat (limited to 'gcc')
-rw-r--r--gcc/ada/lib-writ.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb
index 1b2912a..738a91e 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;