diff options
Diffstat (limited to 'compiler')
| -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, |