From e9a9344b93aa3d367f2268f3e660efeec5a5232b Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Thu, 5 Oct 2006 10:57:21 +0000 Subject: [PATCH] Take advantage of non-rec-ness in occurrence analysis (minor) --- compiler/simplCore/OccurAnal.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/simplCore/OccurAnal.lhs b/compiler/simplCore/OccurAnal.lhs index de16aac..d0bc385 100644 --- a/compiler/simplCore/OccurAnal.lhs +++ b/compiler/simplCore/OccurAnal.lhs @@ -176,9 +176,9 @@ occAnalBind env (Rec pairs) body_usage | otherwise = (combined_usage, new_bind : binds_so_far) where - total_usage = combineUsageDetails body_usage rhs_usage - (combined_usage, tagged_bndr) = tagBinder total_usage bndr - new_bind = NonRec tagged_bndr rhs' + (body_usage', tagged_bndr) = tagBinder body_usage bndr + combined_usage = combineUsageDetails body_usage' rhs_usage + new_bind = NonRec tagged_bndr rhs' -- Recursive SCC do_final_bind (CyclicSCC cycle) (body_usage, binds_so_far) -- 1.7.10.4