From 4881188039568837d0a12ef8c73450718957f58b Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sat, 25 Jan 2020 19:17:22 -0500 Subject: Thread instrumentation: half as many MVars. --- lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs b/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs index adce64ba..0b608213 100644 --- a/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs +++ b/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs @@ -44,7 +44,7 @@ data PerThread = PerThread {-# NOINLINE globalMVarArray #-} globalMVarArray :: Vector (MVar (Map.Map ThreadId PerThread)) -globalMVarArray = unsafePerformIO (sequence (V.replicate 256 (newMVar Map.empty))) +globalMVarArray = unsafePerformIO (sequence (V.replicate 128 (newMVar Map.empty))) data GlobalState = GlobalState { reportException :: String -> IO () -- cgit v1.2.3