diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-03-26 08:36:48 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:36:48 +0100 |
| commit | 1e990f1366612be41209fb921d09be00355c117b (patch) | |
| tree | e77333513aa16dabd237767d69e16cef850bfb7a /gcc/ada/a-ztexio.ads | |
| parent | 162c52f32359c7f4c18f03d2ebc62ac59fa81c09 (diff) | |
| download | gcc-1e990f1366612be41209fb921d09be00355c117b.tar.gz | |
a-ztexio.adb, [...]: Fix problem with Current_Output (introduce Self).
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).
From-SVN: r133552
Diffstat (limited to 'gcc/ada/a-ztexio.ads')
| -rw-r--r-- | gcc/ada/a-ztexio.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/a-ztexio.ads b/gcc/ada/a-ztexio.ads index 3010e517203..dd872dcfb1c 100644 --- a/gcc/ada/a-ztexio.ads +++ b/gcc/ada/a-ztexio.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 |