X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FSPARC%2FInstr.hs;h=12e56495e46dc0ccb0a398f47ed7769bd2104e1d;hb=1353826e5159c9a5a81e75e0b7459271f27c08ea;hp=5cbf2fec337a8e8b5d7332bdc2a3e4a2233e7594;hpb=a12e845684c10955bc594cdb20d1f13fae14873d;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/SPARC/Instr.hs b/compiler/nativeGen/SPARC/Instr.hs
index 5cbf2fe..12e5649 100644
--- a/compiler/nativeGen/SPARC/Instr.hs
+++ b/compiler/nativeGen/SPARC/Instr.hs
@@ -22,7 +22,8 @@ module SPARC.Instr (
 where
 
 import BlockId
-import Regs
+import RegsBase
+import SPARC.Regs
 import Cmm
 import Outputable
 import Constants	( wORD_SIZE )
@@ -183,6 +184,6 @@ fPair (RealReg n)
 fPair (VirtualRegD u)
 	= Just (VirtualRegHi u)
 
-fPair other 
-	= trace ("MachInstrs.fPair: can't get high half of supposed double reg " ++ show other) 
+fPair _
+	= trace ("MachInstrs.fPair: can't get high half of supposed double reg ") 
 		Nothing