diff options
Diffstat (limited to 'byterun/io.c')
| -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; } |