diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-04-30 09:33:57 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-04-30 09:33:57 +0000 |
| commit | 1cbdeef09bbc3ab0a312b3c0438f588392ec2aa2 (patch) | |
| tree | 7a16e9c6dad4dc35f9340d1c18fdaa2290c94bcb /byterun/io.c | |
| parent | 5dbdb514dc516e246baeba061c7929ceba2a1350 (diff) | |
Suppression de enter_blocking_section et leave_blocking_section
dans do_write, car ca entraine une race condition quand plusieurs
threads ecrivent dans le meme channel.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@781 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/io.c')
| -rw-r--r-- | byterun/io.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/byterun/io.c b/byterun/io.c index 0c3f22dec..f9aa267a0 100644 --- a/byterun/io.c +++ b/byterun/io.c @@ -113,7 +113,6 @@ static int do_write(fd, p, n) int retcode; Assert(!Is_young(p)); - enter_blocking_section(); #ifdef HAS_UI retcode = ui_write(fd, p, n); #else @@ -132,7 +131,6 @@ again: } } #endif - leave_blocking_section(); if (retcode == -1) sys_error(NULL); return retcode; } |