SPARC NCG: Base freeRegs on includes/MachRegs.h again

[ghc-hetmet.git] / compiler / nativeGen / RegAlloc / Linear / SPARC / FreeRegs.hs

diff --git a/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs b/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs
index 5514056..ac16d8a 100644 (file)
--- a/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs
@@ -4,6 +4,7 @@ module RegAlloc.Linear.SPARC.FreeRegs
 where
 
 import SPARC.Regs
+import SPARC.RegPlate
 import RegClass
 import Reg
 
@@ -128,12 +129,14 @@ releaseReg r regs@(FreeRegs g f d)
        
        -- don't release the high part of double regs
        --      this prevents them from being allocated as single precison regs.
-       | r == 43               = regs
-       | r == 45               = regs
-       | r == 47               = regs
-       | r == 49               = regs
-       | r == 51               = regs
-       | r == 53               = regs
+       | r == 39       = regs
+       | r == 41       = regs
+       | r == 43       = regs
+       | r == 45       = regs
+       | r == 47       = regs
+       | r == 49       = regs
+       | r == 51       = regs
+       | r == 53       = regs
        
        -- a general purpose reg
        | r <= 31