diff options
Diffstat (limited to 'otherlibs/threads/mutex.ml')
| -rw-r--r-- | otherlibs/threads/mutex.ml | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/otherlibs/threads/mutex.ml b/otherlibs/threads/mutex.ml deleted file mode 100644 index 2858a2414d..0000000000 --- a/otherlibs/threads/mutex.ml +++ /dev/null @@ -1,39 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy and Damien Doligez, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the GNU Library General Public License, with *) -(* the special exception on linking described in file ../../LICENSE. *) -(* *) -(***********************************************************************) - -(* $Id$ *) - -type t = { mutable locked: bool; mutable waiting: Thread.t list } - -let create () = { locked = false; waiting = [] } - -let rec lock m = - if m.locked then begin (* test and set atomic *) - Thread.critical_section := true; - m.waiting <- Thread.self() :: m.waiting; - Thread.sleep(); - lock m - end else begin - m.locked <- true (* test and set atomic *) - end - -let try_lock m = (* test and set atomic *) - if m.locked then false else begin m.locked <- true; true end - -let unlock m = - (* Don't play with Thread.critical_section here because of Condition.wait *) - let w = m.waiting in (* atomic *) - m.waiting <- []; (* atomic *) - m.locked <- false; (* atomic *) - List.iter Thread.wakeup w - |