Commit b2e18e26 authored by Andreas Klebinger's avatar Andreas Klebinger Committed by Marge Bot

Fix -ddump-stg-final.

Once again make sure this dumps the STG used for codegen.
parent 82f9be8c
......@@ -66,8 +66,6 @@ stg2stg dflags this_mod binds
-- preserve the order or only create minimal recursive groups, so a
-- sorting pass is necessary.
; let binds_sorted = depSortStgPgm this_mod binds'
; dump_when Opt_D_dump_stg_final "Final STG:" binds_sorted
; return binds_sorted
}
......
......@@ -1557,6 +1557,8 @@ doCodeGen hsc_env this_mod data_tycons
let stg_binds_w_fvs = annTopBindingsFreeVars stg_binds
dumpIfSet_dyn dflags Opt_D_dump_stg_final "Final STG:" FormatSTG (pprGenStgTopBindings stg_binds_w_fvs)
let cmm_stream :: Stream IO CmmGroup ()
-- See Note [Forcing of stg_binds]
cmm_stream = stg_binds_w_fvs `seqList` {-# SCC "StgToCmm" #-}
......@@ -1588,7 +1590,6 @@ doCodeGen hsc_env this_mod data_tycons
return (Stream.mapM dump2 pipeline_stream)
myCoreToStg :: DynFlags -> Module -> CoreProgram
-> IO ( [StgTopBinding] -- output program
, CollectedCCs ) -- CAF cost centre info (declared and used)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment