X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FStats.hs;h=cdce1b624245a6cfe35b9a06a93c676b1b9a1d34;hb=e17cf7ff32778f4e6b3622855f25426251e843d6;hp=339bd4102af8571714330821869e3902b1246377;hpb=028c032b60567b8cd501e9d7248e4aa86088a19b;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Graph/Stats.hs b/compiler/nativeGen/RegAlloc/Graph/Stats.hs
index 339bd41..cdce1b6 100644
--- a/compiler/nativeGen/RegAlloc/Graph/Stats.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/Stats.hs
@@ -258,15 +258,15 @@ countSRM_block (BasicBlock i instrs)
  	return	$ BasicBlock i instrs'
 
 countSRM_instr li
-	| SPILL _ _	<- li
-	= do	modify 	$ \(s, r, m)	-> (s + 1, r, m)
+	| LiveInstr SPILL{} _	 <- li
+	= do	modify  $ \(s, r, m)	-> (s + 1, r, m)
 		return li
 
-	| RELOAD _ _	<- li
-	= do	modify	$ \(s, r, m)	-> (s, r + 1, m)
+	| LiveInstr RELOAD{} _ 	<- li
+	= do	modify  $ \(s, r, m)	-> (s, r + 1, m)
 		return li
-
-	| Instr instr _	<- li
+	
+	| LiveInstr instr _	<- li
 	, Just _	<- takeRegRegMoveInstr instr
 	= do	modify	$ \(s, r, m)	-> (s, r, m + 1)
 		return li