mirror of
https://github.com/c-cube/moonpool.git
synced 2026-01-27 11:44:50 -05:00
9fb23bed4c
we factor most of the thread workers' logic in `Worker_loop_`, which is now shared between Ws_pool and Fifo_pool
31 lines
842 B
OCaml
31 lines
842 B
OCaml
(** Work-stealing deque.
|
|
|
|
Adapted from "Dynamic circular work stealing deque", Chase & Lev.
|
|
|
|
However note that this one is not dynamic in the sense that there
|
|
is no resizing. Instead we return [false] when [push] fails, which
|
|
keeps the implementation fairly lightweight.
|
|
*)
|
|
|
|
type 'a t
|
|
(** Deque containing values of type ['a] *)
|
|
|
|
val create : dummy:'a -> unit -> 'a t
|
|
(** Create a new deque. *)
|
|
|
|
val push : 'a t -> 'a -> bool
|
|
(** Push value at the bottom of deque. returns [true] if it succeeds.
|
|
This must be called only by the owner thread. *)
|
|
|
|
val pop : 'a t -> 'a option
|
|
(** Pop value from the bottom of deque.
|
|
This must be called only by the owner thread. *)
|
|
|
|
exception Empty
|
|
|
|
val pop_exn : 'a t -> 'a
|
|
|
|
val steal : 'a t -> 'a option
|
|
(** Try to steal from the top of deque. This is thread-safe. *)
|
|
|
|
val size : _ t -> int
|