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

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