From 17d01d213579c0ee53913f82f4f9e40109f069ca Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 6 Jan 2015 10:01:19 +0100 Subject: [PATCH] Minor reformatting. From-SVN: r219224 --- gcc/ada/gnatls.adb | 4 ++-- gcc/ada/prj-env.adb | 12 +++++++++--- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb index 6ef23a24253..1e33a36a284 100644 --- a/gcc/ada/gnatls.adb +++ b/gcc/ada/gnatls.adb @@ -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); diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb index dd60df9b308..7b76ae04e38 100644 --- a/gcc/ada/prj-env.adb +++ b/gcc/ada/prj-env.adb @@ -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; -- 2.30.2