From e791a22665384e27193fbc767b9eafbd7a32d909 Mon Sep 17 00:00:00 2001 From: simonpj Date: Wed, 21 Apr 2004 12:36:25 +0000 Subject: [PATCH] [project @ 2004-04-21 12:36:24 by simonpj] Comments only --- ghc/compiler/basicTypes/IdInfo.lhs | 2 +- ghc/compiler/simplCore/SimplCore.lhs | 6 +----- 2 files changed, 2 insertions(+), 6 deletions(-) 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 -- 1.7.10.4