diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-01 16:54:43 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-05 11:32:37 +0000 |
| commit | ad2fd234e7087b2a7bb7e3554736663d3ea5d6be (patch) | |
| tree | ae15f764b759ef40af93cdb73abeda3283d338c3 | |
| parent | f3799ac534385c72f72d97aa142aa4f9c0d72849 (diff) | |
| download | gcc-ad2fd234e7087b2a7bb7e3554736663d3ea5d6be.zip gcc-ad2fd234e7087b2a7bb7e3554736663d3ea5d6be.tar.gz gcc-ad2fd234e7087b2a7bb7e3554736663d3ea5d6be.tar.bz2 | |
[Ada] Simplify calls to Name_Find with known string parameter
gcc/ada/
* gnatls.adb (Gnatls): Use Name_Find function.
* targparm.adb (Get_Target_Parameters): Likewise.
| -rw-r--r-- | gcc/ada/gnatls.adb | 5 | ||||
| -rw-r--r-- | gcc/ada/targparm.adb | 5 |
2 files changed, 2 insertions, 8 deletions
diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb index b20cda4..4c69b72 100644 --- a/gcc/ada/gnatls.adb +++ b/gcc/ada/gnatls.adb @@ -2092,10 +2092,7 @@ begin Hi : Source_Ptr; begin - Name_Buffer (1 .. 10) := "system.ads"; - Name_Len := 10; - - Read_Source_File (Name_Find, 0, Hi, Text, FD); + Read_Source_File (Name_Find ("system.ads"), 0, Hi, Text, FD); if Null_Source_Buffer_Ptr (Text) then No_Runtime := True; diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb index ade05c2..d5755e1 100644 --- a/gcc/ada/targparm.adb +++ b/gcc/ada/targparm.adb @@ -157,10 +157,7 @@ package body Targparm is return; end if; - Name_Buffer (1 .. 10) := "system.ads"; - Name_Len := 10; - - Read_Source_File (Name_Find, 0, Hi, Text, FD); + Read_Source_File (Name_Find ("system.ads"), 0, Hi, Text, FD); if Null_Source_Buffer_Ptr (Text) then Write_Line ("fatal error, run-time library not installed correctly"); |