From: simonpj <unknown>
Date: Thu, 17 Mar 2005 10:09:24 +0000 (+0000)
Subject: [project @ 2005-03-17 10:09:24 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~898
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=eaa4cb42d8cca155a085512a4245e01be4aeb210;p=ghc-hetmet.git

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