From 014c00953445614f1eabdf244a67f8a086bb3c8c Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 13 Dec 2007 11:59:30 +0100 Subject: [PATCH] Update comments. Minor reformatting. Kill new warnings. From-SVN: r130888 --- gcc/ada/g-socket.adb | 8 ++++++++ gcc/ada/g-speche.ads | 19 +++++++++---------- gcc/ada/mlib-tgt.adb | 1 + 3 files changed, 18 insertions(+), 10 deletions(-) diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 0efe260..04cfdd7 100644 --- 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 --- 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 --- 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; -- 2.7.4