From b7c488e42e6d93abbb78aa80eb8be60a928e966c Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 21 Oct 2010 11:34:04 +0000 Subject: [PATCH] Add a comment on why some seq's are done --- compiler/stgSyn/CoreToStg.lhs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs index c81edcd..2059937 100644 --- a/compiler/stgSyn/CoreToStg.lhs +++ b/compiler/stgSyn/CoreToStg.lhs @@ -549,6 +549,8 @@ coreToStgApp _ f args = do -- All the free vars of the args are disqualified -- from being let-no-escaped. + -- Forcing these fixes a leak in the code generator, noticed while + -- profiling for trac #4367 app `seq` fvs `seq` seqVarSet vars `seq` return ( app, fvs, -- 1.7.10.4