perf pool: use relax() in spin loop

This commit is contained in:
Simon Cruanes 2023-06-08 00:19:24 -04:00
parent 259fee2722
commit 0b70060c40
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -18,7 +18,7 @@ let add_global_thread_loop_wrapper f : unit =
let l = A.get global_thread_wrappers_ in
not (A.compare_and_set global_thread_wrappers_ l (f :: l))
do
()
Domain_.relax ()
done
exception Shutdown