Commit eaa4cb42 authored by simonpj's avatar simonpj
Browse files

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

Comments
parent 9cbbb552
...@@ -635,8 +635,8 @@ shortOutIndirections binds ...@@ -635,8 +635,8 @@ shortOutIndirections binds
| otherwise = [Rec (flattenBinds binds')] -- See Note [Rules and indirect-zapping] | otherwise = [Rec (flattenBinds binds')] -- See Note [Rules and indirect-zapping]
where where
ind_env = makeIndEnv binds ind_env = makeIndEnv binds
exp_ids = varSetElems ind_env exp_ids = varSetElems ind_env -- These exported Ids are the subjects
exp_id_set = mkVarSet exp_ids exp_id_set = mkVarSet exp_ids -- of the indirection-elimination
no_need_to_flatten = all (null . rulesRules . idSpecialisation) exp_ids no_need_to_flatten = all (null . rulesRules . idSpecialisation) exp_ids
binds' = concatMap zap binds binds' = concatMap zap binds
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment