compat 4.08

This commit is contained in:
Simon Cruanes 2023-10-25 23:50:34 -04:00
parent 3e614ec992
commit 5409cf8e1b
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -18,7 +18,7 @@ type mut_cond = {
} }
type state = { type state = {
active: bool Atomic.t; (** Becomes [false] when the pool is shutdown. *) active: bool A.t; (** Becomes [false] when the pool is shutdown. *)
workers: worker_state array; (** Fixed set of workers. *) workers: worker_state array; (** Fixed set of workers. *)
main_q: task Queue.t; (** Main queue for tasks coming from the outside *) main_q: task Queue.t; (** Main queue for tasks coming from the outside *)
mc: mut_cond; (** Used to block on [main_q] *) mc: mut_cond; (** Used to block on [main_q] *)