X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FAsmCodeGen.lhs;h=79d55f05b35c443fca5f206f0cd36c6b1f387b5a;hb=190b2d90f92f61eb802275729106b5d9fb9a7a7c;hp=d73cb89984eab3233155a35102e06b83616593ae;hpb=49a8e5c021009430d373d6224b29004c7d18c408;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index d73cb89..79d55f0 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -304,7 +304,9 @@ cmmNativeGen dflags us cmm count
 	-- tag instructions with register liveness information
 	let (withLiveness, usLive) =
 		{-# SCC "regLiveness" #-}
-		initUs usGen $ mapUs regLiveness native
+		initUs usGen 
+			$ mapUs regLiveness 
+			$ map natCmmTopToLive native
 
 	dumpIfSet_dyn dflags
 		Opt_D_dump_asm_liveness "Liveness annotations added"