Fix for unregisterised compilation: isStrangeTypeGlobal CCCS = True

Needed by #5357

Fix for unregisterised compilation: isStrangeTypeGlobal CCCS = True
Needed by #5357
2d91e04b · Simon Marlow · 3478213a · 2d91e04b
Commit 2d91e04b authored Jan 04, 2012 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

compiler/cmm/PprC.hs compiler/cmm/PprC.hs +2 -0

No files found.
--- a/compiler/cmm/PprC.hs
+++ b/compiler/cmm/PprC.hs
@@ -757,12 +757,14 @@ isStrangeTypeReg (CmmLocal _)   = False
 isStrangeTypeReg (CmmGlobal g)  = isStrangeTypeGlobal g

 isStrangeTypeGlobal :: GlobalReg -> Bool
+isStrangeTypeGlobal CCCS                = True
 isStrangeTypeGlobal CurrentTSO          = True
 isStrangeTypeGlobal CurrentNursery      = True
 isStrangeTypeGlobal BaseReg             = True
 isStrangeTypeGlobal r                   = isFixedPtrGlobalReg r

 strangeRegType :: CmmReg -> Maybe SDoc
+strangeRegType (CmmGlobal CCCS) = Just (ptext (sLit "struct CostCentreStack_ *"))
 strangeRegType (CmmGlobal CurrentTSO) = Just (ptext (sLit "struct StgTSO_ *"))
 strangeRegType (CmmGlobal CurrentNursery) = Just (ptext (sLit "struct bdescr_ *"))
 strangeRegType (CmmGlobal BaseReg) = Just (ptext (sLit "struct StgRegTable_ *"))