git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Pascal Obry 2017-01-06 11:58:56 +00:00 committed by Arnaud Charlet
parent 533e3abc48
commit f6c5454e6b
5 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -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> 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.

11
gcc/ada/a-direio.adb
View File

@ -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
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 --
---------- ----------

4
gcc/ada/a-direio.ads
View File

@ -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
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 --
--------------------------------- ---------------------------------

11
gcc/ada/a-sequio.adb
View File

@ -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
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 --
---------- ----------

4
gcc/ada/a-sequio.ads
View File

@ -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
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 --
--------------------------------- ---------------------------------