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.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129963 138bc75d-0d04-0410-961f-82ee72b054a4

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