diff options
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 1168496..0efe260 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); |