Update comments.

Minor reformatting.
Kill new warnings.

From-SVN: r130888

diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb
index 0efe260..04cfdd7 100644 (file)
--- a/gcc/ada/g-socket.adb
+++ b/gcc/ada/g-socket.adb
@@ -573,6 +573,8 @@ package body GNAT.Sockets is
      (Socket : Socket_Type;
       Server : in out Sock_Addr_Type)
    is
+      pragma Warnings (Off, Server);
+
       Res : C.int;
       Sin : aliased Sockaddr_In;
       Len : constant C.int := Sin'Size / 8;
@@ -1376,6 +1378,8 @@ package body GNAT.Sockets is
       Item   : out Ada.Streams.Stream_Element_Array;
       Last   : out Ada.Streams.Stream_Element_Offset)
    is
+      pragma Warnings (Off, Stream);
+
       First : Ada.Streams.Stream_Element_Offset          := Item'First;
       Index : Ada.Streams.Stream_Element_Offset          := First - 1;
       Max   : constant Ada.Streams.Stream_Element_Offset := Item'Last;
@@ -2111,6 +2115,8 @@ package body GNAT.Sockets is
      (Stream : in out Datagram_Socket_Stream_Type;
       Item   : Ada.Streams.Stream_Element_Array)
    is
+      pragma Warnings (Off, Stream);
+
       First : Ada.Streams.Stream_Element_Offset          := Item'First;
       Index : Ada.Streams.Stream_Element_Offset          := First - 1;
       Max   : constant Ada.Streams.Stream_Element_Offset := Item'Last;
@@ -2144,6 +2150,8 @@ package body GNAT.Sockets is
      (Stream : in out Stream_Socket_Stream_Type;
       Item   : Ada.Streams.Stream_Element_Array)
    is
+      pragma Warnings (Off, Stream);
+
       First : Ada.Streams.Stream_Element_Offset          := Item'First;
       Index : Ada.Streams.Stream_Element_Offset          := First - 1;
       Max   : constant Ada.Streams.Stream_Element_Offset := Item'Last;

diff --git a/gcc/ada/g-speche.ads b/gcc/ada/g-speche.ads
index 8b039e8..b0eba28 100644 (file)
--- a/gcc/ada/g-speche.ads
+++ b/gcc/ada/g-speche.ads
@@ -34,6 +34,7 @@
 --  Spelling checker
 
 --  This package provides a utility routine for checking for bad spellings
+--  for the case of String arguments.
 
 pragma Warnings (Off);
 pragma Compiler_Unit;
@@ -45,16 +46,14 @@ package GNAT.Spelling_Checker is
    function Is_Bad_Spelling_Of
      (Found  : String;
       Expect : String) return Boolean;
-   --  Determines if the string Found is a plausible misspelling of the
-   --  string Expect. Returns True for an exact match or a probably
-   --  misspelling, False if no near match is detected. This routine
-   --  is case sensitive, so the caller should fold both strings to
-   --  get a case insensitive match.
+   --  Determines if the string Found is a plausible misspelling of the string
+   --  Expect. Returns True for an exact match or a probably misspelling, False
+   --  if no near match is detected. This routine is case sensitive, so the
+   --  caller should fold both strings to get a case insensitive match.
    --
-   --  Note: the spec of this routine is deliberately rather vague. This
-   --  routine is the one used by GNAT itself to detect misspelled keywords
-   --  and identifiers, and is heuristically adjusted to be appropriate to
-   --  this usage. It will work well in any similar case of named entities
-   --  with relatively short mnemonic names.
+   --  Note: the spec of this routine is deliberately rather vague. It is used
+   --  by GNAT itself to detect misspelled keywords and identifiers, and is
+   --  heuristically adjusted to be appropriate to this usage. It will work
+   --  well in any similar case of named entities.
 
 end GNAT.Spelling_Checker;

diff --git a/gcc/ada/mlib-tgt.adb b/gcc/ada/mlib-tgt.adb
index e7cee9e..e4d0441 100644 (file)
--- a/gcc/ada/mlib-tgt.adb
+++ b/gcc/ada/mlib-tgt.adb
@@ -499,4 +499,5 @@ package body MLib.Tgt is
    begin
       return Full;
    end Support_For_Libraries_Default;
+
 end MLib.Tgt;