[commit: ghc] master: -ddump-cmm: don't dump the proc point stage if we didn't do anything (77e33bc)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/77e33bcb6146b57f3b4f6f2574a7c1c35fcfbcd4/ghc

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

commit 77e33bcb6146b57f3b4f6f2574a7c1c35fcfbcd4
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Thu Nov 28 10:55:48 2013 +0000

    -ddump-cmm: don't dump the proc point stage if we didn't do anything


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

77e33bcb6146b57f3b4f6f2574a7c1c35fcfbcd4
 compiler/cmm/CmmPipeline.hs |    9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs
index cc204e9..5c2d54d 100644
--- a/compiler/cmm/CmmPipeline.hs
+++ b/compiler/cmm/CmmPipeline.hs
@@ -79,11 +79,14 @@ cpsTop hsc_env proc =
        let call_pps = {-# SCC "callProcPoints" #-} callProcPoints g
        proc_points <-
           if splitting_proc_points
-             then {-# SCC "minimalProcPointSet" #-} runUniqSM $
+             then do
+               pp <- {-# SCC "minimalProcPointSet" #-} runUniqSM $
                   minimalProcPointSet (targetPlatform dflags) call_pps g
+               dumpIfSet_dyn dflags Opt_D_dump_cmm "Proc points"
+                     (ppr l $$ ppr pp $$ ppr g)
+               return pp
              else
-                  return call_pps
-       dumpIfSet_dyn dflags Opt_D_dump_cmm "Proc points" (ppr l $$ ppr proc_points $$ ppr g)
+               return call_pps
 
        let noncall_pps = proc_points `setDifference` call_pps
        when (not (setNull noncall_pps) && dopt Opt_D_dump_cmm dflags) $