diff options
| author | partain <unknown> | 1996-01-08 20:28:12 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-01-08 20:28:12 +0000 |
| commit | e7d21ee4f8ac907665a7e170c71d59e13a01da09 (patch) | |
| tree | 93715bf4e6e4bbe8049e4d8d4d3fbd19158a88d6 /ghc/compiler/codeGen/CgLetNoEscape.hi | |
| parent | e48474bff05e6cfb506660420f025f694c870d38 (diff) | |
| download | haskell-e7d21ee4f8ac907665a7e170c71d59e13a01da09.tar.gz | |
[project @ 1996-01-08 20:28:12 by partain]
Initial revision
Diffstat (limited to 'ghc/compiler/codeGen/CgLetNoEscape.hi')
| -rw-r--r-- | ghc/compiler/codeGen/CgLetNoEscape.hi | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/ghc/compiler/codeGen/CgLetNoEscape.hi b/ghc/compiler/codeGen/CgLetNoEscape.hi new file mode 100644 index 0000000000..8f5b0c4b23 --- /dev/null +++ b/ghc/compiler/codeGen/CgLetNoEscape.hi @@ -0,0 +1,12 @@ +{-# 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) + {-# GHC_PRAGMA _A_ 8 _U_ 2002202212 _N_ _S_ "LAALLALL" {_A_ 5 _U_ 2222212 _N_ _N_ _N_ _N_} _N_ _N_ #-} + |