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.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213350 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 8 insertions, 12 deletions

diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb
index d4d9a6771e6..073dbdbbc60 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);