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 | |
| parent | 533e3abc48268dd8eee0c63ddcf133e7a14b370d (diff) | |
| download | gcc-f6c5454e6b1003b398ffa0bb839bb7ac07647411.zip gcc-f6c5454e6b1003b398ffa0bb839bb7ac07647411.tar.gz gcc-f6c5454e6b1003b398ffa0bb839bb7ac07647411.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/a-direio.adb | 11 | ||||
| -rw-r--r-- | gcc/ada/a-direio.ads | 4 | ||||
| -rw-r--r-- | gcc/ada/a-sequio.adb | 11 | ||||
| -rw-r--r-- | gcc/ada/a-sequio.ads | 4 |
5 files changed, 31 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4232d36..13e1188 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +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. + 2017-01-06 Bob Duff <duff@adacore.com> * snames.ads-tmpl (Renamed): New name for the pragma argument. diff --git a/gcc/ada/a-direio.adb b/gcc/ada/a-direio.adb index b9330b0..ba7bd70 100644 --- a/gcc/ada/a-direio.adb +++ b/gcc/ada/a-direio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -108,6 +108,15 @@ package body Ada.Direct_IO is return DIO.End_Of_File (FP (File)); end End_Of_File; + ----------- + -- Flush -- + ----------- + + procedure Flush (File : File_Type) is + begin + FIO.Flush (AP (File)); + end Flush; + ---------- -- Form -- ---------- diff --git a/gcc/ada/a-direio.ads b/gcc/ada/a-direio.ads index 1244b2d..e53e9c1 100644 --- a/gcc/ada/a-direio.ads +++ b/gcc/ada/a-direio.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 -- @@ -94,6 +94,8 @@ package Ada.Direct_IO is function Is_Open (File : File_Type) return Boolean; + procedure Flush (File : File_Type); + --------------------------------- -- Input and Output Operations -- --------------------------------- diff --git a/gcc/ada/a-sequio.adb b/gcc/ada/a-sequio.adb index 31e5d75..f180fd6 100644 --- a/gcc/ada/a-sequio.adb +++ b/gcc/ada/a-sequio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -121,6 +121,15 @@ package body Ada.Sequential_IO is return FIO.End_Of_File (AP (File)); end End_Of_File; + ----------- + -- Flush -- + ----------- + + procedure Flush (File : File_Type) is + begin + FIO.Flush (AP (File)); + end Flush; + ---------- -- Form -- ---------- diff --git a/gcc/ada/a-sequio.ads b/gcc/ada/a-sequio.ads index a728c54..8dbfb0f 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 -- --------------------------------- |