[project @ 2005-03-17 10:09:24 by simonpj]

Comments

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 9e57f1d..1421446 100644 (file)
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -635,8 +635,8 @@ shortOutIndirections binds
   | otherwise            = [Rec (flattenBinds binds')] -- See Note [Rules and indirect-zapping]
   where
     ind_env           = makeIndEnv binds
-    exp_ids           = varSetElems ind_env
-    exp_id_set        = mkVarSet exp_ids
+    exp_ids           = varSetElems ind_env    -- These exported Ids are the subjects
+    exp_id_set        = mkVarSet exp_ids       -- of the indirection-elimination
     no_need_to_flatten = all (null . rulesRules . idSpecialisation) exp_ids
     binds'            = concatMap zap binds