X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FAsmCodeGen.lhs;h=be64428db2d88ce58f2f04095afb72b27b47f7b7;hb=f2033eff4f1f49728f2180e902db32ae9da29b0e;hp=38c28b417a2db63157cbb3fa25d32595ad0b91f6;hpb=f8c572418898d4c0e703f6d67510c9c37b51cc6e;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index 38c28b4..be64428 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -151,7 +151,7 @@ nativeCodeGen dflags cmms us
 	(case catMaybes mLinearStats of
 		[]	-> return ()
 		stats	-> dumpSDoc dflags Opt_D_dump_asm_stats "NCG stats"
-				$ Linear.pprStats (concat stats))
+				$ Linear.pprStats (concat native) (concat stats))
 
 	return	$ makeAsmDoc (concat native) (concat imports)