-- allocatable
allocatableRegs,
- get_GlobalReg_reg_or_addr,
-- args
argRegs,
import RegClass
import Size
-import Cmm
-import PprCmm ()
-import CgUtils ( get_GlobalReg_addr )
+-- import PprCmm ()
import Unique
import Outputable
in filter isFree allRealRegs
-
--- We map STG registers onto appropriate CmmExprs. Either they map
--- to real machine registers or stored as offsets from BaseReg. Given
--- a GlobalReg, get_GlobalReg_reg_or_addr produces either the real
--- register it is in, on this platform, or a CmmExpr denoting the
--- address in the register table holding it.
--- (See also get_GlobalReg_addr in CgUtils.)
-
-get_GlobalReg_reg_or_addr :: GlobalReg -> Either RealReg CmmExpr
-get_GlobalReg_reg_or_addr mid
- = case globalRegMaybe mid of
- Just rr -> Left rr
- Nothing -> Right (get_GlobalReg_addr mid)
-
-
-- | The registers to place arguments for function calls,
-- for some number of arguments.
--