diff options
| author | Thomas Quinot <quinot@adacore.com> | 2009-04-17 13:39:10 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-17 15:39:10 +0200 |
| commit | aed6fda81baff76d645be701b8bff8c458498745 (patch) | |
| tree | 0f576309d61e6257ec752f221eca1047adf3bc41 /gcc/ada/g-socthi-mingw.ads | |
| parent | c5d91669f305eb83adb2ef982b05ee19a15fbf47 (diff) | |
| download | gcc-aed6fda81baff76d645be701b8bff8c458498745.tar.gz | |
re PR ada/35953 (Socket stream subprograms incorrectly handling null arrays)
2009-04-17 Thomas Quinot <quinot@adacore.com>
PR ada/35953
* g-socthi-vms.adb, g-socthi-vms.ads, g-socthi-vxworks.adb,
g-socthi-vxworks.ads, g-socthi-mingw.adb, g-socthi-mingw.ads,
g-socthi.adb, g-stsifd-sockets.adb, g-socthi.ads, g-socket.adb,
g-socket.ads (GNAT.Sockets.Thin.C_Send,
GNAT.Sockets.Thin.Syscall_Send): Remove unused subprograms.
Replace calls to send(2) with equivalent sendto(2) calls.
(GNAT.Sockets.Send_Socket): Factor common code in inlined subprogram.
(GNAT.Sockets.Write): Account for the case of hyper-empty arrays, do not
report an error in that case. Factor code common to the two versions
(datagram and stream) in common routine Stream_Write.
From-SVN: r146267
Diffstat (limited to 'gcc/ada/g-socthi-mingw.ads')
| -rw-r--r-- | gcc/ada/g-socthi-mingw.ads | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/ada/g-socthi-mingw.ads b/gcc/ada/g-socthi-mingw.ads index 408d789665c..ab4e7b0d051 100644 --- a/gcc/ada/g-socthi-mingw.ads +++ b/gcc/ada/g-socthi-mingw.ads @@ -153,12 +153,6 @@ package GNAT.Sockets.Thin is Exceptfds : access Fd_Set; Timeout : Timeval_Access) return C.int; - function C_Send - (S : C.int; - Msg : System.Address; - Len : C.int; - Flags : C.int) return C.int; - function C_Sendto (S : C.int; Msg : System.Address; @@ -243,7 +237,6 @@ private pragma Import (Stdcall, C_Listen, "listen"); pragma Import (Stdcall, C_Recv, "recv"); pragma Import (Stdcall, C_Recvfrom, "recvfrom"); - pragma Import (Stdcall, C_Send, "send"); pragma Import (Stdcall, C_Sendto, "sendto"); pragma Import (Stdcall, C_Setsockopt, "setsockopt"); pragma Import (Stdcall, C_Shutdown, "shutdown"); |