[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / codeGen / CgLetNoEscape.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface CgLetNoEscape where
3 import CgBindery(CgIdInfo)
4 import CgMonad(CgInfoDownwards, CgState, EndOfBlockInfo)
5 import CostCentre(CostCentre)
6 import Id(Id)
7 import Maybes(Labda)
8 import StgSyn(StgBinderInfo, StgExpr)
9 import UniqFM(UniqFM)
10 cgLetNoEscapeClosure :: Id -> CostCentre -> StgBinderInfo -> UniqFM Id -> EndOfBlockInfo -> Labda Int -> [Id] -> StgExpr Id Id -> CgInfoDownwards -> CgState -> ((Id, CgIdInfo), CgState)
11         {-# GHC_PRAGMA _A_ 8 _U_ 2002202212 _N_ _S_ "LAALLALL" {_A_ 5 _U_ 2222212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
12