- <- foldl_mn do_stg_pass (binds', us', ccs)
- (dopt_StgToDo dflags)
-
- -- Do essential wind-up
- -- Essential wind-up: part (b), do setStgVarInfo. It has to
- -- happen regardless, because the code generator uses its
- -- decorations.
- --
- -- Why does it have to happen last? Because earlier passes
- -- may move things around, which would change the live-var
- -- info. Also, setStgVarInfo decides about let-no-escape
- -- things, which in turn do a better job if arities are
- -- correct, which is done by satStgRhs.
- --
-
- ; let annotated_binds = setStgVarInfo opt_StgDoLetNoEscapes processed_binds
- srt_binds = computeSRTs annotated_binds
+ <- foldl_mn do_stg_pass (binds', us', ccs) (getStgToDo dflags)
+
+ ; let srt_binds = computeSRTs processed_binds