diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-21 19:54:01 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-21 19:54:01 +0000 |
| commit | c3d22aafe2ea6e541c10236456731e16d71e05f5 (patch) | |
| tree | 572d0ae3c24e3be1bc0c147e731c9efac7d01182 /gcc/ada/g-socket.ads | |
| parent | 89c21b2fa07ccaeefcd9f13f1b0674f7881b79c4 (diff) | |
| download | gcc-c3d22aafe2ea6e541c10236456731e16d71e05f5.tar.gz | |
2008-04-21 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r134525
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@134526 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-socket.ads')
| -rw-r--r-- | gcc/ada/g-socket.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 0ed1be0124d..55b68134515 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -900,7 +900,8 @@ package GNAT.Sockets is -- 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. - function Get_Address (Stream : Stream_Access) return Sock_Addr_Type; + function Get_Address + (Stream : not null Stream_Access) return Sock_Addr_Type; -- Return the socket address from which the last message was received procedure Free is new Ada.Unchecked_Deallocation |