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 ----------- _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
