diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1999-02-24 16:35:33 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1999-02-24 16:35:33 +0000 |
| commit | be894f1d3a01f3679dfd98d48e93aedeb76d7d48 (patch) | |
| tree | b6faf6d1f113faa76e8135ed2f990accd98a5ea3 /otherlibs/win32unix/socket.c | |
| parent | 138526c31b34e1007a4ebba88f31996aba6f1ed9 (diff) | |
Retour en arriere sur les sockets asynchrones (ne marche pas avec tk)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2307 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/win32unix/socket.c')
| -rw-r--r-- | otherlibs/win32unix/socket.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/otherlibs/win32unix/socket.c b/otherlibs/win32unix/socket.c index 5e8d218ec..a69867cfd 100644 --- a/otherlibs/win32unix/socket.c +++ b/otherlibs/win32unix/socket.c @@ -24,7 +24,7 @@ int socket_type_table[] = { SOCK_STREAM, SOCK_DGRAM, SOCK_RAW, SOCK_SEQPACKET }; -value unix_socket(domain, type, proto, synchronous) /* ML */ +value unix_socket(domain, type, proto) /* ML */ value domain, type, proto; { SOCKET s; @@ -34,8 +34,8 @@ value unix_socket(domain, type, proto, synchronous) /* ML */ retcode = getsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE, (char *) &oldvalue, &oldvaluelen); if (retcode == 0) { - /* Set sockets to synchronous or asnychronous mode, as requested */ - newvalue = Bool_val(synchronous) ? SO_SYNCHRONOUS_NONALERT : 0; + /* Set sockets to synchronous mode */ + newvalue = SO_SYNCHRONOUS_NONALERT; setsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE, (char *) &newvalue, sizeof(newvalue)); } |