diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-05-10 18:55:37 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-06 14:46:57 +0000 |
commit | 3751af1e7ba5173f35f0e0a5adc62e4455f7a963 (patch) | |
tree | b03745f7a84be89cc1f3c08480d149796a9cac07 | |
parent | c6d8890c7d1e717c2f8ed5f2b04ca5a9b26cdfc1 (diff) | |
download | gcc-3751af1e7ba5173f35f0e0a5adc62e4455f7a963.zip gcc-3751af1e7ba5173f35f0e0a5adc62e4455f7a963.tar.gz gcc-3751af1e7ba5173f35f0e0a5adc62e4455f7a963.tar.bz2 |
[Ada] Simplify dependency on System
gcc/ada/
* lib-writ.adb (Ensure_System_Dependency): Simplify by reusing a
constant name.
-rw-r--r-- | gcc/ada/lib-writ.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 16993dd..1b02b1c 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -158,9 +158,7 @@ package body Lib.Writ is -- on system as a result of Targparm scanning the system.ads file to -- determine the target dependent parameters for the compilation. - Name_Len := 6; - Name_Buffer (1 .. 6) := "system"; - System_Uname := Name_To_Unit_Name (Name_Enter); + System_Uname := Name_To_Unit_Name (Name_System); System_Fname := File_Name (System_Source_File_Index); Units.Increment_Last; |