Commit eb561a9c authored by simonmar's avatar simonmar
Browse files

[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)
parent 736e0428
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment