X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FSPARC%2FInstr.hs;h=12e56495e46dc0ccb0a398f47ed7769bd2104e1d;hb=497302c44ad08c6c27d0e15d94a787f332c0cfec;hp=7f782c9a7232988afc5547140cd27f914f4b89c9;hpb=92ee78e03c3670f56ebbbbfb0f67a00f9ea1305f;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/SPARC/Instr.hs b/compiler/nativeGen/SPARC/Instr.hs
index 7f782c9..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 MachRegs
+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