[commit: ghc] master: make some debug output conditional on -ddump-cmmz (16cc37f)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/16cc37ff034213250c764cd941908398e4150100

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

commit 16cc37ff034213250c764cd941908398e4150100
Author: Simon Marlow <[email protected]>
Date:   Tue Sep 18 14:49:34 2012 +0100

    make some debug output conditional on -ddump-cmmz

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

 compiler/cmm/CmmPipeline.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs
index 7692726..25fda1c 100644
--- a/compiler/cmm/CmmPipeline.hs
+++ b/compiler/cmm/CmmPipeline.hs
@@ -82,7 +82,7 @@ cpsTop hsc_env (CmmProc h@(TopInfo {stack_info=StackInfo {arg_space=entry_off}})
                   return call_pps
 
        let noncall_pps = proc_points `setDifference` call_pps
-       when (not (setNull noncall_pps)) $
+       when (not (setNull noncall_pps) && dopt Opt_D_dump_cmmz dflags) $
          pprTrace "Non-call proc points: " (ppr noncall_pps) $ return ()
 
        ----------- Sink and inline assignments *before* stack layout -----------