Commit f6c5454e by Pascal Obry Committed by Arnaud Charlet

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
parent 533e3abc
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> 2017-01-06 Bob Duff <duff@adacore.com>
* snames.ads-tmpl (Renamed): New name for the pragma argument. * snames.ads-tmpl (Renamed): New name for the pragma argument.
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -108,6 +108,15 @@ package body Ada.Direct_IO is ...@@ -108,6 +108,15 @@ package body Ada.Direct_IO is
return DIO.End_Of_File (FP (File)); return DIO.End_Of_File (FP (File));
end End_Of_File; end End_Of_File;
-----------
-- Flush --
-----------
procedure Flush (File : File_Type) is
begin
FIO.Flush (AP (File));
end Flush;
---------- ----------
-- Form -- -- Form --
---------- ----------
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -94,6 +94,8 @@ package Ada.Direct_IO is ...@@ -94,6 +94,8 @@ package Ada.Direct_IO is
function Is_Open (File : File_Type) return Boolean; function Is_Open (File : File_Type) return Boolean;
procedure Flush (File : File_Type);
--------------------------------- ---------------------------------
-- Input and Output Operations -- -- Input and Output Operations --
--------------------------------- ---------------------------------
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -121,6 +121,15 @@ package body Ada.Sequential_IO is ...@@ -121,6 +121,15 @@ package body Ada.Sequential_IO is
return FIO.End_Of_File (AP (File)); return FIO.End_Of_File (AP (File));
end End_Of_File; end End_Of_File;
-----------
-- Flush --
-----------
procedure Flush (File : File_Type) is
begin
FIO.Flush (AP (File));
end Flush;
---------- ----------
-- Form -- -- Form --
---------- ----------
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -90,6 +90,8 @@ package Ada.Sequential_IO is ...@@ -90,6 +90,8 @@ package Ada.Sequential_IO is
function Is_Open (File : File_Type) return Boolean; function Is_Open (File : File_Type) return Boolean;
procedure Flush (File : File_Type);
--------------------------------- ---------------------------------
-- Input and output operations -- -- Input and output operations --
--------------------------------- ---------------------------------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment