diff options
| author | klebinger.andreas@gmx.at <klebinger.andreas@gmx.at> | 2019-04-05 17:02:59 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-04-12 14:40:04 -0400 |
| commit | 885d2e04854f038fbb899ab545df2b57d9b8bba4 (patch) | |
| tree | 209f632fb0eef72faf41147e52f71b0bb8197129 /compiler/main/HscMain.hs | |
| parent | e05df3e1380989ca00ecd88b6d7d0f4aec5502fb (diff) | |
| download | haskell-885d2e04854f038fbb899ab545df2b57d9b8bba4.tar.gz | |
Add -ddump-stg-final to dump stg as it is used for codegen.
Intermediate STG does not contain free variables which can be useful
sometimes. So adding a flag to dump that info.
Diffstat (limited to 'compiler/main/HscMain.hs')
| -rw-r--r-- | compiler/main/HscMain.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index 16c8db94d9..911d52cbfd 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -1470,6 +1470,8 @@ doCodeGen hsc_env this_mod data_tycons let dflags = hsc_dflags hsc_env let stg_binds_w_fvs = annTopBindingsFreeVars stg_binds + dumpIfSet_dyn dflags Opt_D_dump_stg_final + "STG for code gen:" (pprGenStgTopBindings stg_binds_w_fvs) let cmm_stream :: Stream IO CmmGroup () cmm_stream = {-# SCC "StgCmm" #-} StgCmm.codeGen dflags this_mod data_tycons |