From 77ed23d51b968505b3ad8541c075657ae94f0ea3 Mon Sep 17 00:00:00 2001
From: "Ben.Lippmeier@anu.edu.au" <unknown>
Date: Wed, 11 Feb 2009 05:40:21 +0000
Subject: [PATCH] SPARC NCG: Make linear allocator use info in SPARC.Regs
 again

---
 .../nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs    |   53 +++-----------------
 1 file changed, 6 insertions(+), 47 deletions(-)

diff --git a/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs b/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs
index f840532..aa716b5 100644
--- a/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs
@@ -6,11 +6,13 @@ where
 import Regs
 
 import Outputable
+import FastBool
 
 import Data.Word
 import Data.Bits
 import Data.List
 
+
 --------------------------------------------------------------------------------
 -- SPARC is like PPC, except for twinning of floating point regs.
 --	When we allocate a double reg we must take an even numbered
@@ -118,54 +120,11 @@ grabReg r (FreeRegs g f d)
 --
 releaseReg :: RegNo -> FreeRegs -> FreeRegs
 releaseReg r regs@(FreeRegs g f d)
-
-	-- used by STG machine, or otherwise unavailable
-	--	see includes/MachRegs.h for more info
-
-	-- Global Regs g0-g7
-	--         r0: always zero
-	--      r1-r4: allocable
-	--      r5-r7: reserved for OS
-	| r == 0 		= regs
-	| r >= 5 && r <= 7	= regs
-	
-	-- Output Regs o0-o7
-	--   caller saves
-	--   r8 - r13: allocable
-	--        r14: C stack ptr
-	--        r15: C ret addr
-	| r >= 14 && r <= 15	= regs
-	
-	-- Local Regs 
-	--        r16: allocable
-	--  r17 - r21: R1-R5
-	--  r22 - r23: allocable
-	| r >= 17 && r <= 21	= regs		
-
-	-- Input Regs
-	--  r24 - r29: Sp, Base, SpLim, Hp, HpLim, R6
-	--        r30: C frame ptr
-	--        r31: C ret addr
-	| r >= 24 && r <= 31	= regs
+	-- don't release pinned reg
+	| not $ isFastTrue (freeReg r)
+	= regs
 	
-	-- Float regs
-	--  r32 & r33: floating point return from C fun
-	--  r34 & r35: D1
-	--  r36 & r37: D2
-	--  r38 & r39: NCG spill tmp
-	--  r40 & r41: NCG spill tmp
-	| r >= 32 && r <= 41	= regs
-
-	--  r42 - r53: allocatable as double prec float regs
-
-	--  r54 - r57: F1-F4
-	--  r58 - r59: NCG spill tmps
-	| r >= 54 && r <= 59	= regs
-
-	--  r60-r64: allocatable as single prec float regs.
-
-
-	-- never release the high part of double regs.
+	-- 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
-- 
1.7.10.4