X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegClass.hs;h=2a4ac333e9d18335774bc13e27b9def8f7effba3;hb=92356dd1f85da00546e27d295f40f446408e5ef3;hp=4bb300f2b9f732990888cf1cace2b8ed0b2ed603;hpb=388e3356f71daffa62f1d4157e1e07e4c68f218a;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegClass.hs b/compiler/nativeGen/RegClass.hs
index 4bb300f..2a4ac33 100644
--- a/compiler/nativeGen/RegClass.hs
+++ b/compiler/nativeGen/RegClass.hs
@@ -17,6 +17,7 @@ data RegClass
 	= RcInteger 
 	| RcFloat
 	| RcDouble
+	| RcDoubleSSE -- x86 only: the SSE regs are a separate class
 	deriving Eq
 
 
@@ -24,8 +25,10 @@ instance Uniquable RegClass where
     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"