[commit: ghc] master: debug printing of the CAFEnv (7eff304)

[Simon Marlow]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/7eff3046bad95df02edca1276d53e710cb2b5206

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

commit 7eff3046bad95df02edca1276d53e710cb2b5206
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Aug 29 12:50:36 2012 +0100

    debug printing of the CAFEnv

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

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

diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs
index b3b4af7..da16183 100644
--- a/compiler/cmm/CmmPipeline.hs
+++ b/compiler/cmm/CmmPipeline.hs
@@ -105,6 +105,7 @@ cpsTop hsc_env (CmmProc h@(TopInfo {stack_info=StackInfo {arg_space=entry_off}})
 
        ------------- CAF analysis ----------------------------------------------
        let cafEnv = {-# SCC "cafAnal" #-} cafAnal g
+       dumpIfSet_dyn dflags Opt_D_dump_cmmz "CAFEnv" (ppr cafEnv)
 
        if splitting_proc_points
           then do