From: simonpj <unknown>
Date: Fri, 23 Mar 2001 14:52:30 +0000 (+0000)
Subject: [project @ 2001-03-23 14:52:30 by simonpj]
X-Git-Tag: Approximately_9120_patches~2330
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0f41825723ff9c22962e19ff5c34d7ed1c00ad3e;p=ghc-hetmet.git

[project @ 2001-03-23 14:52:30 by simonpj]
Add comment
---

diff --git a/ghc/compiler/simplCore/CSE.lhs b/ghc/compiler/simplCore/CSE.lhs
index 66038f3..041fdfb 100644
--- a/ghc/compiler/simplCore/CSE.lhs
+++ b/ghc/compiler/simplCore/CSE.lhs
@@ -220,6 +220,8 @@ lookup_list ((x,e):es) expr | cheapEqExpr e expr = Just x
 
 addCSEnvItem env id expr | exprIsBig expr = env
 			 | otherwise      = extendCSEnv env id expr
+   -- We don't try to CSE big expressions, because they are expensive to compare
+   -- (and are unlikely to be the same anyway)
 
 extendCSEnv (CS cs in_scope sub) id expr
   = CS (addToUFM_C combine cs hash [(id, expr)]) in_scope sub