From 6193ff066266120cd18712e0663dfae36034aa51 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 19 Oct 2010 17:05:32 +0000 Subject: [PATCH] Evaluate the results in coreToStgApp --- compiler/stgSyn/CoreToStg.lhs | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs index 54895aa..b0595ab 100644 --- a/compiler/stgSyn/CoreToStg.lhs +++ b/compiler/stgSyn/CoreToStg.lhs @@ -544,13 +544,15 @@ coreToStgApp _ f args = do TickBoxOpId {} -> pprPanic "coreToStg TickBox" $ ppr (f,args') _other -> StgApp f args' - - return ( - app, - fun_fvs `unionFVInfo` args_fvs, - fun_escs `unionVarSet` (getFVSet args_fvs) + fvs = fun_fvs `unionFVInfo` args_fvs + vars = fun_escs `unionVarSet` (getFVSet args_fvs) -- All the free vars of the args are disqualified -- from being let-no-escaped. + + app `seq` fvs `seq` seqVarSet vars `seq` return ( + app, + fvs, + vars ) -- 1.7.10.4