simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-05 19:00:33 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix domain pool: block signals in background threads

Browse source 
close #35
This commit is contained in:
Simon Cruanes 2024-10-08 15:28:04 -04:00
parent c3f235f7e9
commit 40e97d969a
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/dpool/moonpool_dpool.ml
View file

@ -95,6 +95,11 @@ let domains_ : (worker_state option * Domain_.t option) Lock.t array =
a [Pool.with_] or [Pool.create() … Pool.shutdown()] in a tight loop), and a [Pool.with_] or [Pool.create() … Pool.shutdown()] in a tight loop), and
if nothing happens it tries to stop to free resources. *) if nothing happens it tries to stop to free resources. *)
let work_ idx (st : worker_state) : unit = let work_ idx (st : worker_state) : unit =
Thread.sigmask SIG_BLOCK
[
Sys.sigpipe; Sys.sigbus; Sys.sigterm; Sys.sigint; Sys.sigusr1; Sys.sigusr2;
]
|> ignore;
let main_loop () = let main_loop () =
let continue = ref true in let continue = ref true in
while !continue do while !continue do