diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-17 13:39:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-17 13:39:10 +0000 |
| commit | 7ea04e307dc3518bf97d99054c9c9ca7cff1b0d3 (patch) | |
| tree | 0f576309d61e6257ec752f221eca1047adf3bc41 /gcc/ada/g-socthi-mingw.adb | |
| parent | 3164ed990bfd2faa330a8536cd22fa4f2c638fd9 (diff) | |
| download | gcc-7ea04e307dc3518bf97d99054c9c9ca7cff1b0d3.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146267 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-socthi-mingw.adb')
| -rw-r--r-- | gcc/ada/g-socthi-mingw.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/g-socthi-mingw.adb b/gcc/ada/g-socthi-mingw.adb index a85a2572d8f..c3a120f32a1 100644 --- a/gcc/ada/g-socthi-mingw.adb +++ b/gcc/ada/g-socthi-mingw.adb @@ -390,11 +390,13 @@ package body GNAT.Sockets.Thin is begin for J in Iovec'Range loop - Res := C_Send + Res := C_Sendto (Fd, Iovec (J).Base.all'Address, C.int (Iovec (J).Length), - 0); + Flags => 0, + To => null, + Tolen => 0); if Res < 0 then return Res; |