diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-10-28 14:09:12 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-10-28 14:09:12 +0000 |
| commit | 1623c93f9593ca08e0f8f47436f6068cfc90212a (patch) | |
| tree | 536c92b8a7dfda324a00f8a487f10e93b999a8fd /gcc/ada/a-tienau.adb | |
| parent | 424b0b58076ca9c0c47ff615064da0220e4d722d (diff) | |
| download | gcc-1623c93f9593ca08e0f8f47436f6068cfc90212a.tar.gz | |
2009-10-28 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Add_To_Or_Remove_From_List): New name of procedure
Add_If_Not_In_List to account to the fact that a directory may be
removed from the list. Only remove directory if Removed is True.
2009-10-28 Gary Dismukes <dismukes@adacore.com>
* a-textio.ads, a-textio.ads: Put back function EOF_Char in private
part. Put back body of function EOF_Char.
* a-tienau.adb: Remove with of Interfaces.C_Streams and change EOF back
to EOF_Char.
2009-10-28 Emmanuel Briot <briot@adacore.com>
* prj-tree.adb (Free): Fix memory leak.
2009-10-28 Thomas Quinot <quinot@adacore.com>
* s-fileio.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@153661 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-tienau.adb')
| -rw-r--r-- | gcc/ada/a-tienau.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/a-tienau.adb b/gcc/ada/a-tienau.adb index e04a34281e2..f0c1800f9e7 100644 --- a/gcc/ada/a-tienau.adb +++ b/gcc/ada/a-tienau.adb @@ -32,8 +32,6 @@ with Ada.Text_IO.Generic_Aux; use Ada.Text_IO.Generic_Aux; with Ada.Characters.Handling; use Ada.Characters.Handling; -with Interfaces.C_Streams; use Interfaces.C_Streams; - -- Note: this package does not yet deal properly with wide characters ??? package body Ada.Text_IO.Enumeration_Aux is @@ -100,7 +98,7 @@ package body Ada.Text_IO.Enumeration_Aux is Store_Char (File, Character'Pos (To_Upper (C)), Buf, Buflen); ch := Getc (File); - exit when ch = EOF; + exit when ch = EOF_Char; C := Character'Val (ch); exit when not Is_Letter (C) |