-- For REP_xxx constants, which are MachReps
import StgCmmClosure
+import StgCmmEnv
import StgCmmUtils
import StgCmmMonad
import SMRep
-- Setting the cost centre in a new closure
chooseDynCostCentres :: CostCentreStack
- -> [Id] -- Args
+ -> [Id] -- Args
-> StgExpr -- Body
-> FCode (CmmExpr, CmmExpr)
--- Called when alllcating a closure
+-- Called when allocating a closure
-- Tells which cost centre to put in the object, and which
-- to blame the cost of allocation on
chooseDynCostCentres ccs args body = do