X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FRegClass.hs;h=2a4ac333e9d18335774bc13e27b9def8f7effba3;hp=8b6b2d4160d0550db3db54ce798b0924b3956aa6;hb=c0687066474aa4ce4912f31a5c09c1bcd673fb06;hpb=b04a210e26ca57242fd052f2aa91011a80b76299

diff --git a/compiler/nativeGen/RegClass.hs b/compiler/nativeGen/RegClass.hs
index 8b6b2d4..2a4ac33 100644
--- 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"