internal error: resurrectThreads: thread blocked in a strange way: 12

[igloo]

With 6.13.20100428:

w.hs:

module Main where

import Control.Concurrent ( forkIO, killThread )
import Control.Exception  ( block )

main :: IO ()
main = do tid <- block $ forkIO $ let x = x in x
          killThread tid

$ ghc --make -O w -threaded -fforce-recomp
[1 of 1] Compiling Main             ( w.hs, w.o )
Linking w ...
$ ./w
w: internal error: resurrectThreads: thread blocked in a strange way: 12
    (GHC version 6.13.20100428 for x86_64_unknown_linux)
    Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug
zsh: abort      ./w

[simonmar]

Fixed:

Wed May  5 10:45:34 BST 2010  Simon Marlow <marlowsd@gmail.com>
  * BlockedOnMsgThrowTo is possible in resurrectThreads (#4030)