diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-04-01 15:26:38 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-04-01 15:26:38 +0000 |
| commit | 13f9fab941ab9f3d0f7e7f5cdd8849ee09a0dc9c (patch) | |
| tree | 1b98ed21efb611011906bacbb87f23bbcbb4feb7 /otherlibs/unix/write.c | |
| parent | 97e6ed9a731f2f1dff903c08481e61b518721387 (diff) | |
Adaptation aux threads: un GC mineur peut se declencher et deplacer
des objets des qu'on rentre en blocking_section.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@720 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/unix/write.c')
| -rw-r--r-- | otherlibs/unix/write.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/otherlibs/unix/write.c b/otherlibs/unix/write.c index 99ab72131..db7ab276c 100644 --- a/otherlibs/unix/write.c +++ b/otherlibs/unix/write.c @@ -18,6 +18,7 @@ value unix_write(fd, buf, ofs, len) /* ML */ value fd, buf, ofs, len; { int ret; + buf = unix_freeze_buffer(buf); enter_blocking_section(); ret = write(Int_val(fd), &Byte(buf, Long_val(ofs)), Int_val(len)); leave_blocking_section(); |