[GHC] #3956: GHC6.12.2-RC1 runtime error: Invalid object in isRetainer(): 32

[GHC]

#3956: GHC6.12.2-RC1 runtime error: Invalid object in isRetainer(): 32
-------------------------------+--------------------------------------------
    Reporter:  jlouis          |       Owner:                                               
        Type:  bug             |      Status:  new                                          
    Priority:  normal          |   Component:  Runtime System                               
     Version:                  |    Keywords:  GHC6.12.2-RC1 Retainer Profiling isRetainer()
          Os:  Linux           |    Testcase:                                               
Architecture:  x86_64 (amd64)  |     Failure:  Runtime crash                                
-------------------------------+--------------------------------------------

Comment(by jlouis):

 Verified that not all programs fail when enabling retainer profiling. This
 one works as an example:

 {{{

 import Control.Concurrent
 import Control.Exception

 import Prelude hiding (catch)

 main = do
   forkIO realmain
   forkIO temp
   v <- newEmptyMVar
   takeMVar v
   putMVar v ()

 temp = (do
     putStrLn "Forkey"
     v <- newEmptyMVar
     takeMVar v) `catch` (\(e :: SomeException) -> putStrLn "Caught")

 realmain = putStrLn "hi" >> threadDelay 2000000 >> realmain
 }}}

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/3956#comment:2>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler