1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface CodeGen where
3 import AbsCSyn(AbstractC, CAddrMode, CStmtMacro, MagicId, RegRelative, ReturnInfo)
4 import BasicLit(BasicLit)
5 import CLabelInfo(CLabel)
6 import ClosureInfo(ClosureInfo)
7 import CmdLineOpts(GlobalSwitch, SwitchResult)
8 import CostCentre(CostCentre)
9 import FiniteMap(FiniteMap)
12 import PreludePS(_PackedString)
13 import PrimOps(PrimOp)
14 import StgSyn(StgBinding, StgRhs)
16 import UniType(UniType)
23 codeGen :: _PackedString -> ([CostCentre], [CostCentre]) -> [_PackedString] -> (GlobalSwitch -> SwitchResult) -> [TyCon] -> FiniteMap TyCon [[Labda UniType]] -> [StgBinding Id Id] -> AbstractC