diff options
| author | Thomas Quinot <quinot@adacore.com> | 2009-04-20 09:31:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 11:31:00 +0200 |
| commit | 6e55ac7a64a64ac0b066e5fc67969fa47a8f0e89 (patch) | |
| tree | 5cc2c1db263cdb3a3276ab2e9864c417a77074ed | |
| parent | 566fef1d5f3dc7d16c66ff7d599d50802655d0c6 (diff) | |
| download | gcc-6e55ac7a64a64ac0b066e5fc67969fa47a8f0e89.zip gcc-6e55ac7a64a64ac0b066e5fc67969fa47a8f0e89.tar.gz gcc-6e55ac7a64a64ac0b066e5fc67969fa47a8f0e89.tar.bz2 | |
g-socket.ads (Send_Socket): Fix misleading comment.
2009-04-20 Thomas Quinot <quinot@adacore.com>
* g-socket.ads (Send_Socket): Fix misleading comment.
From-SVN: r146384
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/g-socket.ads | 21 |
2 files changed, 14 insertions, 11 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 204592b..d5a0cd7 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2009-04-20 Thomas Quinot <quinot@adacore.com> + + * g-socket.ads (Send_Socket): Fix misleading comment. + 2009-04-20 Arnaud Charlet <charlet@adacore.com> * switch-c.adb (Scan_Front_End_Switches): Disable inspector mode in diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 8de8f02..96d3428 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -935,10 +935,9 @@ package GNAT.Sockets is Item : Ada.Streams.Stream_Element_Array; Last : out Ada.Streams.Stream_Element_Offset; Flags : Request_Flag_Type := No_Request_Flag); - -- Transmit a message over a socket. Note that Last is set to - -- Item'First-1 when socket has been closed by peer. This is not - -- considered an error and no exception is raised. Flags allows to control - -- the transmission. Raises Socket_Error on any other error condition. + -- Transmit a message over a socket. Upon return, Last is set to the index + -- within Item of the last element transmitted. Flags allows to control + -- the transmission. Raises Socket_Error on any detected error condition. procedure Send_Socket (Socket : Socket_Type; @@ -975,14 +974,13 @@ package GNAT.Sockets is -- Same interface as Ada.Streams.Stream_IO function Stream (Socket : Socket_Type) return Stream_Access; - -- Create a stream associated with a stream-based socket that is - -- already connected. + -- Create a stream associated with an already connected stream-based socket function Stream (Socket : Socket_Type; Send_To : Sock_Addr_Type) return Stream_Access; - -- Create a stream associated with a datagram-based socket that is already - -- bound. Send_To is the socket address to which messages are being sent. + -- Create a stream associated with an already bound datagram-based socket. + -- Send_To is the destination address to which messages are being sent. function Get_Address (Stream : not null Stream_Access) return Sock_Addr_Type; @@ -996,9 +994,10 @@ package GNAT.Sockets is type Socket_Set_Type is limited private; -- This type allows to manipulate sets of sockets. It allows to wait for - -- events on multiple endpoints at one time. This type used to contain - -- a pointer to dynamically allocated storage, but this is not the case - -- anymore, and no special precautions are required to avoid memory leaks. + -- events on multiple endpoints at one time. + -- Note: This type used to contain a pointer to dynamically allocated + -- storage, but this is not the case anymore, and no special precautions + -- are required to avoid memory leaks. procedure Clear (Item : in out Socket_Set_Type; Socket : Socket_Type); -- Remove Socket from Item |