X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsAPI.c;h=8fcf8ce81207e6cc3b7752d2ae88c0ea4175ce33;hb=b2bd63f99d643f6b3eb30bb72bb9ae26d4183252;hp=53628dc61a65c47f79ce11a4592c837531cb85a1;hpb=41bfdf710742595e6043d9b851e8dab30ffe6d2f;p=ghc-hetmet.git

diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c
index 53628dc..8fcf8ce 100644
--- a/rts/RtsAPI.c
+++ b/rts/RtsAPI.c
@@ -375,8 +375,8 @@ rts_getBool (HaskellObj p)
    -------------------------------------------------------------------------- */
 
 INLINE_HEADER void pushClosure   (StgTSO *tso, StgWord c) {
-  tso->sp--;
-  tso->sp[0] = (W_) c;
+  tso->stackobj->sp--;
+  tso->stackobj->sp[0] = (W_) c;
 }
 
 StgTSO *