Fix Trac #959: a long-standing bug in instantiating otherwise-unbound type variables

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

diff --git a/compiler/nativeGen/RegClass.hs b/compiler/nativeGen/RegClass.hs
index 8b6b2d4..4bb300f 100644 (file)
--- 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"