diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:36:48 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:36:48 +0000 |
| commit | 94839beadac329905c4a122e09523c3d36d1f638 (patch) | |
| tree | e77333513aa16dabd237767d69e16cef850bfb7a /gcc/ada/a-witeio.ads | |
| parent | 8fd506d77c17d58d1091465ac6460535cdd5ad30 (diff) | |
| download | gcc-94839beadac329905c4a122e09523c3d36d1f638.tar.gz | |
2008-03-26 Robert Dewar <dewar@adacore.com>
* a-ztexio.adb, a-ztexio.ads, a-witeio.ads, a-witeio.adb: Fix problem
with Current_Output (introduce Self).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133552 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-witeio.ads')
| -rw-r--r-- | gcc/ada/a-witeio.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/a-witeio.ads b/gcc/ada/a-witeio.ads index 3d676a9acd6..b7d06ea8732 100644 --- a/gcc/ada/a-witeio.ads +++ b/gcc/ada/a-witeio.ads @@ -350,6 +350,12 @@ private Line_Length : Count := 0; Page_Length : Count := 0; + Self : aliased File_Type; + -- Set to point to the containing Text_AFCB block. This is used to + -- 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. + Before_LM : Boolean := False; -- This flag is used to deal with the anomolies introduced by the -- peculiar definition of End_Of_File and End_Of_Page in Ada. These |