summaryrefslogtreecommitdiff
path: root/compiler/codeGen/CgForeignCall.hs
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2012-09-14 21:25:46 +0100
committerIan Lynagh <ian@well-typed.com>2012-09-14 21:25:46 +0100
commit6dd23e6549455431edcd1002d6e708e119aebb94 (patch)
treee89aac995f31f8ced41000018b53f049832da12d /compiler/codeGen/CgForeignCall.hs
parent43e09ac7f7cb0d9523e74714c8f139c077216464 (diff)
downloadhaskell-6dd23e6549455431edcd1002d6e708e119aebb94.tar.gz
Move some more constants into platformConstants
Diffstat (limited to 'compiler/codeGen/CgForeignCall.hs')
-rw-r--r--compiler/codeGen/CgForeignCall.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgForeignCall.hs b/compiler/codeGen/CgForeignCall.hs
index 0afa3c6915..435fbb0558 100644
--- a/compiler/codeGen/CgForeignCall.hs
+++ b/compiler/codeGen/CgForeignCall.hs
@@ -239,7 +239,7 @@ emitLoadThreadState = do
(bWord dflags)),
-- SpLim = stack->stack + RESERVED_STACK_WORDS;
CmmAssign spLim (cmmOffsetW dflags (cmmOffset dflags (CmmReg (CmmLocal stack)) (stack_STACK dflags))
- rESERVED_STACK_WORDS),
+ (rESERVED_STACK_WORDS dflags)),
-- HpAlloc = 0;
-- HpAlloc is assumed to be set to non-zero only by a failed
-- a heap check, see HeapStackCheck.cmm:GC_GENERIC