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-textio.ads | |
| 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-textio.ads')
| -rw-r--r-- | gcc/ada/a-textio.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads index 44fe496db18..d22b2f9c635 100644 --- a/gcc/ada/a-textio.ads +++ b/gcc/ada/a-textio.ads @@ -458,6 +458,12 @@ private Current_Err : aliased File_Type := Standard_Err; -- Current files + function EOF_Char return Integer; + -- Returns the system-specific character indicating the end of a text file. + -- This is exported for use by child packages such as Enumeration_Aux to + -- eliminate their needing to depend directly on Interfaces.C_Streams, + -- which is not available in certain target environments (such as AAMP). + procedure Initialize_Standard_Files; -- Initializes the file control blocks for the standard files. Called from -- the elaboration routine for this package, and from Reset_Standard_Files |