# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1038267019 0
# Node ID 538af265a4a76099dcb54ad1bae31fed4e1c406b
# Parent  25945a0f9ea57babbd18e9ef76ca8a8348f539b9
(sys_write): Avoid non-blocking mode, which is not fully
supported.

diff -r 25945a0f9ea5 -r 538af265a4a7 src/w32.c
--- a/src/w32.c	Mon Nov 25 23:29:35 2002 +0000
+++ b/src/w32.c	Mon Nov 25 23:30:19 2002 +0000
@@ -3709,8 +3709,24 @@
 #ifdef HAVE_SOCKETS
   if (fd_info[fd].flags & FILE_SOCKET)
     {
+      unsigned long nblock = 0;
       if (winsock_lib == NULL) abort ();
+
+      /* TODO: implement select() properly so non-blocking I/O works. */
+      /* For now, make sure the write blocks.  */
+      if (fd_info[fd].flags & FILE_NDELAY)
+	pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
+
       nchars =  pfn_send (SOCK_HANDLE (fd), buffer, count, 0);
+
+      /* Set the socket back to non-blocking if it was before,
+	 for other operations that support it.  */
+      if (fd_info[fd].flags & FILE_NDELAY)
+	{
+	  nblock = 1;
+	  pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
+	}
+
       if (nchars == SOCKET_ERROR)
         {
 	  DebPrint(("sys_read.send failed with error %d on socket %ld\n",