Yesterday's ghc-4.02 dies during compilation of the following
program. Without -O everything is OK.
------------------------------------------------------------------
module Foo where
import Addr
foreign export ccall dynamic bar :: IO () -> IO Addr
------------------------------------------------------------------
panne@liesl: > ghc -c -fglasgow-exts -O Foo.hs
panic! (the `impossible' happened):
Missing alternative PrelStable.StablePtr{-r1ad,i-}
(PrelStable.StablePtr{-6g,w-},
[ds_s1tc],
case {-_ccall-}__ccall createAdjustor {__a
(PrelGHC.State#{-3z,W-} PrelGHC.RealWorld{-3w,W-}
->
PrelGHC.Int#{-3e,W-}
->
PrelGHC.StablePtr#{-3x,W-} (PrelIOBase.IO{-3T,i-} PrelBase.(){-40,W-})
->
PrelGHC.Addr#{-31,W-}
-> (#
PrelGHC.State#{-3z,W-} PrelGHC.RealWorld{-3w,W-},
PrelGHC.Addr#{-31,W-} #))
ds_s1t8 __Us
1
ds_s1tc
(__litlit "d1tU"
PrelGHC.Addr#{-31,W-})}
of ds_s1th { (# ds_s1ti, ds_s1tg #) ->
let { s_s1tk = PrelAddr.A#{-61,w-} {ds_s1tg}
} in (# ds_s1ti, s_s1tk #)
})
Please report it as a compiler bug to [EMAIL PROTECTED]
Done! :-)
Cheers,
Sven
--
Sven Panne Tel.: +49/89/2178-2235
LMU, Institut fuer Informatik FAX : +49/89/2178-2211
LFE Programmier- und Modellierungssprachen Oettingenstr. 67
mailto:[EMAIL PROTECTED] D-80538 Muenchen
http://www.pms.informatik.uni-muenchen.de/mitarbeiter/panne
