- = 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)