diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 14:40:36 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 14:40:36 +0200 |
| commit | f15749aa1c22f3aebab55be5202d9fa852bd18fc (patch) | |
| tree | 5f53d21a9f0135558eb9910f78708ea4a9cd57d7 /gcc/ada/s-fileio.adb | |
| parent | 396eb900bbb7deb1243ea6de03fe881234314acb (diff) | |
| download | gcc-f15749aa1c22f3aebab55be5202d9fa852bd18fc.zip gcc-f15749aa1c22f3aebab55be5202d9fa852bd18fc.tar.gz gcc-f15749aa1c22f3aebab55be5202d9fa852bd18fc.tar.bz2 | |
[multiple changes]
2014-07-31 Pascal Obry <obry@adacore.com>
* s-fileio.adb: Remove obsolete comment.
2014-07-31 Vincent Celier <celier@adacore.com>
* 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 <taft@adacore.com>
* gnat_ugn.texi: Add a paragraph pointing the reader
to the "plugins" example.
2014-07-31 Hristian Kirtchev <kirtchev@adacore.com>
* freeze.adb (Freeze_Expression): Document the
purpose of the parent chain traversal.
From-SVN: r213350
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 20 |
1 files changed, 8 insertions, 12 deletions
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); |