From 180484cbf7afa29917b91d17306b94c1003afae2 Mon Sep 17 00:00:00 2001 From: simonpj Date: Tue, 21 Dec 2004 16:23:23 +0000 Subject: [PATCH] [project @ 2004-12-21 16:23:23 by simonpj] Fix buglet in CSE --- ghc/compiler/simplCore/CSE.lhs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/simplCore/CSE.lhs b/ghc/compiler/simplCore/CSE.lhs index 9e40c57..14febd6 100644 --- a/ghc/compiler/simplCore/CSE.lhs +++ b/ghc/compiler/simplCore/CSE.lhs @@ -132,8 +132,8 @@ cseBinds env (b:bs) = (b':bs') bs' = cseBinds env1 bs cseBind :: CSEnv -> CoreBind -> (CSEnv, CoreBind) -cseBind env (NonRec b e) = let (env', (_,e')) = do_one env (b, e) - in (env', NonRec b e') +cseBind env (NonRec b e) = let (env', (b',e')) = do_one env (b, e) + in (env', NonRec b' e') cseBind env (Rec pairs) = let (env', pairs') = mapAccumL do_one env pairs in (env', Rec pairs') @@ -175,7 +175,6 @@ cseExpr env (Lam b e) = let (env', b') = addBinder env b in Lam b' (cseExpr env' e) cseExpr env (Let bind e) = let (env', bind') = cseBind env bind in Let bind' (cseExpr env' e) --- gaw 2004 cseExpr env (Case scrut bndr ty alts) = Case scrut' bndr' ty (cseAlts env' scrut' bndr bndr' alts) where scrut' = tryForCSE env scrut -- 1.7.10.4