diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-29 12:50:36 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-31 16:43:59 +0100 |
| commit | 7eff3046bad95df02edca1276d53e710cb2b5206 (patch) | |
| tree | 8a19ea0d55d33cc0262d779337d6e5fc9034672a /compiler/cmm/CmmPipeline.hs | |
| parent | d9c0276afd483dcbf7f68485ee38f14434d808f3 (diff) | |
| download | haskell-7eff3046bad95df02edca1276d53e710cb2b5206.tar.gz | |
debug printing of the CAFEnv
Diffstat (limited to 'compiler/cmm/CmmPipeline.hs')
| -rw-r--r-- | 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 b3b4af712d..da161835a1 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 |