diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-02-12 11:41:27 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-13 09:16:04 -0500 |
| commit | 16d643cfe661716c7a6cb3ce04893a732c5a42af (patch) | |
| tree | bf5da10cecb846c48dad9578cce6472c5e97912d | |
| parent | df08468113ab46832b7ac0a7311b608d1b418c4d (diff) | |
| download | haskell-16d643cfe661716c7a6cb3ce04893a732c5a42af.tar.gz | |
Remove -ddump-srts flag
This flag is deemed not useful.
| -rw-r--r-- | compiler/GHC/Cmm/Info/Build.hs | 4 | ||||
| -rw-r--r-- | compiler/main/DynFlags.hs | 3 |
2 files changed, 0 insertions, 7 deletions
diff --git a/compiler/GHC/Cmm/Info/Build.hs b/compiler/GHC/Cmm/Info/Build.hs index 4b0532eef1..92619b8959 100644 --- a/compiler/GHC/Cmm/Info/Build.hs +++ b/compiler/GHC/Cmm/Info/Build.hs @@ -31,7 +31,6 @@ import GHC.Runtime.Heap.Layout import UniqSupply import CostCentre import GHC.StgToCmm.Heap -import ErrUtils import Control.Monad import Data.Map.Strict (Map) @@ -802,9 +801,6 @@ doSRTs dflags moduleSRTInfo procs data_ = do (srt_declss, pairs, funSRTs, has_caf_refs) = unzip4 result srt_decls = concat srt_declss - unless (null srt_decls) $ - dumpIfSet_dyn dflags Opt_D_dump_srts "SRTs" FormatCMM (ppr srt_decls) - -- Next, update the info tables with the SRTs let srtFieldMap = mapFromList (concat pairs) diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index b306a218e6..7857538de8 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -427,7 +427,6 @@ data DumpFlag | Opt_D_dump_cmm_split | Opt_D_dump_cmm_info | Opt_D_dump_cmm_cps - | Opt_D_dump_srts -- end cmm subflags | Opt_D_dump_cfg_weights -- ^ Dump the cfg used for block layout. | Opt_D_dump_asm @@ -3360,8 +3359,6 @@ dynamic_flags_deps = [ (setDumpFlag Opt_D_dump_cmm_info) , make_ord_flag defGhcFlag "ddump-cmm-cps" (setDumpFlag Opt_D_dump_cmm_cps) - , make_ord_flag defGhcFlag "ddump-srts" - (setDumpFlag Opt_D_dump_srts) , make_ord_flag defGhcFlag "ddump-cfg-weights" (setDumpFlag Opt_D_dump_cfg_weights) , make_ord_flag defGhcFlag "ddump-core-stats" |