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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 4232d36ee2ef14b90fb444c2c5e4dfad033e8706..13e11887183fe377302b55f08ab2d2192a30d460 100644 (file)
--- 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 b9330b0448705506da9cb9ef2c0254ed9d910e1a..ba7bd70f53bc286a18ba8ba43868bed231de83fa 100644 (file)
--- 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 1244b2dbfbd248bff14bab444f111e7649ed9acc..e53e9c1abbf0a0225a711e3418aa341aceb6ed0c 100644 (file)
--- 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 31e5d757ea3ddb13d21f0cddd5c2cf7d08301b45..f180fd68cd56c9b6b0ae20145ecfb9557803faa8 100644 (file)
--- 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 a728c5403546445446f88b6f0efa3e95f6c8dd41..8dbfb0fcd48bcac00e36b75676f220b4bb858924 100644 (file)
--- 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 --
    ---------------------------------