diff options
| author | Pascal Obry <obry@adacore.com> | 2017-01-06 11:58:56 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-06 12:58:56 +0100 |
| commit | f6c5454e6b1003b398ffa0bb839bb7ac07647411 (patch) | |
| tree | 7acd007ae318580ff8a3a5471df4662bb286afbd /gcc/ada/a-sequio.ads | |
| parent | 533e3abc48268dd8eee0c63ddcf133e7a14b370d (diff) | |
| download | gcc-f6c5454e6b1003b398ffa0bb839bb7ac07647411.tar.gz | |
a-direio.adb, [...]: Add Flush to Sequential_IO and Direct_IO.
2017-01-06 Pascal Obry <obry@adacore.com>
* a-direio.adb, a-direio.ads, a-sequio.adb, a-sequio.ads: Add Flush to
Sequential_IO and Direct_IO.
From-SVN: r244145
Diffstat (limited to 'gcc/ada/a-sequio.ads')
| -rw-r--r-- | gcc/ada/a-sequio.ads | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/a-sequio.ads b/gcc/ada/a-sequio.ads index a728c540354..8dbfb0fcd48 100644 --- a/gcc/ada/a-sequio.ads +++ b/gcc/ada/a-sequio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, 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 -- @@ -90,6 +90,8 @@ package Ada.Sequential_IO is function Is_Open (File : File_Type) return Boolean; + procedure Flush (File : File_Type); + --------------------------------- -- Input and output operations -- --------------------------------- |