diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-11-28 13:01:06 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-11-28 13:01:06 +0000 |
| commit | c0378a2774a400e2992bc57a7ec580df3f142b29 (patch) | |
| tree | 2d3421de5b8998ffe3429d895b079b7891df975e /compiler/cmm | |
| parent | dc667ab52ab208427094e497ece94132c57db8f2 (diff) | |
| download | haskell-c0378a2774a400e2992bc57a7ec580df3f142b29.tar.gz | |
add missing case to Ord GlobalReg (EagerBlackhole == EagerBlackhole)
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmExpr.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs index 6c38c0361d..db42564171 100644 --- a/compiler/cmm/CmmExpr.hs +++ b/compiler/cmm/CmmExpr.hs @@ -387,6 +387,7 @@ instance Ord GlobalReg where compare CurrentTSO CurrentTSO = EQ compare CurrentNursery CurrentNursery = EQ compare HpAlloc HpAlloc = EQ + compare EagerBlackholeInfo EagerBlackholeInfo = EQ compare GCEnter1 GCEnter1 = EQ compare GCFun GCFun = EQ compare BaseReg BaseReg = EQ |