X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FCoalesce.hs;fp=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FCoalesce.hs;h=e0fad17f835fc11a471d5520bcd811015c55acd4;hb=e17cf7ff32778f4e6b3622855f25426251e843d6;hp=a5d95a3adf55ab259be3ccd1104d2ef810fb1d64;hpb=028c032b60567b8cd501e9d7248e4aa86088a19b;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Graph/Coalesce.hs b/compiler/nativeGen/RegAlloc/Graph/Coalesce.hs
index a5d95a3..e0fad17 100644
--- a/compiler/nativeGen/RegAlloc/Graph/Coalesce.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/Coalesce.hs
@@ -73,8 +73,8 @@ slurpJoinMovs live
 	slurpCmm   rs (CmmProc _ _ _ sccs) 	= foldl' slurpBlock rs (flattenSCCs sccs)
         slurpBlock rs (BasicBlock _ instrs)	= foldl' slurpLI    rs instrs
                 
-        slurpLI    rs (Instr _	Nothing)	         = rs
-	slurpLI    rs (Instr instr (Just live))
+        slurpLI    rs (LiveInstr _	Nothing) = rs
+	slurpLI    rs (LiveInstr instr (Just live))
 	 	| Just (r1, r2)	<- takeRegRegMoveInstr instr
 		, elementOfUniqSet r1 $ liveDieRead live
 		, elementOfUniqSet r2 $ liveBorn live
@@ -86,8 +86,5 @@ slurpJoinMovs live
 		
 		| otherwise
 		= rs
-	
-	slurpLI	   rs SPILL{} 	= rs
-	slurpLI    rs RELOAD{}	= rs