From: Ian Lynagh <igloo@earth.li>
Date: Thu, 21 Oct 2010 11:34:04 +0000 (+0000)
Subject: Add a comment on why some seq's are done
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b7c488e42e6d93abbb78aa80eb8be60a928e966c

Add a comment on why some seq's are done
---

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,