SPARC NCG: Don't release top half of f6 and f8

[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..2b624c7 100644 (file)
--- a/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs
@@ -128,12 +128,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