X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FAsmCodeGen.lhs;h=8fdd31a40d8e572668d377a9b125632ffd94ffe8;hb=272f0ba89eca1d9fc700cf4c27b9f8c3e23d6fe8;hp=7dad11ba619d35b21ab98b0fd4371a8c33144301;hpb=ad94d40948668032189ad22a0ad741ac1f645f50;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index 7dad11b..8fdd31a 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -11,7 +11,7 @@
 -- The above warning supression flag is a temporary kludge.
 -- While working on this module you are encouraged to remove it and fix
 -- any warnings in the module. See
---     http://hackage.haskell.org/trac/ghc/wiki/CodingStyle#Warnings
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
 -- for details
 
 module AsmCodeGen ( nativeCodeGen ) where
@@ -268,15 +268,6 @@ cmmNativeGen dflags us cmm
 				emptyUFM
 			$ map RealReg allocatableRegs
 
-		-- aggressively coalesce moves between virtual regs
-		let (coalesced, usCoalesce)
-			= {-# SCC "regCoalesce" #-}
-			  initUs usLive $ regCoalesce withLiveness
-
-		dumpIfSet_dyn dflags
-			Opt_D_dump_asm_coalesce "Reg-Reg moves coalesced"
-			(vcat $ map ppr coalesced)
-
 	 	-- if any of these dump flags are turned on we want to hang on to
 		--	intermediate structures in the allocator - otherwise tell the
 		--	allocator to ditch them early so we don't end up creating space leaks.
@@ -288,12 +279,12 @@ cmmNativeGen dflags us cmm
 		-- graph coloring register allocation
 		let ((alloced, regAllocStats), usAlloc)
 			= {-# SCC "regAlloc(color)" #-}
-			  initUs usCoalesce
+			  initUs usLive
 			  $ Color.regAlloc
 				generateRegAllocStats
 				alloc_regs
 				(mkUniqSet [0..maxSpillSlots])
-				coalesced
+				withLiveness
 
 		-- dump out what happened during register allocation
 		dumpIfSet_dyn dflags