summaryrefslogtreecommitdiff
path: root/compiler/cmm/CmmExpr.hs
diff options
context:
space:
mode:
authordias@eecs.harvard.edu <unknown>2008-11-26 16:57:42 +0000
committerdias@eecs.harvard.edu <unknown>2008-11-26 16:57:42 +0000
commitdf54e4b621b1d2a8e30b01b3e93494a515d09f48 (patch)
tree947681aeb269bf9d2af39d26bec183fe6aa98b12 /compiler/cmm/CmmExpr.hs
parenta76ba381f76fd9a5178e815206466a97dab46f75 (diff)
downloadhaskell-df54e4b621b1d2a8e30b01b3e93494a515d09f48.tar.gz
one more missing patch from new codegen path
Diffstat (limited to 'compiler/cmm/CmmExpr.hs')
-rw-r--r--compiler/cmm/CmmExpr.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs
index 6e09a6f128..6c38c0361d 100644
--- a/compiler/cmm/CmmExpr.hs
+++ b/compiler/cmm/CmmExpr.hs
@@ -419,6 +419,8 @@ instance Ord GlobalReg where
compare _ GCFun = GT
compare BaseReg _ = LT
compare _ BaseReg = GT
+ compare EagerBlackholeInfo _ = LT
+ compare _ EagerBlackholeInfo = GT
-- convenient aliases
spReg, hpReg, spLimReg, nodeReg :: CmmReg