1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
3 import AbsCSyn(AbstractC)
4 import BasicLit(BasicLit)
5 import CgBindery(CgIdInfo)
6 import CgMonad(CgInfoDownwards, CgState, EndOfBlockInfo, StubFlag)
7 import CostCentre(CostCentre)
8 import HeapOffs(HeapOffset)
11 import PrimOps(PrimOp)
12 import StgSyn(StgAtom, StgBinding, StgCaseAlternatives, StgCaseDefault, StgExpr)
13 import UniType(UniType)
18 data StgCaseAlternatives a b
20 cgCase :: StgExpr Id Id -> UniqFM Id -> UniqFM Id -> Unique -> StgCaseAlternatives Id Id -> CgInfoDownwards -> CgState -> CgState
21 saveVolatileVarsAndRegs :: UniqFM Id -> CgInfoDownwards -> CgState -> ((AbstractC, EndOfBlockInfo, Labda Int), CgState)