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

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

diff --git a/compiler/nativeGen/Reg.hs b/compiler/nativeGen/Reg.hs
index 4819d0f..422ea24 100644 (file)
--- a/compiler/nativeGen/Reg.hs
+++ b/compiler/nativeGen/Reg.hs
@@ -29,7 +29,6 @@ where
 
 import Outputable
 import Unique
-import Panic
 import RegClass
 import Data.List
 
@@ -126,8 +125,8 @@ data RealReg
 instance Uniquable RealReg where
        getUnique reg
         = case reg of
-               RealRegSingle i         -> mkUnique 'S' i
-               RealRegPair r1 r2       -> mkUnique 'P' (r1 * 65536 + r2)
+               RealRegSingle i         -> mkRegSingleUnique i
+               RealRegPair r1 r2       -> mkRegPairUnique (r1 * 65536 + r2)
 
 instance Outputable RealReg where
        ppr reg