1 files changed, 0 insertions, 44 deletions
diff --git a/compiler/GHC/CmmToAsm/SPARC/AddrMode.hs b/compiler/GHC/CmmToAsm/SPARC/AddrMode.hs
deleted file mode 100644
index b99b75f5eb..0000000000
--- a/compiler/GHC/CmmToAsm/SPARC/AddrMode.hs
+++ /dev/null
@@ -1,44 +0,0 @@
-
-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