diff options
| author | Samuel Tardieu <sam@rfc1149.net> | 2007-11-07 14:49:46 +0000 |
|---|---|---|
| committer | Samuel Tardieu <sam@gcc.gnu.org> | 2007-11-07 14:49:46 +0000 |
| commit | dcbd752dc4bb412ac4cba7bb85e24a2240b65c75 (patch) | |
| tree | 7165cf5e6d5b9b91519feb9606f0ccefa5aebbc1 /gcc/ada/g-socket.adb | |
| parent | f9d806de0b5f93a0ceb957e7895cafa83761392b (diff) | |
| download | gcc-dcbd752dc4bb412ac4cba7bb85e24a2240b65c75.tar.gz | |
a-tasatt.adb: Use 'Access instead of 'Unchecked_Access when applicable.
gcc/ada/
* a-tasatt.adb: Use 'Access instead of 'Unchecked_Access when
applicable. Local lifetime is the one of the package.
(Set_Value): W is allocated on the heap.
* g-socket.adb: Use 'Access instead of 'Unchecked_Access when
applicable.
(Get_Socket_Option): Optlen formal of C_Getsockopt is of an anonymous
access type.
(Receive_Socket): Fromlen formal of C_Recvfrom is of an anonymous
access type.
* s-taasde.adb: Use 'Access instead of 'Unchecked_Access when
applicable.
(elaboration code): Timer_Queue lifetime is the one of the
package.
From-SVN: r129963
Diffstat (limited to 'gcc/ada/g-socket.adb')
| -rw-r--r-- | gcc/ada/g-socket.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 11684962eba..0efe260e1b1 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -978,7 +978,7 @@ package body GNAT.Sockets is (C.int (Socket), Levels (Level), Options (Name), - Add, Len'Unchecked_Access); + Add, Len'Access); if Res = Failure then Raise_Socket_Error (Socket_Errno); @@ -1440,7 +1440,7 @@ package body GNAT.Sockets is Item'Length, To_Int (Flags), Sin'Unchecked_Access, - Len'Unchecked_Access); + Len'Access); if Res = Failure then Raise_Socket_Error (Socket_Errno); |