From: simonmar <unknown>
Date: Fri, 8 Apr 2005 10:15:38 +0000 (+0000)
Subject: [project @ 2005-04-08 10:15:38 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~775
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=eb561a9cd9bf5c4930f3e3899c9dfc1fd23e5bf6;p=ghc-hetmet.git

[project @ 2005-04-08 10:15:38 by simonmar]
Tell the C backend that BaseReg has a "strange type" (this forces it
to cast it to StgWord before doing arithmetic)
---

diff --git a/ghc/compiler/cmm/PprC.hs b/ghc/compiler/cmm/PprC.hs
index adfafaf..10d4da2 100644
--- a/ghc/compiler/cmm/PprC.hs
+++ b/ghc/compiler/cmm/PprC.hs
@@ -640,6 +640,7 @@ isStrangeTypeReg (CmmGlobal g) 	= isStrangeTypeGlobal g
 isStrangeTypeGlobal :: GlobalReg -> Bool
 isStrangeTypeGlobal CurrentTSO		= True
 isStrangeTypeGlobal CurrentNursery 	= True
+isStrangeTypeGlobal BaseReg	 	= True
 isStrangeTypeGlobal r 			= isPtrGlobalReg r
 
 strangeRegType :: CmmReg -> Maybe SDoc