X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FstgSyn%2FCoreToStg.lhs;h=2059937e0b5ab080b571a7f49dd434d839245533;hb=858cdd2f2725c75d35dabf7411dbafa932d84095;hp=b0595ab1ef997cea45b9de84fcd5db736a3c3e98;hpb=6193ff066266120cd18712e0663dfae36034aa51;p=ghc-hetmet.git

diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs
index b0595ab..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,
@@ -772,7 +774,7 @@ mkStgRhs rhs_fvs srt binder_info rhs
     assumptions (namely that they will be entered only once).
 
     upd_flag | isPAP env rhs  = ReEntrant
-             | otherwise      = Updatable
+	     | otherwise      = Updatable
   -}
 
 {- ToDo: