Whitespace only in nativeGen/SPARC/Base.hs
authorIan Lynagh <ian@well-typed.com>
Fri, 11 Jan 2013 17:52:22 +0000 (17:52 +0000)
committerIan Lynagh <ian@well-typed.com>
Fri, 11 Jan 2013 17:52:22 +0000 (17:52 +0000)
compiler/nativeGen/SPARC/Base.hs

index aa7b057..7a05663 100644 (file)
@@ -1,26 +1,19 @@
 
 -- | 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 main/Constants
+--      Also import the required constants, so we know what we're using.
 --
-{-# OPTIONS -fno-warn-tabs #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and
--- detab the module (please do the detabbing in a separate patch). See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
--- for details
+--      In the interests of cross-compilation, we want to free ourselves
+--      from the autoconf generated modules like main/Constants
 
 module SPARC.Base (
-       wordLength,
-       wordLengthInBits,
-       spillAreaLength,
-       spillSlotSize,
-       extraStackArgsHere,
-       fits13Bits,
-       is32BitInteger,
-       largeOffsetError
+        wordLength,
+        wordLengthInBits,
+        spillAreaLength,
+        spillSlotSize,
+        extraStackArgsHere,
+        fits13Bits,
+        is32BitInteger,
+        largeOffsetError
 )
 
 where
@@ -36,13 +29,13 @@ wordLength :: Int
 wordLength = 4
 
 wordLengthInBits :: Int
-wordLengthInBits 
-       = wordLength * 8
+wordLengthInBits
+        = wordLength * 8
 
 -- Size of the available spill area
 spillAreaLength :: DynFlags -> Int
 spillAreaLength
-       = rESERVED_C_STACK_BYTES
+        = rESERVED_C_STACK_BYTES
 
 -- | We need 8 bytes because our largest registers are 64 bit.
 spillSlotSize :: Int
@@ -50,7 +43,7 @@ spillSlotSize = 8
 
 
 -- | We (allegedly) put the first six C-call arguments in registers;
---     where do we start putting the rest of them?
+--      where do we start putting the rest of them?
 extraStackArgsHere :: Int
 extraStackArgsHere = 23
 
@@ -61,22 +54,22 @@ 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.
+--      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
+is32BitInteger i
+        = i64 <= 0x7fffffff && i64 >= -0x80000000
+        where i64 = fromIntegral i :: Int64
 
 
 -- | Sadness.
 largeOffsetError :: (Integral a, 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 -fvia-C on this module.\n")
+                ++ show i ++ ");\nprobably because of large constant data structures;" ++
+                "\nworkaround: use -fvia-C on this module.\n")