import CostCentre ( dupifyCC, CostCentre )
import Id ( Id )
import VarEnv
-import CoreLint ( beginPass, endPass )
+import CoreLint ( showPass, endPass )
import SetLevels ( setLevels,
Level(..), tOP_LEVEL, ltMajLvl, ltLvl, isTopLvl
)
floatOutwards dflags float_lams us pgm
= do {
- beginPass dflags float_msg ;
+ showPass dflags float_msg ;
let { annotated_w_levels = setLevels float_lams pgm us ;
(fss, binds_s') = unzip (map floatTopBind annotated_w_levels)
int ntlets, ptext SLIT(" Lets floated elsewhere; from "),
int lams, ptext SLIT(" Lambda groups")]);
- endPass dflags float_msg
- (dopt Opt_D_verbose_core2core dflags)
+ endPass dflags float_msg Opt_D_verbose_core2core (concat binds_s')
{- no specific flag for dumping float-out -}
- (concat binds_s')
}
where
float_msg | float_lams = "Float out (floating lambdas too)"