import SPARC.Cond
import SPARC.AddrMode
import SPARC.Regs
+import SPARC.RegPlate
import Size
import Reg
-import Cmm
+import OldCmm
+import OldPprCmm ()
import Outputable
import OrdList
= RegVirtual $ mkVirtualReg u (cmmTypeSize pk)
getRegisterReg (CmmGlobal mid)
- = case get_GlobalReg_reg_or_addr mid of
- Left rr -> RegReal rr
-
- _ -> pprPanic "SPARC.CodeGen.Base.getRegisterReg: global is in memory"
- (ppr $ CmmGlobal mid)
+ = case globalRegMaybe mid of
+ Just reg -> RegReal reg
+ Nothing -> pprPanic
+ "SPARC.CodeGen.Base.getRegisterReg: global is in memory"
+ (ppr $ CmmGlobal mid)
-- Expand CmmRegOff. ToDo: should we do it this way around, or convert