[project @ 1996-01-11 14:06:51 by partain]
[ghc-hetmet.git] / ghc / compiler / codeGen / CgStackery.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface CgStackery where
3 import AbsCSyn(AbstractC, CAddrMode, CExprMacro, CStmtMacro, MagicId, RegRelative, ReturnInfo)
4 import BasicLit(BasicLit)
5 import CLabelInfo(CLabel)
6 import CgBindery(CgIdInfo)
7 import CgMonad(CgInfoDownwards, CgState, StubFlag)
8 import ClosureInfo(ClosureInfo)
9 import CostCentre(CostCentre)
10 import HeapOffs(HeapOffset)
11 import Maybes(Labda)
12 import PreludePS(_PackedString)
13 import PrimKind(PrimKind)
14 import PrimOps(PrimOp)
15 import UniqFM(UniqFM)
16 import Unique(Unique)
17 data AbstractC 
18 data CAddrMode 
19 data CgState 
20 data PrimKind 
21 adjustRealSps :: Int -> Int -> CgInfoDownwards -> CgState -> CgState
22 allocAStack :: CgInfoDownwards -> CgState -> (Int, CgState)
23 allocBStack :: Int -> CgInfoDownwards -> CgState -> (Int, CgState)
24 allocUpdateFrame :: Int -> CAddrMode -> ((Int, Int, Int) -> CgInfoDownwards -> CgState -> CgState) -> CgInfoDownwards -> CgState -> CgState
25 getFinalStackHW :: (Int -> Int -> CgInfoDownwards -> CgState -> CgState) -> CgInfoDownwards -> CgState -> CgState
26 mkStkAmodes :: Int -> Int -> [CAddrMode] -> CgInfoDownwards -> CgState -> ((Int, Int, AbstractC), CgState)
27 mkVirtStkOffsets :: Int -> Int -> (a -> PrimKind) -> [a] -> (Int, Int, [(a, Int)], [(a, Int)])
28