where
import BlockId
-import MachRegs
+import RegsBase
+import SPARC.Regs
import Cmm
import Outputable
import Constants ( wORD_SIZE )
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