Commit 17d01d21 by Arnaud Charlet

Minor reformatting.

From-SVN: r219224
parent 6260b90c
...@@ -1227,7 +1227,7 @@ procedure Gnatls is ...@@ -1227,7 +1227,7 @@ procedure Gnatls is
Add_Search_Dirs (Lib_Path, Objects); Add_Search_Dirs (Lib_Path, Objects);
Initialize_Default_Project_Path Initialize_Default_Project_Path
(Prj_Path, (Prj_Path,
Target_Name => Sdefault.Target_Name.all, Target_Name => Sdefault.Target_Name.all,
Runtime_Name => Name); Runtime_Name => Name);
return; return;
end if; end if;
...@@ -1242,7 +1242,7 @@ procedure Gnatls is ...@@ -1242,7 +1242,7 @@ procedure Gnatls is
Initialize_Default_Project_Path Initialize_Default_Project_Path
(Prj_Path, (Prj_Path,
Target_Name => Sdefault.Target_Name.all, Target_Name => Sdefault.Target_Name.all,
Runtime_Name => Name); Runtime_Name => Name);
Rts_Full_Path := Get_Runtime_Path (Prj_Path, Name); Rts_Full_Path := Get_Runtime_Path (Prj_Path, Name);
......
...@@ -1895,24 +1895,30 @@ package body Prj.Env is ...@@ -1895,24 +1895,30 @@ package body Prj.Env is
-- The path name(s) of directories where project files may reside. -- The path name(s) of directories where project files may reside.
-- May be empty. -- May be empty.
Prefix : String_Ptr; Prefix : String_Ptr;
Runtime : String_Ptr; Runtime : String_Ptr;
procedure Add_Target; procedure Add_Target;
-- Comment ALWAYS required for nested subprogram spec ???
----------------
-- Add_Target --
----------------
procedure Add_Target is procedure Add_Target is
begin begin
Add_Str_To_Name_Buffer Add_Str_To_Name_Buffer
(Path_Separator & Prefix.all & Target_Name); (Path_Separator & Prefix.all & Target_Name);
-- Note: Target_Name has a trailing / when it comes from -- Note: Target_Name has a trailing / when it comes from Sdefault
-- Sdefault.
if Name_Buffer (Name_Len) /= '/' then if Name_Buffer (Name_Len) /= '/' then
Add_Char_To_Name_Buffer (Directory_Separator); Add_Char_To_Name_Buffer (Directory_Separator);
end if; end if;
end Add_Target; end Add_Target;
-- Start of processing for Initialize_Default_Project_Path
begin begin
if Is_Initialized (Self) then if Is_Initialized (Self) then
return; return;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment