nativeGen: detabify/dewhitespace RegClass
authorAustin Seipp <austin@well-typed.com>
Sat, 19 Jul 2014 03:25:01 +0000 (22:25 -0500)
committerAustin Seipp <austin@well-typed.com>
Sun, 20 Jul 2014 21:55:49 +0000 (16:55 -0500)
Signed-off-by: Austin Seipp <austin@well-typed.com>
compiler/nativeGen/RegClass.hs

index cac4e64..0c79317 100644 (file)
@@ -1,41 +1,33 @@
-{-# OPTIONS_GHC -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://ghc.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
--- for details
-
-
 -- | An architecture independent description of a register's class.
-module RegClass 
-       ( RegClass (..) )
+module RegClass
+        ( RegClass (..) )
 
 where
 
-import Outputable
-import Unique
+import  Outputable
+import  Unique
 
 
--- | The class of a register. 
---     Used in the register allocator.
---     We treat all registers in a class as being interchangable.
+-- | 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
+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 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"
+    ppr RcInteger       = Outputable.text "I"
+    ppr RcFloat         = Outputable.text "F"
+    ppr RcDouble        = Outputable.text "D"
+    ppr RcDoubleSSE     = Outputable.text "S"