diff options
Diffstat (limited to 'compiler/cmm/CmmExpr.hs')
| -rw-r--r-- | compiler/cmm/CmmExpr.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs index ef97a82aa9..885639b874 100644 --- a/compiler/cmm/CmmExpr.hs +++ b/compiler/cmm/CmmExpr.hs @@ -343,7 +343,8 @@ data GlobalReg | SpLim -- Stack limit | Hp -- Heap ptr; points to last occupied heap location. | HpLim -- Heap limit register - | CurrentTSO -- pointer to current thread's TSO + | CCCS -- Current cost-centre stack + | CurrentTSO -- pointer to current thread's TSO | CurrentNursery -- pointer to allocation area | HpAlloc -- allocation count for heap check failure @@ -395,6 +396,7 @@ instance Ord GlobalReg where compare SpLim SpLim = EQ compare Hp Hp = EQ compare HpLim HpLim = EQ + compare CCCS CCCS = EQ compare CurrentTSO CurrentTSO = EQ compare CurrentNursery CurrentNursery = EQ compare HpAlloc HpAlloc = EQ @@ -419,6 +421,8 @@ instance Ord GlobalReg where compare _ Hp = GT compare HpLim _ = LT compare _ HpLim = GT + compare CCCS _ = LT + compare _ CCCS = GT compare CurrentTSO _ = LT compare _ CurrentTSO = GT compare CurrentNursery _ = LT |