#1251: GADTs with newtype deriving can crash GHCi / cause Core Lint to fail
-------------------------------------------------+--------------------------
Reporter: Stefan O'Rear <[EMAIL PROTECTED]> | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: Compiler | Version: 6.6
Severity: normal | Keywords:
Difficulty: Unknown | Testcase:
Architecture: x86 | Os: Linux
-------------------------------------------------+--------------------------
In my attempts to prove that GHC was generating errors on valid code, I
have stumbled on a way to crash six versions of GHC, both F and FC, and in
one case passing Core Lint!
{{{
[EMAIL PROTECTED]:/tmp$ V=6.4.2 ; ghc-$V -V ; ghc-$V -e 'seq icA ()' A.hs ;
ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.4.2
*** Exception: Segmentation fault
*** Exception: Segmentation fault
[EMAIL PROTECTED]:/tmp$ V=6.6 ; ghc-$V -V ; ghc-$V -e 'seq icA ()' A.hs ;
ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.6
mkCase1: null alts tpl_X6{v} [lid] main:A.icA{v rFP} [gid]
Segmentation fault
mkCase1: null alts tpl_X6{v} [lid] main:A.icA{v rFP} [gid]
ghc-6.6: panic! (the 'impossible' happened)
(GHC version 6.6 for i386-unknown-linux):
compileExpr
<no location info>:
In the expression: base:GHC.Err.error{(w) v 06} [gid]
@ base:GHC.Base.(){(w) tc 40} "Impossible
alternative"
Argument value doesn't match argument type:
Fun type:
[base:GHC.Base.Char{(w) tc 3o}] -> base:GHC.Base.(){(w) tc 40}
Arg type: base:GHC.Prim.Addr#{(w) tc 33}
Arg: "Impossible alternative"
Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug
[EMAIL PROTECTED]:/tmp$ V=6.7 ; ghc-$V -V ; ghc-$V -e 'seq icA ()' A.hs ;
ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.7
mkCase1: null alts tpl_B1{v} [lid] main:A.icA{v rq2} [gid]
Segmentation fault
mkCase1: null alts tpl_B1{v} [lid] main:A.icA{v rq2} [gid]
ghc-6.7: panic! (the 'impossible' happened)
(GHC version 6.7 for i386-unknown-linux):
compileExpr
<no location info>:
In the expression: base:GHC.Err.error{(w) v 06} [gid]
@ base:GHC.Base.(){(w) tc 40} "Impossible
alternative"
Argument value doesn't match argument type:
Fun type:
[base:GHC.Base.Char{(w) tc 3o}] -> base:GHC.Base.(){(w) tc 40}
Arg type: base:GHC.Prim.Addr#{(w) tc 33}
Arg: "Impossible alternative"
Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug
[EMAIL PROTECTED]:/tmp$ V=6.7.20070213 ; ghc-$V -V ; ghc-$V -e 'seq icA ()'
A.hs ; ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.7.20070213
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rsd} [gid]
Segmentation fault
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rsd} [gid]
ghc-6.7.20070213: panic! (the 'impossible' happened)
(GHC version 6.7.20070213 for i386-unknown-linux):
compileExpr
<no location info>:
In the expression: base:GHC.Err.error{(w) v 06} [gid]
@ base:GHC.Base.(){(w) tc 40} "Impossible
alternative"
Argument value doesn't match argument type:
Fun type:
[base:GHC.Base.Char{(w) tc 3o}] -> base:GHC.Base.(){(w) tc 40}
Arg type: base:GHC.Prim.Addr#{(w) tc 33}
Arg: "Impossible alternative"
Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug
[EMAIL PROTECTED]:/tmp$ V=6.7.20070223 ; ghc-$V -V ; ghc-$V -e 'seq icA ()'
A.hs ; ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.7.20070223
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rs9} [gid]
Segmentation fault
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rs9} [gid]
ghc-6.7.20070223: panic! (the 'impossible' happened)
(GHC version 6.7.20070223 for i386-unknown-linux):
compileExpr
<no location info>:
In the expression: base:GHC.Err.error{(w) v 06} [gid]
@ base:GHC.Base.(){(w) tc 40} "Impossible
alternative"
Argument value doesn't match argument type:
Fun type:
[base:GHC.Base.Char{(w) tc 3o}] -> base:GHC.Base.(){(w) tc 40}
Arg type: base:GHC.Prim.Addr#{(w) tc 33}
Arg: "Impossible alternative"
Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug
[EMAIL PROTECTED]:/tmp$ V=6.7.20070323 ; ghc-$V -V ; ghc-$V -e 'seq icA ()'
A.hs ; ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.7.20070323
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rs4} [gid]
Segmentation fault
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rs4} [gid]
ghc-6.7.20070323: panic! (the 'impossible' happened)
(GHC version 6.7.20070323 for i386-unknown-linux):
compileExpr
<no location info>:
In the expression: base:GHC.Err.error{(w) v 06} [gid]
@ base:GHC.Base.(){(w) tc 40} "Impossible
alternative"
Argument value doesn't match argument type:
Fun type:
[base:GHC.Base.Char{(w) tc 3o}] -> base:GHC.Base.(){(w) tc 40}
Arg type: base:GHC.Prim.Addr#{(w) tc 33}
Arg: "Impossible alternative"
Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug
[EMAIL PROTECTED]:/tmp$ cat A.hs
{-# OPTIONS_GHC -fglasgow-exts #-}
module A(II(..), icA) where
data II a where II :: II Int
class IC a where ic :: II a
instance IC Int where ic = II
newtype A = A Int deriving(IC)
icA = (ic :: II A)
}}}
--
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/1251>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler_______________________________________________
Glasgow-haskell-bugs mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs
