From: simonmar <unknown>
Date: Tue, 27 Feb 2001 17:15:53 +0000 (+0000)
Subject: [project @ 2001-02-27 17:15:53 by simonmar]
X-Git-Tag: Approximately_9120_patches~2526
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=60ac8eb441cf3f8a4660bb38455426cba9064c85;p=ghc-hetmet.git

[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).
---

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