2 -- | An architecture independent description of a register's class.
12 -- | The class of a register.
13 -- Used in the register allocator.
14 -- We treat all registers in a class as being interchangable.
23 instance Uniquable RegClass where
24 getUnique RcInteger = mkRegClassUnique 0
25 getUnique RcFloat = mkRegClassUnique 1
26 getUnique RcDouble = mkRegClassUnique 2
28 instance Outputable RegClass where
29 ppr RcInteger = Outputable.text "I"
30 ppr RcFloat = Outputable.text "F"
31 ppr RcDouble = Outputable.text "D"