[commit: ghc] wip/T10137: Add -ddump-cmm-switch, for consistency (800b80e)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T10137
Link       : http://ghc.haskell.org/trac/ghc/changeset/800b80eb7f4398f71f918d8a74f649e4ee33039d/ghc

>---------------------------------------------------------------

commit 800b80eb7f4398f71f918d8a74f649e4ee33039d
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Mar 17 13:00:25 2015 +0100

    Add -ddump-cmm-switch, for consistency


>---------------------------------------------------------------

800b80eb7f4398f71f918d8a74f649e4ee33039d
 compiler/cmm/CmmPipeline.hs | 3 +--
 compiler/main/DynFlags.hs   | 2 ++
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs
index 7bbbe97..eb89325 100644
--- a/compiler/cmm/CmmPipeline.hs
+++ b/compiler/cmm/CmmPipeline.hs
@@ -74,8 +74,7 @@ cpsTop hsc_env proc =
 
        g <- {-# SCC "createSwitchPlans" #-}
             runUniqSM $ cmmCreateSwitchPlans dflags g
-       dump Opt_D_dump_cmm_cfg "Post switch plan" g
-       -- TODO: dump Opt_D_dump_cmm_sp "Layout Stack" g
+       dump Opt_D_dump_cmm_switch "Post switch plan" g
 
        ----------- Proc points -------------------------------------------------
        let call_pps = {-# SCC "callProcPoints" #-} callProcPoints g
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index ef9b4e6..dfe2b75 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -241,6 +241,7 @@ data DumpFlag
    -- enabled if you run -ddump-cmm
    | Opt_D_dump_cmm_cfg
    | Opt_D_dump_cmm_cbe
+   | Opt_D_dump_cmm_switch
    | Opt_D_dump_cmm_proc
    | Opt_D_dump_cmm_sink
    | Opt_D_dump_cmm_sp
@@ -2444,6 +2445,7 @@ dynamic_flags = [
   , defGhcFlag "ddump-cmm-raw"           (setDumpFlag Opt_D_dump_cmm_raw)
   , defGhcFlag "ddump-cmm-cfg"           (setDumpFlag Opt_D_dump_cmm_cfg)
   , defGhcFlag "ddump-cmm-cbe"           (setDumpFlag Opt_D_dump_cmm_cbe)
+  , defGhcFlag "ddump-cmm-switch"        (setDumpFlag Opt_D_dump_cmm_switch)
   , defGhcFlag "ddump-cmm-proc"          (setDumpFlag Opt_D_dump_cmm_proc)
   , defGhcFlag "ddump-cmm-sink"          (setDumpFlag Opt_D_dump_cmm_sink)
   , defGhcFlag "ddump-cmm-sp"            (setDumpFlag Opt_D_dump_cmm_sp)