X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCmm.hs;h=00d93b01f1e3e81429e458b345ed24e3fcd790d4;hp=d3bdeada1e2890404cb0baeccec8d1351d044926;hb=98037604b0b148ce26ddc07a6fc6f15b4b386224;hpb=c614ed092823906e3e71421f3767facd7a83a6cc

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