[GHC] #13233: typePrimRep panic while compiling GHC with profiling

[GHC]

#13233: typePrimRep panic while compiling GHC with profiling
-------------------------------------+-------------------------------------
        Reporter:  bgamari           |                Owner:
            Type:  bug               |               Status:  new
        Priority:  highest           |            Milestone:  8.2.1
       Component:  Compiler          |              Version:  8.0.1
      Resolution:                    |             Keywords:
Operating System:  Unknown/Multiple  |         Architecture:
 Type of failure:  Compile-time      |  Unknown/Multiple
  crash or panic                     |            Test Case:
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):
       Wiki Page:                    |
-------------------------------------+-------------------------------------

Comment (by bgamari):

 For the record, after `FloatOut` we have,
 {{{#!hs
 getInfoDown :: FCode CgInfoDownwards
 getInfoDown =
   scctick<getInfoDown>
   $ @ 'LiftedRep
     @ (CgInfoDownwards -> CgState -> (# CgInfoDownwards, CgState #))
     @ (FCode CgInfoDownwards)
     (lvl_shOy `cast` ...)
     (ghc-prim-0.5.0.0:GHC.Prim.(#,#)
        @ 'ghc-prim-0.5.0.0:GHC.Types.LiftedRep
        @ 'ghc-prim-0.5.0.0:GHC.Types.LiftedRep
        @ CgInfoDownwards
        @ CgState)

 lvl_shOy :: (CgInfoDownwards -> CgState -> (# CgInfoDownwards, CgState #))
          -> CgInfoDownwards -> CgState -> (# CgInfoDownwards, CgState #)
 lvl_shOy = \x -> x
 }}}
 Which after simplification turns into,
 {{{#!hs
 getInfoDown_shTB :: CgInfoDownwards -> CgState -> (# CgInfoDownwards,
 CgState #)
 getInfoDown_shTB =
   (tick<getInfoDown> ghc-prim-0.5.0.0:GHC.Prim.(#,#))
     @ 'ghc-prim-0.5.0.0:GHC.Types.LiftedRep
     @ 'ghc-prim-0.5.0.0:GHC.Types.LiftedRep
     @ CgInfoDownwards
     @ CgState
 }}}

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/13233#comment:17>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler