Commit 0f418257 authored by simonpj's avatar simonpj
Browse files

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

Add comment
parent b506bbfb
......@@ -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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment