X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=bc2747a8917b5ac7012a2f6269a061f9f378a546;hp=c4e8ae750c378298295be7255b0a2078dd74805a;hb=c62b824e9e8808eb3845ddb1614494b0575eaafd;hpb=41f7ea2f3c5bc25a4a910583a9b455e88e983519

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index c4e8ae7..bc2747a 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -773,9 +773,11 @@ tryNewCodeGen hsc_env this_mod data_tycons imported_mods
 	; prog <- return $ map (runTx $ runCmmOpts cmmCfgOptsZ) (srtToData topSRT : prog)
 		-- Control flow optimisation, again
 
-	; dumpIfSet_dyn dflags Opt_D_dump_cmmz "New Cmm" (pprCmms prog)
+	; dumpIfSet_dyn dflags Opt_D_dump_cmmz "Output Cmm" (pprCmms prog)
 
-	; return $ map cmmOfZgraph prog }
+	; let prog' = map cmmOfZgraph prog
+	; dumpIfSet_dyn dflags Opt_D_dump_cmmz "Raw Cmm" (ppr prog')
+	; return prog' }
 
 
 optionallyConvertAndOrCPS :: HscEnv -> [Cmm] -> IO [Cmm]