[project @ 1996-01-11 14:06:51 by partain]
[ghc-hetmet.git] / ghc / compiler / codeGen / CgTailCall.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface CgTailCall where
3 import AbsCSyn(AbstractC, CAddrMode, CExprMacro, MagicId, RegRelative)
4 import BasicLit(BasicLit)
5 import CLabelInfo(CLabel)
6 import CgBindery(CgIdInfo)
7 import CgMonad(CgInfoDownwards, CgState, CompilationInfo, EndOfBlockInfo, Sequel, StubFlag)
8 import ClosureInfo(LambdaFormInfo)
9 import CostCentre(CostCentre)
10 import HeapOffs(HeapOffset)
11 import Id(Id)
12 import Maybes(Labda)
13 import PreludePS(_PackedString)
14 import PrimKind(PrimKind)
15 import StgSyn(StgAtom)
16 import TyCon(TyCon)
17 import UniqFM(UniqFM)
18 import Unique(Unique)
19 data CAddrMode 
20 data CgInfoDownwards 
21 data CgState 
22 data HeapOffset 
23 data Id 
24 data Labda a 
25 data StgAtom a 
26 data TyCon 
27 cgTailCall :: StgAtom Id -> [StgAtom Id] -> UniqFM Id -> CgInfoDownwards -> CgState -> CgState
28 mkDynamicAlgReturnCode :: TyCon -> CAddrMode -> Sequel -> CgInfoDownwards -> CgState -> CgState
29 mkPrimReturnCode :: Sequel -> CgInfoDownwards -> CgState -> CgState
30 mkStaticAlgReturnCode :: Id -> Labda CLabel -> Sequel -> CgInfoDownwards -> CgState -> CgState
31 performReturn :: AbstractC -> (Sequel -> CgInfoDownwards -> CgState -> CgState) -> UniqFM Id -> CgInfoDownwards -> CgState -> CgState
32 tailCallBusiness :: Id -> CAddrMode -> LambdaFormInfo -> [CAddrMode] -> UniqFM Id -> AbstractC -> CgInfoDownwards -> CgState -> CgState
33