diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-12-01 15:50:55 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-12-01 15:50:55 +0100 |
| commit | bdc8db8649ceb2c64f5b31536227d6f7c01ef42a (patch) | |
| tree | b870b4442441e58e02761e959f3ed41652682a69 | |
| parent | 15ac614a894d2eb9414f68b449d7f153f5882f94 (diff) | |
| download | ocaml-win32-sockets.tar.gz | |
Typo in do_read (byterun/io.c)win32-sockets
| -rw-r--r-- | byterun/io.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/byterun/io.c b/byterun/io.c index 48c9c00542..b7c5d02205 100644 --- a/byterun/io.c +++ b/byterun/io.c @@ -271,6 +271,7 @@ static int do_read(int fd, int flags, char *p, unsigned int n) caml_enter_blocking_section(); retcode = caml_read_fd(fd, flags & CHANNEL_FLAG_FROM_SOCKET, p, n); + caml_leave_blocking_section(); if (retcode == -1) caml_sys_io_error(NO_ARG); return retcode; } |