diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 09:34:19 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 09:34:19 +0000 |
commit | 5a4d11b2bd5f068cfa47f8e959df9e02172e4fdc (patch) | |
tree | 4ddce1f125b1a2af8c3d5dd0c7454f02fe1040a4 /gcc/ada/mlib-prj.adb | |
parent | d3bc144e6671af5f52e6edcfa50bc27e0593c615 (diff) | |
download | gcc-5a4d11b2bd5f068cfa47f8e959df9e02172e4fdc.tar.gz |
2011-08-29 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb, mlib-prj.adb, prj.adb, prj.ads, ttypes.ads, sem_ch4.adb,
makeutl.adb, makeutl.ads, atree.ads, snames.adb-tmpl,
snames.ads-tmpl: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178179 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/mlib-prj.adb')
-rw-r--r-- | gcc/ada/mlib-prj.adb | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gcc/ada/mlib-prj.adb b/gcc/ada/mlib-prj.adb index b01ad9d1ea2..9020705d49b 100644 --- a/gcc/ada/mlib-prj.adb +++ b/gcc/ada/mlib-prj.adb @@ -1062,15 +1062,13 @@ package body MLib.Prj is Write_Path_File (Path_FD); Path_FD := Invalid_FD; - end if; if Current_Source_Path_File_Of (In_Tree.Shared) /= - For_Project.Include_Path_File + For_Project.Include_Path_File then Set_Current_Source_Path_File_Of - (In_Tree.Shared, - For_Project.Include_Path_File); + (In_Tree.Shared, For_Project.Include_Path_File); Set_Path_File_Var (Project_Include_Path_File, Get_Name_String (For_Project.Include_Path_File)); @@ -1086,6 +1084,7 @@ package body MLib.Prj is declare Path_File_Name : Path_Name_Type; + begin Create_New_Path_File (In_Tree.Shared, Path_FD, Path_File_Name); @@ -1093,8 +1092,7 @@ package body MLib.Prj is Path_FD := Invalid_FD; Set_Path_File_Var - (Project_Objects_Path_File, - Get_Name_String (Path_File_Name)); + (Project_Objects_Path_File, Get_Name_String (Path_File_Name)); Set_Current_Source_Path_File_Of (In_Tree.Shared, Path_File_Name); end; @@ -1116,9 +1114,9 @@ package body MLib.Prj is Arguments (1 .. Argument_Number), Success); - else - -- Otherwise create a temporary response file + -- Otherwise create a temporary response file + else declare FD : File_Descriptor; Path : Path_Name_Type; |