aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorPiotr Trojanek <trojanek@adacore.com>2022-03-26 00:13:28 +0100
committerPierre-Marie de Rodat <derodat@adacore.com>2022-07-05 08:28:20 +0000
commitaba3ce53e5dc855172164f51080cd71f05f1d994 (patch)
tree7c2074bd8781506f42ad1d41925ece5d697809dc /gcc
parent0aa855e5eb274a7279693879b45b73b28b72aaef (diff)
downloadgcc-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.adb6
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;