diff options
Diffstat (limited to 'gcc/ada/g-socthi-vxworks.adb')
| -rw-r--r-- | gcc/ada/g-socthi-vxworks.adb | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/gcc/ada/g-socthi-vxworks.adb b/gcc/ada/g-socthi-vxworks.adb index 81a8d96eeed..d035b61f807 100644 --- a/gcc/ada/g-socthi-vxworks.adb +++ b/gcc/ada/g-socthi-vxworks.adb @@ -102,13 +102,6 @@ package body GNAT.Sockets.Thin is Fromlen : not null access C.int) return C.int; pragma Import (C, Syscall_Recvfrom, "recvfrom"); - function Syscall_Send - (S : C.int; - Msg : System.Address; - Len : C.int; - Flags : C.int) return C.int; - pragma Import (C, Syscall_Send, "send"); - function Syscall_Sendto (S : C.int; Msg : System.Address; @@ -298,31 +291,6 @@ package body GNAT.Sockets.Thin is return Res; end C_Recvfrom; - ------------ - -- C_Send -- - ------------ - - function C_Send - (S : C.int; - Msg : System.Address; - Len : C.int; - Flags : C.int) return C.int - is - Res : C.int; - - begin - loop - Res := Syscall_Send (S, Msg, Len, Flags); - exit when SOSC.Thread_Blocking_IO - or else Res /= Failure - or else Non_Blocking_Socket (S) - or else Errno /= SOSC.EWOULDBLOCK; - delay Quantum; - end loop; - - return Res; - end C_Send; - -------------- -- C_Sendto -- -------------- |