Commit b7c488e4 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a comment on why some seq's are done

parent 0dc2b9de
...@@ -549,6 +549,8 @@ coreToStgApp _ f args = do ...@@ -549,6 +549,8 @@ coreToStgApp _ f args = do
-- All the free vars of the args are disqualified -- All the free vars of the args are disqualified
-- from being let-no-escaped. -- 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 `seq` fvs `seq` seqVarSet vars `seq` return (
app, app,
fvs, fvs,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment