1 files changed, 0 insertions, 70 deletions
diff --git a/compiler/GHC/CmmToAsm/SPARC/Base.hs b/compiler/GHC/CmmToAsm/SPARC/Base.hs
deleted file mode 100644
index 14d3069c74..0000000000
--- a/compiler/GHC/CmmToAsm/SPARC/Base.hs
+++ /dev/null
@@ -1,70 +0,0 @@
-
--- | Bits and pieces on the bottom of the module dependency tree.
---      Also import the required constants, so we know what we're using.
---
---      In the interests of cross-compilation, we want to free ourselves
---      from the autoconf generated modules like "GHC.Settings.Constants"
-
-module GHC.CmmToAsm.SPARC.Base (
-        wordLength,
-        wordLengthInBits,
-        spillSlotSize,
-        extraStackArgsHere,
-        fits13Bits,
-        is32BitInteger,
-        largeOffsetError
-)
-
-where
-
-import GHC.Prelude
-
-import GHC.Utils.Panic
-
-import Data.Int
-
-
--- On 32 bit SPARC, pointers are 32 bits.
-wordLength :: Int
-wordLength = 4
-
-wordLengthInBits :: Int
-wordLengthInBits
-        = wordLength * 8
-
--- | We need 8 bytes because our largest registers are 64 bit.
-spillSlotSize :: Int
-spillSlotSize = 8
-
-
--- | We (allegedly) put the first six C-call arguments in registers;
---      where do we start putting the rest of them?
-extraStackArgsHere :: Int
-extraStackArgsHere = 23
-
-
-{-# SPECIALIZE fits13Bits :: Int -> Bool, Integer -> Bool #-}
--- | Check whether an offset is representable with 13 bits.
-fits13Bits :: Integral a => a -> Bool
-fits13Bits x = x >= -4096 && x < 4096
-
--- | Check whether an integer will fit in 32 bits.
---      A CmmInt is intended to be truncated to the appropriate
---      number of bits, so here we truncate it to Int64.  This is
---      important because e.g. -1 as a CmmInt might be either
---      -1 or 18446744073709551615.
---
-is32BitInteger :: Integer -> Bool
-is32BitInteger i
-        = i64 <= 0x7fffffff && i64 >= -0x80000000
-        where i64 = fromIntegral i :: Int64
-
-
--- | Sadness.
-largeOffsetError :: (Show a) => a -> b
-largeOffsetError i
-  = panic ("ERROR: SPARC native-code generator cannot handle large offset ("
-                ++ show i ++ ");\nprobably because of large constant data structures;" ++
-                "\nworkaround: use -fllvm on this module.\n")
-
-