[commit: base] : Added NOINLINE directive to the numEnabledEventManagers IORef in GHC.Event.Thread. (c4eaeb5)

[Johan Tibell]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/c4eaeb5ff31044bcd8a54c633a132dd2fcf55039

>---------------------------------------------------------------

commit c4eaeb5ff31044bcd8a54c633a132dd2fcf55039
Author: Andreas Voellmy <andreas.voellmy at gmail.com>
Date:   Mon Jan 7 21:43:39 2013 -0500

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

>---------------------------------------------------------------

 GHC/Event/Thread.hs |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/GHC/Event/Thread.hs b/GHC/Event/Thread.hs
index 0c91267..970e7c8 100644
--- a/GHC/Event/Thread.hs
+++ b/GHC/Event/Thread.hs
@@ -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)