#5637: runhaskell ghc panic running netwire 2 demo
--------------------------------+-------------------------------------------
    Reporter:  gareth.rowlands  |        Owner:              
        Type:  bug              |       Status:  new         
    Priority:  normal           |    Milestone:              
   Component:  Compiler         |      Version:  7.0.3       
    Keywords:                   |     Testcase:              
   Blockedby:                   |   Difficulty:              
          Os:  Windows          |     Blocking:              
Architecture:  x86              |      Failure:  None/Unknown
--------------------------------+-------------------------------------------
Description changed by igloo:

Old description:

> Running the netwire 2 demo at the URL below with runhaskell gives a ghc
> panic.
>
> Steps to reproduce:
>

> 1> cabal update; cabal install netwire-2.0.1
> ...
> 2> get http://hpaste.org/54025 into demo.hs
> 3> runhaskell .\demo.hs
> ghc: panic! (the 'impossible' happened)
>   (GHC version 7.0.3 for i386-unknown-mingw32):
>         addTickHsExpr
>     (|/\(@ a{tv a1hy} [sk]).
>       (netwire-2.0.1:Control.Wire.Trans.Sample.sample{v reZ} [gid])
>       @ a{tv a1hy} [sk]
>       @ ghc-prim:GHC.Types.Double{(w) tc 3u}
>       @ ghc-prim:GHC.Unit.(){(w) tc 40}
>       @ ghc-prim:GHC.Types.Double{(w) tc 3u}
>       @ (base:Control.Arrow.Kleisli{tc rcq}
>            <nt>ghc-prim:GHC.Types.IO{tc 32I})
>         $dArrowChoice{v a1l8} [lid]
>         $dArrowClock{v a1l9} [lid]
>         $dNum{v a1la} [lid]
>         $dOrd{v a1lb} [lid]
>         co{tv a1lc} [co]
>         (((netwire-2.0.1:Control.Wire.Prefab.Random.noise{v rey} [gid])
>           @ (base:Control.Arrow.Kleisli{tc rcq}
>                <nt>ghc-prim:GHC.Types.IO{tc 32I})
>           @ ghc-prim:GHC.Types.Double{(w) tc 3u}
>           @ ghc-prim:GHC.Unit.(){(w) tc 40}
>           @ ghc-prim:GHC.Unit.(){(w) tc 40}
>             $dArrowRandom{v a1or} [lid]
>             $dRandom{v a1os} [lid] -< ghc-prim:GHC.Unit.(){(w) v 71}
> [gid[DataCon]]))|)
>
> In contrast, compiling normally and running works fine:
>  ghc --make demo.hs; .\demo
>
> 24> ghc --version
> The Glorious Glasgow Haskell Compilation System, version 7.0.3
> OS: Windows 7 x64 SP1

New description:

 Running the netwire 2 demo at the URL below with runhaskell gives a ghc
 panic.

 Steps to reproduce:

 {{{
 1> cabal update; cabal install netwire-2.0.1
 ...
 2> get http://hpaste.org/54025 into demo.hs
 3> runhaskell .\demo.hs
 ghc: panic! (the 'impossible' happened)
   (GHC version 7.0.3 for i386-unknown-mingw32):
         addTickHsExpr
     (|/\(@ a{tv a1hy} [sk]).
       (netwire-2.0.1:Control.Wire.Trans.Sample.sample{v reZ} [gid])
       @ a{tv a1hy} [sk]
       @ ghc-prim:GHC.Types.Double{(w) tc 3u}
       @ ghc-prim:GHC.Unit.(){(w) tc 40}
       @ ghc-prim:GHC.Types.Double{(w) tc 3u}
       @ (base:Control.Arrow.Kleisli{tc rcq}
            <nt>ghc-prim:GHC.Types.IO{tc 32I})
         $dArrowChoice{v a1l8} [lid]
         $dArrowClock{v a1l9} [lid]
         $dNum{v a1la} [lid]
         $dOrd{v a1lb} [lid]
         co{tv a1lc} [co]
         (((netwire-2.0.1:Control.Wire.Prefab.Random.noise{v rey} [gid])
           @ (base:Control.Arrow.Kleisli{tc rcq}
                <nt>ghc-prim:GHC.Types.IO{tc 32I})
           @ ghc-prim:GHC.Types.Double{(w) tc 3u}
           @ ghc-prim:GHC.Unit.(){(w) tc 40}
           @ ghc-prim:GHC.Unit.(){(w) tc 40}
             $dArrowRandom{v a1or} [lid]
             $dRandom{v a1os} [lid] -< ghc-prim:GHC.Unit.(){(w) v 71}
 [gid[DataCon]]))|)

 In contrast, compiling normally and running works fine:
  ghc --make demo.hs; .\demo

 24> ghc --version
 The Glorious Glasgow Haskell Compilation System, version 7.0.3
 OS: Windows 7 x64 SP1
 }}}

--

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/5637#comment:1>
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

Reply via email to