diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 11:46:58 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 11:46:58 +0200 |
commit | a9e00bfdb8c2a33475bada913eaed971cc984fbd (patch) | |
tree | 031b105a506cd40144e4838414a751612ee5064e /gcc/ada/osint-b.adb | |
parent | d25eaf7449b76e45ef21b512a7b5f80c4741e361 (diff) | |
download | gcc-a9e00bfdb8c2a33475bada913eaed971cc984fbd.zip gcc-a9e00bfdb8c2a33475bada913eaed971cc984fbd.tar.gz gcc-a9e00bfdb8c2a33475bada913eaed971cc984fbd.tar.bz2 |
[multiple changes]
2010-06-22 Vincent Celier <celier@adacore.com>
* prj-attr.adb: Remove project level attribute Main_Language.
2010-06-22 Robert Dewar <dewar@adacore.com>
* switch-b.adb, osint-b.adb: Minor reformatting.
2010-06-22 Pascal Obry <obry@adacore.com>
* g-socthi-mingw.adb (C_Sendmsg): Do not attempt to send data from a
vector if previous send was not fully successful. If only part of
the vector data was sent, we exit the loop.
From-SVN: r161157
Diffstat (limited to 'gcc/ada/osint-b.adb')
-rw-r--r-- | gcc/ada/osint-b.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/osint-b.adb b/gcc/ada/osint-b.adb index a3062f4..39b7a99 100644 --- a/gcc/ada/osint-b.adb +++ b/gcc/ada/osint-b.adb @@ -192,6 +192,10 @@ package body Osint.B is Current_File_Name_Index := To; end Set_Current_File_Name_Index; + ------------------- + -- Set_List_File -- + ------------------- + procedure Set_List_File (Filename : String) is begin pragma Assert (Current_List_File = Invalid_FD); @@ -199,7 +203,6 @@ package body Osint.B is if Current_List_File = Invalid_FD then Fail ("cannot create list file: " & Filename); - else Set_Output (Current_List_File); end if; |