diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-01-02 17:22:11 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-01-05 22:11:29 +0100 |
| commit | bd702f496c1dfdb5a5cf5c1c8c59cce37ed1beda (patch) | |
| tree | 4b6cd3edb7b064242cd1f00fd71c9ea2dc49ff64 /compiler/codeGen | |
| parent | bbee3e167b79d66d4a5973ea1242e2f02c2ddf13 (diff) | |
| download | haskell-bd702f496c1dfdb5a5cf5c1c8c59cce37ed1beda.tar.gz | |
StgCmmForeign: Break up long line
Diffstat (limited to 'compiler/codeGen')
| -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 |