Commit 7af45daf authored by AndreasVoellmy's avatar AndreasVoellmy Committed by tibbe

Added NOINLINE directive to the numEnabledEventManagers IORef in GHC.Event.Thread.

parent f182e7d9
......@@ -195,6 +195,7 @@ eventManager = unsafePerformIO $ do
numEnabledEventManagers :: IORef Int
numEnabledEventManagers = unsafePerformIO $ do
newIORef 0
{-# NOINLINE numEnabledEventManagers #-}
foreign import ccall unsafe "getOrSetSystemEventThreadIOManagerThreadStore"
getOrSetSystemEventThreadIOManagerThreadStore :: Ptr a -> IO (Ptr a)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment