From 60ac8eb441cf3f8a4660bb38455426cba9064c85 Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 27 Feb 2001 17:15:53 +0000 Subject: [PATCH] [project @ 2001-02-27 17:15:53 by simonmar] Don't blacklist everything in simplifyExpr. Allow simple inlining to happen (actually, this is what exposed the bug I just fixed in HscMain.lhs). --- ghc/compiler/simplCore/SimplCore.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs index bcfbbfa..498de9f 100644 --- a/ghc/compiler/simplCore/SimplCore.lhs +++ b/ghc/compiler/simplCore/SimplCore.lhs @@ -107,7 +107,7 @@ simplifyExpr dflags pcs hst expr ; us <- mkSplitUniqSupply 's' - ; let (expr', _counts) = initSmpl dflags sw_chkr us emptyVarSet black_list_all + ; let (expr', _counts) = initSmpl dflags sw_chkr us emptyVarSet black_list_nothing (simplExprGently expr) ; dumpIfSet_dyn dflags Opt_D_dump_simpl "Simplified expression" @@ -116,8 +116,8 @@ simplifyExpr dflags pcs hst expr ; return expr' } where - sw_chkr any = SwBool False -- A bit bogus - black_list_all v = True -- Black list everything + sw_chkr any = SwBool False -- A bit bogus + black_list_nothing v = False -- Black list nothing doCorePasses :: DynFlags -- 1.7.10.4