diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-05-25 17:40:38 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-08 13:34:20 +0000 |
commit | df0783f81ca9aca026a1db3b81080a8756c6166e (patch) | |
tree | 651c1233698289c2e1584c8e0110d4c7a9f849f9 /gcc | |
parent | 3711c2e5a06ac318fec2f7a5cfbd1f0267607a0f (diff) | |
download | gcc-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.adb | 2 |
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; |