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

Minor reformatting. 

From-SVN: r219224
This commit is contained in:
Arnaud Charlet 2015-01-06 10:01:19 +01:00
parent 6260b90c23
commit 17d01d2135
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/gnatls.adb
View File

@ -1227,7 +1227,7 @@ procedure Gnatls is
Add_Search_Dirs (Lib_Path, Objects);
Initialize_Default_Project_Path
(Prj_Path,
Target_Name => Sdefault.Target_Name.all,
Target_Name => Sdefault.Target_Name.all,
Runtime_Name => Name);
return;
end if;
@ -1242,7 +1242,7 @@ procedure Gnatls is
Initialize_Default_Project_Path
(Prj_Path,
Target_Name => Sdefault.Target_Name.all,
Target_Name => Sdefault.Target_Name.all,
Runtime_Name => Name);
Rts_Full_Path := Get_Runtime_Path (Prj_Path, Name);

12
gcc/ada/prj-env.adb
View File

@ -1895,24 +1895,30 @@ package body Prj.Env is
-- The path name(s) of directories where project files may reside.
-- May be empty.
Prefix : String_Ptr;
Prefix : String_Ptr;
Runtime : String_Ptr;
procedure Add_Target;
-- Comment ALWAYS required for nested subprogram spec ???
----------------
-- Add_Target --
----------------
procedure Add_Target is
begin
Add_Str_To_Name_Buffer
(Path_Separator & Prefix.all & Target_Name);
-- Note: Target_Name has a trailing / when it comes from
-- Sdefault.
-- Note: Target_Name has a trailing / when it comes from Sdefault
if Name_Buffer (Name_Len) /= '/' then
Add_Char_To_Name_Buffer (Directory_Separator);
end if;
end Add_Target;
-- Start of processing for Initialize_Default_Project_Path
begin
if Is_Initialized (Self) then
return;