diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-04 15:13:56 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-05 15:20:17 +0000 |
| commit | 2d91e04b9cedac7bdb772defc7bd23a114c4dbdb (patch) | |
| tree | beb6faa2edc8ed10513df1b9fcd0f23dba3e2dfe | |
| parent | 3478213ac422912df85308029e16c3f31b5a91d2 (diff) | |
| download | haskell-2d91e04b9cedac7bdb772defc7bd23a114c4dbdb.tar.gz | |
Fix for unregisterised compilation: isStrangeTypeGlobal CCCS = True
Needed by #5357
| -rw-r--r-- | compiler/cmm/PprC.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index c16066dcea..21826f8224 100644 --- 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_ *")) |