Ajout d'un mutex pour rendre ca thread-safe

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@728 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 5 insertions, 1 deletions

diff --git a/otherlibs/threads/Tests/sorts.ml b/otherlibs/threads/Tests/sorts.ml
index ebdc61dac..184cda455 100644
--- a/otherlibs/threads/Tests/sorts.ml
+++ b/otherlibs/threads/Tests/sorts.ml
@@ -17,15 +17,19 @@ type graphic_context =
 
 (* Array assignment and exchange with screen update *)
 
+let screen_mutex = Mutex.new()
+
 let draw gc i v =
   fill_rect (gc.x0 + (gc.width * i) / gc.nelts)
             (gc.y0 + (gc.height * v) / gc.maxval)
             gc.rad gc.rad
 
 let assign gc i v =
+  Mutex.lock screen_mutex;
   set_color background; draw gc i gc.array.(i);
   set_color foreground; draw gc i v;
-  gc.array.(i) <- v
+  gc.array.(i) <- v;
+  Mutex.unlock screen_mutex
 
 let exchange gc i j =
   let val_i = gc.array.(i) in