aboutsummaryrefslogtreecommitdiffhomepage
path: root/stm/tQueue.mli
diff options
context:
space:
mode:
Diffstat (limited to 'stm/tQueue.mli')
-rw-r--r--stm/tQueue.mli3
1 files changed, 2 insertions, 1 deletions
diff --git a/stm/tQueue.mli b/stm/tQueue.mli
index 5ee2cf99c..9cd651f4a 100644
--- a/stm/tQueue.mli
+++ b/stm/tQueue.mli
@@ -10,10 +10,11 @@
type 'a t
val create : unit -> 'a t
-val pop : ?picky:('a -> bool) -> 'a t -> 'a
+val pop : ?picky:('a -> bool) -> ?destroy:bool ref -> 'a t -> 'a
val push : 'a t -> 'a -> unit
val set_order : 'a t -> ('a -> 'a -> int) -> unit
val wait_until_n_are_waiting_and_queue_empty : int -> 'a t -> unit
+val signal_destruction : 'a t -> unit
(* Non destructive *)
val wait_until_n_are_waiting_then_snapshot : int -> 'a t -> 'a list