nativeGen/RegClass.hs

    -- | An architecture independent description of a register's class.
    module RegClass
            ( RegClass (..) )

    where

    import  Outputable
    import  Unique

    -- | The class of a register.
    --      Used in the register allocator.
    --      We treat all registers in a class as being interchangable.
    --
    data RegClass
            = RcInteger
            | RcFloat
            | RcDouble
            | RcDoubleSSE -- x86 only: the SSE regs are a separate class
            deriving Eq

    instance Uniquable RegClass where
        getUnique RcInteger = mkRegClassUnique 0
        getUnique RcFloat   = mkRegClassUnique 1
        getUnique RcDouble  = mkRegClassUnique 2
        getUnique RcDoubleSSE = mkRegClassUnique 3

    instance Outputable RegClass where
        ppr RcInteger       = Outputable.text "I"
        ppr RcFloat         = Outputable.text "F"
        ppr RcDouble        = Outputable.text "D"
        ppr RcDoubleSSE     = Outputable.text "S"