aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-textio.ads
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2009-10-28 15:09:12 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2009-10-28 15:09:12 +0100
commitfc475a082ce2d06a0e458438236b01f8e221772e (patch)
tree536c92b8a7dfda324a00f8a487f10e93b999a8fd /gcc/ada/a-textio.ads
parent4d8f8ffee4fd710d6276ae702b43ed690414a85c (diff)
downloadgcc-fc475a082ce2d06a0e458438236b01f8e221772e.zip
gcc-fc475a082ce2d06a0e458438236b01f8e221772e.tar.gz
gcc-fc475a082ce2d06a0e458438236b01f8e221772e.tar.bz2
[multiple changes]
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 From-SVN: r153661
Diffstat (limited to 'gcc/ada/a-textio.ads')
-rw-r--r--gcc/ada/a-textio.ads6
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads
index 44fe496..d22b2f9 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