[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / profiling / SCCfinal.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface SCCfinal where
3 import CmdLineOpts(GlobalSwitch)
4 import CostCentre(CostCentre)
5 import Id(Id)
6 import PreludePS(_PackedString)
7 import SplitUniq(SplitUniqSupply)
8 import StgSyn(StgBinding)
9 stgMassageForProfiling :: _PackedString -> _PackedString -> SplitUniqSupply -> (GlobalSwitch -> Bool) -> [StgBinding Id Id] -> (([CostCentre], [CostCentre]), [StgBinding Id Id])
10         {-# GHC_PRAGMA _A_ 5 _U_ 22221 _N_ _N_ _N_ _N_ #-}
11