1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface CgLetNoEscape where
3 import CgBindery(CgIdInfo)
4 import CgMonad(CgInfoDownwards, CgState, EndOfBlockInfo)
5 import CostCentre(CostCentre)
8 import StgSyn(StgBinderInfo, StgExpr)
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_ #-}