X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FSpillCost.hs;fp=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FSpillCost.hs;h=0dc25f58d219ab7476c5eb6e28779b47f0a1dd39;hb=09732d3c8ba3b8ab3ebfc5596cc8fdd7f2bb100f;hp=152d70b966fbd5fda95906e5f6046ab19f0379dc;hpb=2ea237998122126f092e3d39482b2f0a95fe0a99;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs b/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
index 152d70b..0dc25f5 100644
--- a/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
@@ -78,7 +78,7 @@ slurpSpillCostInfo cmm
 	-- lookup the regs that are live on entry to this block in
 	--	the info table from the CmmProc
  	countBlock info (BasicBlock blockId instrs)
-		| LiveInfo _ _ (Just blockLive)	<- info
+		| LiveInfo _ _ (Just blockLive) _ <- info
 		, Just rsLiveEntry  <- lookupBlockEnv blockLive blockId
 		, rsLiveEntry_virt  <- takeVirtuals rsLiveEntry
 		= countLIs rsLiveEntry_virt instrs