Re: cgEvalAlts

[Wolfgang Thaller]

Here's some much simpler code to reproduce it:

{-# OPTIONS -fno-implicit-prelude -fglasgow-exts -O -fasm #-}
module CgEvalAltsPanic where
import GHC.Prim
data Exception = Foo | Bar
                
bug2 m h err s# =
        case putMVar# m h s# of
                s2# -> case err of
                        Foo -> raiseIO# err s2#
                        _ -> raiseIO# err s2#
Cheers,

Wolfgang

_______________________________________________
Cvs-ghc mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/cvs-ghc