simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-10 05:03:58 -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 a143cc8489
commit 8cb09c01c4
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

@ -96,6 +96,11 @@ let domains_ : (worker_state option * Domain_.t option) Lock.t array =
in a tight loop), and if nothing happens it tries to stop to free resources. in a tight loop), and 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