diff options
Diffstat (limited to 'compiler/codeGen/StgCmmBind.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmBind.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index e40c660fdb..a0fcc1ac5d 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -435,7 +435,8 @@ closureCodeBody top_lvl bndr cl_info _cc args arity body fv_details -- heap check, to reduce live vars over check ; if node_points then load_fvs node lf_info fv_bindings else return () - ; cgExpr body }} + ; _ <- cgExpr body + ; return () }} } -- A function closure pointer may be tagged, so we @@ -501,7 +502,8 @@ thunkCode cl_info fv_details _cc node arity body ; let lf_info = closureLFInfo cl_info ; fv_bindings <- mapM bind_fv fv_details ; load_fvs node lf_info fv_bindings - ; cgExpr body }}} + ; _ <- cgExpr body + ; return () }}} ------------------------------------------------------------------------ |