blob: 0da1a6fb75337ac42a18bf43cdbeca12291b94e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
interface CgLetNoEscape where
import CgBindery(CgIdInfo)
import CgMonad(CgInfoDownwards, CgState, EndOfBlockInfo)
import CostCentre(CostCentre)
import Id(Id)
import Maybes(Labda)
import StgSyn(StgBinderInfo, StgExpr)
import UniqFM(UniqFM)
cgLetNoEscapeClosure :: Id -> CostCentre -> StgBinderInfo -> UniqFM Id -> EndOfBlockInfo -> Labda Int -> [Id] -> StgExpr Id Id -> CgInfoDownwards -> CgState -> ((Id, CgIdInfo), CgState)
|
