diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 10:01:19 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 10:01:19 +0100 |
| commit | 17d01d213579c0ee53913f82f4f9e40109f069ca (patch) | |
| tree | 1578767b34259da09c09c10e45678d1f016e5ca4 /gcc | |
| parent | 6260b90c233ddbd14ecb9ac2f747d9ba7de4b2d9 (diff) | |
| download | gcc-17d01d213579c0ee53913f82f4f9e40109f069ca.zip gcc-17d01d213579c0ee53913f82f4f9e40109f069ca.tar.gz gcc-17d01d213579c0ee53913f82f4f9e40109f069ca.tar.bz2 | |
Minor reformatting.
From-SVN: r219224
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gnatls.adb | 4 | ||||
| -rw-r--r-- | 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 6ef23a2..1e33a36 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 dd60df9..7b76ae0 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; |