From ce4946768c5f295b8e11d6e3c420ac9d8f83f8ca Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Sat, 15 Oct 2011 09:02:22 +0000 Subject: PR#5328: Windows, Unix.select and non-blocking sockets (untested patch) git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@11223 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/win32unix/unixsupport.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'otherlibs/win32unix/unixsupport.c') diff --git a/otherlibs/win32unix/unixsupport.c b/otherlibs/win32unix/unixsupport.c index 2a45684a6..f6431955b 100644 --- a/otherlibs/win32unix/unixsupport.c +++ b/otherlibs/win32unix/unixsupport.c @@ -54,7 +54,7 @@ value win_alloc_handle(HANDLE h) Handle_val(res) = h; Descr_kind_val(res) = KIND_HANDLE; CRT_fd_val(res) = NO_CRT_FD; - Flags_fd_val(res) = 0; + Flags_fd_val(res) = FLAGS_FD_IS_BLOCKING; return res; } @@ -64,7 +64,7 @@ value win_alloc_socket(SOCKET s) Socket_val(res) = s; Descr_kind_val(res) = KIND_SOCKET; CRT_fd_val(res) = NO_CRT_FD; - Flags_fd_val(res) = 0; + Flags_fd_val(res) = FLAGS_FD_IS_BLOCKING; return res; } -- cgit v1.2.3-70-g09d2