diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2022-03-26 00:13:28 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-07-05 08:28:20 +0000 |
commit | aba3ce53e5dc855172164f51080cd71f05f1d994 (patch) | |
tree | 7c2074bd8781506f42ad1d41925ece5d697809dc /gcc | |
parent | 0aa855e5eb274a7279693879b45b73b28b72aaef (diff) | |
download | gcc-aba3ce53e5dc855172164f51080cd71f05f1d994.zip gcc-aba3ce53e5dc855172164f51080cd71f05f1d994.tar.gz gcc-aba3ce53e5dc855172164f51080cd71f05f1d994.tar.bz2 |
[Ada] Remove use of a global name buffer when locating a file
Code cleanup; semantics is unaffected.
gcc/ada/
* osint.adb (Locate_File): Use Name_Find with a parameter and
not with a global buffer.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/osint.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index eeedfcb..86fbf2d 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -1904,10 +1904,8 @@ package body Osint is if Dir_Name'Length = 0 then Found := N; else - Name_Len := Full_Name'Length - 1; - Name_Buffer (1 .. Name_Len) := - Full_Name (1 .. Full_Name'Last - 1); - Found := Name_Find; + Found := + Name_Find (Full_Name (Full_Name'First .. Full_Name'Last - 1)); end if; end if; end; |