From: Michael D. Adams <t-madams@microsoft.com>
Date: Fri, 18 May 2007 13:23:17 +0000 (+0000)
Subject: Added spLimReg to complement spReg and hpReg
X-Git-Tag: Before_type_family_merge~650
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=98037604b0b148ce26ddc07a6fc6f15b4b386224

Added spLimReg to complement spReg and hpReg
---

diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs
index d3bdead..00d93b0 100644
--- a/compiler/cmm/Cmm.hs
+++ b/compiler/cmm/Cmm.hs
@@ -20,7 +20,7 @@ module Cmm (
 	BlockId(..),
 	GlobalReg(..), globalRegRep,
 
-	node, nodeReg, spReg, hpReg,
+	node, nodeReg, spReg, hpReg, spLimReg
   ) where
 
 #include "HsVersions.h"
@@ -351,9 +351,10 @@ data GlobalReg
 	 )
 
 -- convenient aliases
-spReg, hpReg, nodeReg :: CmmReg
+spReg, hpReg, spLimReg, nodeReg :: CmmReg
 spReg = CmmGlobal Sp
 hpReg = CmmGlobal Hp
+spLimReg = CmmGlobal SpLim
 nodeReg = CmmGlobal node
 
 node :: GlobalReg