diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-15 15:44:53 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-15 15:44:53 +0000 |
| commit | 9562f18769b18cd44290d14628dd8d9a45e7d898 (patch) | |
| tree | 18b833a4ec148edb8a938a6e1df2faec5f1bca5a /rts/ThreadPaused.c | |
| parent | b04cc4c7b192a50885871d8ec71c25b6b6475d67 (diff) | |
| download | haskell-9562f18769b18cd44290d14628dd8d9a45e7d898.tar.gz | |
further fixes to the #5505 fix.
Diffstat (limited to 'rts/ThreadPaused.c')
| -rw-r--r-- | rts/ThreadPaused.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c index f0cdadcb48..0507880e6a 100644 --- a/rts/ThreadPaused.c +++ b/rts/ThreadPaused.c @@ -33,7 +33,6 @@ updateAdjacentFrames (Capability *cap, StgTSO *tso, StgUpdateFrame *upd, nat count, struct stack_gap *next) { StgClosure *updatee; - StgUpdateFrame *frame; struct stack_gap *gap; nat i; @@ -51,10 +50,10 @@ updateAdjacentFrames (Capability *cap, StgTSO *tso, updatee = upd->updatee; count--; - frame = upd - 1; - gap = (struct stack_gap*)frame; + upd--; + gap = (struct stack_gap*)upd; - for (i = count; i > 0; i--, frame--) { + for (i = count; i > 0; i--, upd--) { /* * Check two things: that the two update frames * don't point to the same object, and that the |