X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FRegAllocInfo.lhs;h=216046d1631b0c3ae4a3a166d4f649dbb819f76f;hb=6a3f5f6beed9cec42c4b3a1b7cabc1809c838562;hp=2364f123f42e040ef32e5b9ff383bb71d474e891;hpb=fffba9e37c59f6b03bb79dcafb818b88abc0ed47;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/RegAllocInfo.lhs b/ghc/compiler/nativeGen/RegAllocInfo.lhs
index 2364f12..216046d 100644
--- a/ghc/compiler/nativeGen/RegAllocInfo.lhs
+++ b/ghc/compiler/nativeGen/RegAllocInfo.lhs
@@ -45,6 +45,8 @@ import FiniteMap	( addToFM, lookupFM, FiniteMap )
 import Outputable
 import Constants	( rESERVED_C_STACK_BYTES )
 import Unique		( Unique, Uniquable(..) )
+import FastTypes
+
 \end{code}
 
 %************************************************************************
@@ -146,7 +148,7 @@ regUsage :: Instr -> RegUsage
 interesting (VirtualRegI _)  = True
 interesting (VirtualRegF _)  = True
 interesting (VirtualRegD _)  = True
-interesting (RealReg (I# i)) = _IS_TRUE_(freeReg i)
+interesting (RealReg i)      = _IS_TRUE_(freeReg i)
 
 #if alpha_TARGET_ARCH