From 13f9fab941ab9f3d0f7e7f5cdd8849ee09a0dc9c Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Mon, 1 Apr 1996 15:26:38 +0000
Subject: 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
---
 otherlibs/unix/write.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'otherlibs/unix/write.c')

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();
-- 
cgit v1.2.3-70-g09d2