X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FnativeGen%2FX86%2FInstr.hs;h=dbec540426722732591c8764bc9b45e4d86a4918;hb=f9288086f935c97812b2d80defcff38baf7b6a6c;hp=26da90778c82dca0c37c0e2a5dde6aa14496d752;hpb=de29a9f02449359b70402f763ac7590673774124;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/X86/Instr.hs b/compiler/nativeGen/X86/Instr.hs
index 26da907..dbec540 100644
--- a/compiler/nativeGen/X86/Instr.hs
+++ b/compiler/nativeGen/X86/Instr.hs
@@ -443,12 +443,9 @@ x86_regUsageOfInstr instr
 	      dst' = filter interesting dst
 
 interesting :: Reg -> Bool
-interesting (VirtualRegI  _)  = True
-interesting (VirtualRegHi _)  = True
-interesting (VirtualRegF  _)  = True
-interesting (VirtualRegD  _)  = True
-interesting (RealReg i)       = isFastTrue (freeReg i)
-
+interesting (RegVirtual _) 		= True
+interesting (RegReal (RealRegSingle i))	= isFastTrue (freeReg i)
+interesting (RegReal (RealRegPair{}))	= panic "X86.interesting: no reg pairs on this arch"