diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-14 21:25:46 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-14 21:25:46 +0100 |
| commit | 6dd23e6549455431edcd1002d6e708e119aebb94 (patch) | |
| tree | e89aac995f31f8ced41000018b53f049832da12d /compiler/codeGen/StgCmmForeign.hs | |
| parent | 43e09ac7f7cb0d9523e74714c8f139c077216464 (diff) | |
| download | haskell-6dd23e6549455431edcd1002d6e708e119aebb94.tar.gz | |
Move some more constants into platformConstants
Diffstat (limited to 'compiler/codeGen/StgCmmForeign.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmForeign.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs index 499c22b552..ca5f49794b 100644 --- a/compiler/codeGen/StgCmmForeign.hs +++ b/compiler/codeGen/StgCmmForeign.hs @@ -315,7 +315,7 @@ loadThreadState dflags tso stack = do mkAssign sp (CmmLoad (cmmOffset dflags (CmmReg (CmmLocal stack)) (stack_SP dflags)) (bWord dflags)), -- SpLim = stack->stack + RESERVED_STACK_WORDS; mkAssign spLim (cmmOffsetW dflags (cmmOffset dflags (CmmReg (CmmLocal stack)) (stack_STACK dflags)) - rESERVED_STACK_WORDS), + (rESERVED_STACK_WORDS dflags)), openNursery dflags, -- and load the current cost centre stack from the TSO when profiling: if dopt Opt_SccProfilingOn dflags then |