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