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

diff --git a/compiler/nativeGen/RegClass.hs b/compiler/nativeGen/RegClass.hs
index 8b6b2d4..4bb300f 100644
--- a/compiler/nativeGen/RegClass.hs
+++ b/compiler/nativeGen/RegClass.hs
@@ -21,9 +21,9 @@ data RegClass
 
 
 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
 
 instance Outputable RegClass where
     ppr RcInteger	= Outputable.text "I"