Impossible case alternative
With q.hs
:
{-# LANGUAGE MagicHash, UnboxedTuples, UnliftedFFITypes #-}
module Main (main) where
import GHC.Base
import GHC.Integer.GMP.Internals
main :: IO ()
main = (encodeDouble 0 :: Double) `seq` return ()
{-# INLINE encodeDouble #-}
encodeDouble :: Integer -> Double
encodeDouble (S# _) = D# 3.0##
encodeDouble (J# _ _) = D# 4.0##
with the HEAD I get:
$ ghc --make q -O -dcore-lint -dcmm-lint
[1 of 1] Compiling Main ( q.hs, q.o )
Linking q ...
$ ./q
q: Impossible case alternative
Trac metadata
Trac field | Value |
---|---|
Version | 7.3 |
Type | Bug |
TypeOfFailure | OtherFailure |
Priority | highest |
Resolution | Unresolved |
Component | Compiler |
Test case | |
Differential revisions | |
BlockedBy | |
Related | |
Blocking | |
CC | |
Operating system | |
Architecture |