From 0d4ed1390eeb7ce5087ac82cdfdd01a1540946b9 Mon Sep 17 00:00:00 2001 From: Maxime Dénès Date: Mon, 4 Sep 2017 17:03:34 +0200 Subject: Fix BZ#5655 by avoiding the creation of a cleaner thread for empty queues. While this is a good workaround, Enrico has a minimal example of the underlying issue that we will send to the OCaml team. --- stm/asyncTaskQueue.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'stm/asyncTaskQueue.ml') diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml index 9c58df5b2..d89bf5d34 100644 --- a/stm/asyncTaskQueue.ml +++ b/stm/asyncTaskQueue.ml @@ -237,7 +237,7 @@ module Make(T : Task) = struct type queue = { active : Pool.pool; queue : (T.task * expiration) TQueue.t; - cleaner : Thread.t; + cleaner : Thread.t option; } let create size = @@ -250,7 +250,7 @@ module Make(T : Task) = struct { active = Pool.create queue ~size; queue; - cleaner = Thread.create cleaner queue; + cleaner = if size > 0 then Some (Thread.create cleaner queue) else None; } let destroy { active; queue } = -- cgit v1.2.3