projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 Outputable
import Unique
-import Panic
import RegClass
import Data.List
import RegClass
import Data.List
@@
-126,8
+125,8
@@
data RealReg
instance Uniquable RealReg where
getUnique reg
= case reg of
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
instance Outputable RealReg where
ppr reg