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

[ghc-hetmet.git] / compiler / nativeGen / RegAlloc / Graph / ArchBase.hs

diff --git a/compiler/nativeGen/RegAlloc/Graph/ArchBase.hs b/compiler/nativeGen/RegAlloc/Graph/ArchBase.hs
index c3c1148..6d31220 100644 (file)
--- a/compiler/nativeGen/RegAlloc/Graph/ArchBase.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/ArchBase.hs
@@ -57,11 +57,11 @@ data Reg
 -- | so we can put regs in UniqSets
 instance Uniquable Reg where
        getUnique (Reg c i)
-        = mkUnique 'R'
+        = mkRegSingleUnique
         $ fromEnum c * 1000 + i
 
        getUnique (RegSub s (Reg c i))
-        = mkUnique 'S'
+        = mkRegSubUnique 
         $ fromEnum s * 10000 + fromEnum c * 1000 + i
 
        getUnique (RegSub _ (RegSub _ _))