diff options
| -rw-r--r-- | compiler/codeGen/StgCmmForeign.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs index cbbf3b64dd..c8db8644db 100644 --- a/compiler/codeGen/StgCmmForeign.hs +++ b/compiler/codeGen/StgCmmForeign.hs @@ -287,7 +287,13 @@ saveThreadState dflags = do -- tso = CurrentTSO; mkAssign (CmmLocal tso) stgCurrentTSO, -- tso->stackobj->sp = Sp; - mkStore (cmmOffset dflags (CmmLoad (cmmOffset dflags (CmmReg (CmmLocal tso)) (tso_stackobj dflags)) (bWord dflags)) (stack_SP dflags)) stgSp, + mkStore (cmmOffset dflags + (CmmLoad (cmmOffset dflags + (CmmReg (CmmLocal tso)) + (tso_stackobj dflags)) + (bWord dflags)) + (stack_SP dflags)) + stgSp, close_nursery, -- and save the current cost centre stack in the TSO when profiling: if gopt Opt_SccProfilingOn dflags then |