OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Remove use of a global name buffer when locating a file

Browse Source 
Code cleanup; semantics is unaffected.

gcc/ada/

	* osint.adb (Locate_File): Use Name_Find with a parameter and
	not with a global buffer.
This commit is contained in:
Piotr Trojanek 2022-03-26 00:13:28 +01:00 committed by Pierre-Marie de Rodat
parent 0aa855e5eb
commit aba3ce53e5
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/osint.adb
View File

@ -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;