From: Ben.Lippmeier@anu.edu.au <unknown>
Date: Sun, 15 Feb 2009 06:19:40 +0000 (+0000)
Subject: SPARC NCG: Don't release top half of f6 and f8
X-Git-Tag: 2009-03-13~76
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=17839aa386be663260622e5b86980e6fd9bb89a4

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

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