From 17839aa386be663260622e5b86980e6fd9bb89a4 Mon Sep 17 00:00:00 2001 From: "Ben.Lippmeier@anu.edu.au" Date: Sun, 15 Feb 2009 06:19:40 +0000 Subject: [PATCH] SPARC NCG: Don't release top half of f6 and f8 --- compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs b/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs index 5514056..2b624c7 100644 --- 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 -- 1.7.10.4