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 = mkUnique 'L' 0
25 getUnique RcFloat = mkUnique 'L' 1
26 getUnique RcDouble = mkUnique 'L' 2
28 instance Outputable RegClass where
29 ppr RcInteger = Outputable.text "I"
30 ppr RcFloat = Outputable.text "F"
31 ppr RcDouble = Outputable.text "D"