Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/9562f18769b18cd44290d14628dd8d9a45e7d898 >--------------------------------------------------------------- commit 9562f18769b18cd44290d14628dd8d9a45e7d898 Author: Simon Marlow <[email protected]> Date: Tue Nov 15 15:44:53 2011 +0000 further fixes to the #5505 fix. >--------------------------------------------------------------- rts/ThreadPaused.c | 7 +++---- 1 files changed, 3 insertions(+), 4 deletions(-) diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c index f0cdadc..0507880 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
