diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-13 10:59:30 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-13 10:59:30 +0000 |
| commit | d2771601ecac37380515c4a45997dae662c3ab3c (patch) | |
| tree | 5cdd9736865ff1d01b3e62580bb1132dadcf1cc0 /gcc/ada/g-socket.adb | |
| parent | 01c2c43682b84418fd5089d990941977664858dd (diff) | |
| download | ppe42-gcc-d2771601ecac37380515c4a45997dae662c3ab3c.tar.gz ppe42-gcc-d2771601ecac37380515c4a45997dae662c3ab3c.zip | |
Update comments.
Minor reformatting.
Kill new warnings.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130888 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-socket.adb')
| -rw-r--r-- | gcc/ada/g-socket.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 0efe260e1b1..04cfdd74d01 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; |
