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

fix: in blocking queue, pop works on a non empty closed queue

Browse source
This commit is contained in:
Simon Cruanes 2023-06-15 22:24:58 -04:00
parent 4e112e1591
commit 67bc47181c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/bb_queue.ml
View file

@ -37,10 +37,12 @@ let push (self : _ t) x : unit =
let pop (self : 'a t) : 'a = let pop (self : 'a t) : 'a =
Mutex.lock self.mutex; Mutex.lock self.mutex;
let rec loop () = let rec loop () =
if self.closed then ( if Queue.is_empty self.q then (
Mutex.unlock self.mutex; if self.closed then (
raise Closed Mutex.unlock self.mutex;
) else if Queue.is_empty self.q then ( raise Closed
);
Condition.wait self.cond self.mutex; Condition.wait self.cond self.mutex;
(loop [@tailcall]) () (loop [@tailcall]) ()
) else ( ) else (