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

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"