Implementation du type file_descr par le type HANDLE de Win32. Court-circuite la libc de MSVC.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1700 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 5 insertions, 2 deletions

diff --git a/otherlibs/win32unix/bind.c b/otherlibs/win32unix/bind.c
index e85a5c312..5af7da326 100644
--- a/otherlibs/win32unix/bind.c
+++ b/otherlibs/win32unix/bind.c
@@ -20,7 +20,10 @@ value unix_bind(socket, address)      /* ML */
 {
   int ret;
   get_sockaddr(address);
-  ret = bind(_get_osfhandle(Int_val(socket)), &sock_addr.s_gen, sock_addr_len);
-  if (ret == -1) uerror("bind", Nothing);
+  ret = bind((SOCKET) Handle_val(socket), &sock_addr.s_gen, sock_addr_len);
+  if (ret == -1) {
+    _dosmaperr(WSAGetLastError());
+    uerror("bind", Nothing);
+  }
   return Val_unit;
 }