Source

ocaml-core / base / core / lib / core_mutex.ml

The branch 'bash' does not exist.
Full commit
1
2
3
4
5
6
7
8
INCLUDE "config.mlh"
include Mutex0
IFDEF MUTEX_TIMED_LOCK THEN
(* POSIX thread functions *)
external mutex_timedlock : Mutex.t -> float -> bool = "unix_mutex_timedlock"

let timedlock mtx time = mutex_timedlock mtx (Time.to_float time)
ENDIF