From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 28 Nov 2008 13:01:06 +0000 (+0000)
Subject: add missing case to Ord GlobalReg (EagerBlackhole == EagerBlackhole)
X-Git-Tag: 2009-03-13~372
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c0378a2774a400e2992bc57a7ec580df3f142b29

add missing case to Ord GlobalReg (EagerBlackhole == EagerBlackhole)
---

diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs
index 6c38c03..db42564 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