GHC/CmmToAsm/SPARC/AddrMode.hs

    module GHC.CmmToAsm.SPARC.AddrMode (
            AddrMode(..),
            addrOffset
    )

    where

    import GHC.Prelude

    import GHC.CmmToAsm.SPARC.Imm
    import GHC.CmmToAsm.SPARC.Base
    import GHC.Platform.Reg

    -- addressing modes ------------------------------------------------------------

    -- | Represents a memory address in an instruction.
    --      Being a RISC machine, the SPARC addressing modes are very regular.
    --
    data AddrMode
            = AddrRegReg    Reg Reg         -- addr = r1 + r2
            | AddrRegImm    Reg Imm         -- addr = r1 + imm

    -- | Add an integer offset to the address in an AddrMode.
    --
    addrOffset :: AddrMode -> Int -> Maybe AddrMode
    addrOffset addr off
      = case addr of
          AddrRegImm r (ImmInt n)
           | fits13Bits n2 -> Just (AddrRegImm r (ImmInt n2))
           | otherwise     -> Nothing
           where n2 = n + off

          AddrRegImm r (ImmInteger n)
           | fits13Bits n2 -> Just (AddrRegImm r (ImmInt (fromInteger n2)))
           | otherwise     -> Nothing
           where n2 = n + toInteger off

          AddrRegReg r (RegReal (RealRegSingle 0))
           | fits13Bits off -> Just (AddrRegImm r (ImmInt off))
           | otherwise     -> Nothing

          _ -> Nothing