From f15749aa1c22f3aebab55be5202d9fa852bd18fc Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 31 Jul 2014 14:40:36 +0200 Subject: [multiple changes] 2014-07-31 Pascal Obry * s-fileio.adb: Remove obsolete comment. 2014-07-31 Vincent Celier * a-strbou.ads ("=" (Bounded_String, Bounded_String): Add overriding keyword before function to avoid error when compiler is called with -gnatyO (check overriding indicators). 2014-07-31 Tucker Taft * gnat_ugn.texi: Add a paragraph pointing the reader to the "plugins" example. 2014-07-31 Hristian Kirtchev * freeze.adb (Freeze_Expression): Document the purpose of the parent chain traversal. From-SVN: r213350 --- gcc/ada/s-fileio.adb | 20 ++++++++------------ 1 file changed, 8 insertions(+), 12 deletions(-) (limited to 'gcc/ada/s-fileio.adb') diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index d4d9a67..073dbdb 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -34,9 +34,9 @@ with Ada.IO_Exceptions; use Ada.IO_Exceptions; with Ada.Unchecked_Deallocation; with Interfaces.C; -with Interfaces.C_Streams; use Interfaces.C_Streams; +with Interfaces.C_Streams; use Interfaces.C_Streams; -with System.Case_Util; use System.Case_Util; +with System.Case_Util; use System.Case_Util; with System.CRTL; with System.OS_Lib; with System.Soft_Links; @@ -120,12 +120,12 @@ package body System.File_IO is Creat : Boolean; Amethod : Character; Fopstr : out Fopen_String); - -- Determines proper open mode for a file to be opened in the given - -- Ada mode. Text is true for a text file and false otherwise, and - -- Creat is true for a create call, and False for an open call. The - -- value stored in Fopstr is a nul-terminated string suitable for a - -- call to fopen or freopen. Amethod is the character designating - -- the access method from the Access_Method field of the FCB. + -- Determines proper open mode for a file to be opened in the given Ada + -- mode. Text is true for a text file and false otherwise, and Creat is + -- true for a create call, and False for an open call. The value stored + -- in Fopstr is a nul-terminated string suitable for a call to fopen or + -- freopen. Amethod is the character designating the access method from + -- the Access_Method field of the FCB. function Errno_Message (Name : String; @@ -387,10 +387,6 @@ package body System.File_IO is -- Finalize -- -------------- - -- Note: we do not need to worry about locking against multiple task access - -- in this routine, since it is called only from the environment task just - -- before terminating execution. - procedure Finalize (V : in out File_IO_Clean_Up_Type) is pragma Warnings (Off, V); -- cgit v1.1