diff options
Diffstat (limited to 'rts/RtsAPI.c')
| -rw-r--r-- | rts/RtsAPI.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c index 53628dc61a..8fcf8ce812 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 * |