diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-10-21 11:34:04 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-10-21 11:34:04 +0000 |
| commit | b7c488e42e6d93abbb78aa80eb8be60a928e966c (patch) | |
| tree | 5f8c3964433bd5b596c39a878f3408d4fee18420 | |
| parent | 0dc2b9de4dd4681aa11dfa5419c931a51b274fa6 (diff) | |
| download | haskell-b7c488e42e6d93abbb78aa80eb8be60a928e966c.tar.gz | |
Add a comment on why some seq's are done
| -rw-r--r-- | compiler/stgSyn/CoreToStg.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs index c81edcd5b7..2059937e0b 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, |