From f6baf3ba39bb63a1159935a55c39214b4b51e0d3 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Wed, 1 Mar 2006 17:56:00 +0000 Subject: [PATCH] Complete undo of Simplify-the-IdInfo-before-any-RHSs --- ghc/compiler/simplCore/OccurAnal.lhs | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs index ad3eee0..5537155 100644 --- a/ghc/compiler/simplCore/OccurAnal.lhs +++ b/ghc/compiler/simplCore/OccurAnal.lhs @@ -319,14 +319,9 @@ reOrderRec env (CyclicSCC (bind : binds)) | inlineCandidate bndr rhs = 2 -- Likely to be inlined --- NOT NEEDED ANY MORE [Feb06] --- We make all rules available in all bindings, by substituting --- the IdInfo before looking at any RHSs. I'm just leaving this --- snippet in as a commment so we can find it again if necessary. --- --- | not (isEmptySpecInfo (idSpecialisation bndr)) = 1 --- -- Avoid things with specialisations; we'd like --- -- to take advantage of them in the subsequent bindings + | not (isEmptySpecInfo (idSpecialisation bndr)) = 1 + -- Avoid things with specialisations; we'd like + -- to take advantage of them in the subsequent bindings | otherwise = 0 -- 1.7.10.4