update submodule pointer

[ghc-hetmet.git] / compiler / nativeGen / RegClass.hs

diff --git a/compiler/nativeGen/RegClass.hs b/compiler/nativeGen/RegClass.hs
index 8b6b2d4..2a4ac33 100644 (file)
--- a/compiler/nativeGen/RegClass.hs
+++ b/compiler/nativeGen/RegClass.hs
@@ -17,15 +17,18 @@ data RegClass
        = RcInteger 
        | RcFloat
        | RcDouble
+       | RcDoubleSSE -- x86 only: the SSE regs are a separate class
        deriving Eq
 
 
 instance Uniquable RegClass where
-    getUnique RcInteger        = mkUnique 'L' 0
-    getUnique RcFloat  = mkUnique 'L' 1
-    getUnique RcDouble = mkUnique 'L' 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"