From f6c5454e6b1003b398ffa0bb839bb7ac07647411 Mon Sep 17 00:00:00 2001 From: Pascal Obry Date: Fri, 6 Jan 2017 11:58:56 +0000 Subject: [PATCH] a-direio.adb, [...]: Add Flush to Sequential_IO and Direct_IO. 2017-01-06 Pascal Obry * a-direio.adb, a-direio.ads, a-sequio.adb, a-sequio.ads: Add Flush to Sequential_IO and Direct_IO. From-SVN: r244145 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/a-direio.adb | 11 ++++++++++- gcc/ada/a-direio.ads | 4 +++- gcc/ada/a-sequio.adb | 11 ++++++++++- gcc/ada/a-sequio.ads | 4 +++- 5 files changed, 31 insertions(+), 4 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4232d36ee2e..13e11887183 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2017-01-06 Pascal Obry + + * 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 * 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 b9330b04487..ba7bd70f53b 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 1244b2dbfbd..e53e9c1abbf 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 31e5d757ea3..f180fd68cd5 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 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 -- --------------------------------- -- 2.30.2