diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-07 11:55:44 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-07 15:32:05 +0100 |
| commit | bccd9e85c26466b72b8439d037e73a313ba30688 (patch) | |
| tree | e26d55e5f8473070a6c7db770f5da1467aacf586 /compiler/cmm/CmmExpr.hs | |
| parent | 3cf60503e8a96e398b021d116ddab42675d41796 (diff) | |
| download | haskell-bccd9e85c26466b72b8439d037e73a313ba30688.tar.gz | |
Add missing cases in hand-coded instance Eq GlobalReg
aargh.
Diffstat (limited to 'compiler/cmm/CmmExpr.hs')
| -rw-r--r-- | compiler/cmm/CmmExpr.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs index 646ecb5c67..a6b9b11e5f 100644 --- a/compiler/cmm/CmmExpr.hs +++ b/compiler/cmm/CmmExpr.hs @@ -345,9 +345,11 @@ instance Eq GlobalReg where SpLim == SpLim = True Hp == Hp = True HpLim == HpLim = True + CCCS == CCCS = True CurrentTSO == CurrentTSO = True CurrentNursery == CurrentNursery = True HpAlloc == HpAlloc = True + EagerBlackholeInfo == EagerBlackholeInfo = True GCEnter1 == GCEnter1 = True GCFun == GCFun = True BaseReg == BaseReg = True |