From c0378a2774a400e2992bc57a7ec580df3f142b29 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 28 Nov 2008 13:01:06 +0000 Subject: [PATCH] add missing case to Ord GlobalReg (EagerBlackhole == EagerBlackhole) --- compiler/cmm/CmmExpr.hs | 1 + 1 file changed, 1 insertion(+) 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 -- 1.7.10.4