summaryrefslogtreecommitdiff
path: root/compiler/nativeGen/RegClass.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/nativeGen/RegClass.hs')
-rw-r--r--compiler/nativeGen/RegClass.hs32
1 files changed, 0 insertions, 32 deletions
diff --git a/compiler/nativeGen/RegClass.hs b/compiler/nativeGen/RegClass.hs
deleted file mode 100644
index f4170cca94..0000000000
--- a/compiler/nativeGen/RegClass.hs
+++ /dev/null
@@ -1,32 +0,0 @@
--- | An architecture independent description of a register's class.
-module RegClass
- ( RegClass (..) )
-
-where
-
-import GhcPrelude
-
-import Outputable
-import Unique
-
-
--- | The class of a register.
--- Used in the register allocator.
--- We treat all registers in a class as being interchangeable.
---
-data RegClass
- = RcInteger
- | RcFloat
- | RcDouble
- deriving Eq
-
-
-instance Uniquable RegClass where
- getUnique RcInteger = mkRegClassUnique 0
- getUnique RcFloat = mkRegClassUnique 1
- getUnique RcDouble = mkRegClassUnique 2
-
-instance Outputable RegClass where
- ppr RcInteger = Outputable.text "I"
- ppr RcFloat = Outputable.text "F"
- ppr RcDouble = Outputable.text "D"