From: simonpj <unknown>
Date: Wed, 21 Apr 2004 12:36:25 +0000 (+0000)
Subject: [project @ 2004-04-21 12:36:24 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1889
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e791a22665384e27193fbc767b9eafbd7a32d909;p=ghc-hetmet.git

[project @ 2004-04-21 12:36:24 by simonpj]
Comments only
---

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index 0b5b79a..f4cb706 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -473,7 +473,7 @@ this to".
 data WorkerInfo = NoWorker
 		| HasWorker Id Arity
 	-- The Arity is the arity of the *wrapper* at the moment of the
-	-- w/w split. See comments in MkIface.ifaceId, with the 'Worker' code.
+	-- w/w split.  See notes above.
 
 seqWorker :: WorkerInfo -> ()
 seqWorker (HasWorker id a) = id `seq` a `seq` ()
diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index eb354ae..4ee26a0 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -197,11 +197,7 @@ noStats dfs thing = do { binds <- thing; return (zeroSimplCount dfs, binds) }
 
 -- prepareLocalRuleBase takes the CoreBinds and rules defined in this module.
 -- It attaches those rules that are for local Ids to their binders, and
--- returns the remainder attached to Ids in an IdSet.  It also returns
--- Ids mentioned on LHS of some rule; these should be blacklisted.
-
--- The rule Ids and LHS Ids are black-listed; that is, they aren't inlined
--- so that the opportunity to apply the rule isn't lost too soon
+-- returns the remainder attached to Ids in an IdSet.  
 
 \begin{code}
 prepareRules :: HscEnv