diff options
Diffstat (limited to 'gcc/ada/a-textio.ads')
| -rw-r--r-- | gcc/ada/a-textio.ads | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads index 42c74ee065a..4f38370c77a 100644 --- a/gcc/ada/a-textio.ads +++ b/gcc/ada/a-textio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -342,7 +342,7 @@ private Self : aliased File_Type; -- Set to point to the containing Text_AFCB block. This is used to - -- implement the Current_{Error,Input,Output} functions which return + -- implement the Current_{Error,Input,Ouput} functions which return -- a File_Access, the file access value returned is a pointer to -- the Self field of the corresponding file. @@ -411,6 +411,11 @@ private -- this interfaces package with the spec of Ada.Text_IO, and we know that -- in fact these types are identical + 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. + function Getc (File : File_Type) return Integer; -- Gets next character from file, which has already been checked for -- being in read status, and returns the character read if no error |