[GHC] #8402: throwTo segfaults under -prof -threaded -with-rtsopts=N2

[GHC]

#8402: throwTo segfaults under -prof -threaded -with-rtsopts=N2
----------------------------------+----------------------------------
       Reporter:  akio            |             Owner:
           Type:  bug             |            Status:  new
       Priority:  normal          |         Milestone:
      Component:  Compiler        |           Version:  7.7
       Keywords:                  |  Operating System:  Linux
   Architecture:  x86_64 (amd64)  |   Type of failure:  Runtime crash
     Difficulty:  Unknown         |         Test Case:
     Blocked By:                  |          Blocking:
Related Tickets:                  |
----------------------------------+----------------------------------
 Save the following module as {{{throwto.hs}}}

 {{{
 import Control.Concurrent
 import Control.Exception
 import Control.Monad

 main = do
   tid <- mask_ $ forkIO $ void $
     (try $ threadDelay 100000 :: IO (Either SomeException ()))
   killThread tid
 }}}

 Then compile it with HEAD and run it:

 {{{
 ghc-stage2 throwto.hs -prof -threaded -fforce-recomp
 ./throwto +RTS -N2
 # segfaults
 }}}

-- 
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/8402>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler