simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

b_queue: signal only if queue was empty

Browse source
This commit is contained in:
Corentin Leruth 2023-08-23 08:43:13 +02:00 • committed by Simon Cruanes
parent 96fb44e6bb
commit efafd34a9e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/tef/b_queue.ml
View file

@ -29,8 +29,9 @@ let push (self : _ t) x : unit =
Mutex.unlock self.mutex; Mutex.unlock self.mutex;
raise Closed raise Closed
) else ( ) else (
let was_empty = Queue.is_empty self.q in
Queue.push x self.q; Queue.push x self.q;
Condition.signal self.cond; if was_empty then Condition.signal self.cond;
Mutex.unlock self.mutex Mutex.unlock self.mutex
) )