Split Reg into vreg/hreg and add register pairs

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

diff --git a/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs b/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs
index 4f129c4..9d0dcf9 100644 (file)
--- a/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs
@@ -436,9 +436,12 @@ isStoreReg ss
 --
 instance Uniquable Store where
     getUnique (SReg  r)
-       | RealReg i     <- r
+       | RegReal (RealRegSingle i)     <- r
        = mkUnique 'R' i
 
+       | RegReal (RealRegPair r1 r2)   <- r
+       = mkUnique 'P' (r1 * 65535 + r2)
+
        | otherwise
        = error "RegSpillClean.getUnique: found virtual reg during spill clean, only real regs expected."