[project @ 1996-01-11 14:06:51 by partain]
[ghc-hetmet.git] / ghc / compiler / codeGen / CgCase.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface CgCase where
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)
9 import Id(Id)
10 import Maybes(Labda)
11 import PrimOps(PrimOp)
12 import StgSyn(StgAtom, StgBinding, StgCaseAlternatives, StgCaseDefault, StgExpr)
13 import UniType(UniType)
14 import UniqFM(UniqFM)
15 import Unique(Unique)
16 data CgState 
17 data Id 
18 data StgCaseAlternatives a b 
19 data StgExpr 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)
22