OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update comments.

Browse Source 
Minor reformatting.
Kill new warnings.

From-SVN: r130888
This commit is contained in:
Arnaud Charlet 2007-12-13 11:59:30 +01:00
parent 14b7d74b58
commit 014c009534
3 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/g-socket.adb
View File

@ -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;

19
gcc/ada/g-speche.ads
View File

@ -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;

1
gcc/ada/mlib-tgt.adb
View File

@ -499,4 +499,5 @@ package body MLib.Tgt is
begin
return Full;
end Support_For_Libraries_Default;
end MLib.Tgt;