From eb561a9cd9bf5c4930f3e3899c9dfc1fd23e5bf6 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 8 Apr 2005 10:15:38 +0000
Subject: [PATCH] [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)

---
 ghc/compiler/cmm/PprC.hs |    1 +
 1 file changed, 1 insertion(+)

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
-- 
1.7.10.4