From bfe90953c7700efb3b62a7c63a823608add077b8 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 31 Dec 2009 11:34:35 +0000 Subject: Use local mut lists in UPD_IND(), also clean up Updates.h --- rts/ThreadPaused.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'rts/ThreadPaused.c') diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c index 96a23673a7..93ec960367 100644 --- a/rts/ThreadPaused.c +++ b/rts/ThreadPaused.c @@ -28,7 +28,7 @@ struct stack_gap { StgWord gap_size; struct stack_gap *next_gap; }; static void -stackSqueeze(StgTSO *tso, StgPtr bottom) +stackSqueeze(Capability *cap, StgTSO *tso, StgPtr bottom) { StgPtr frame; rtsBool prev_was_update_frame; @@ -75,7 +75,7 @@ stackSqueeze(StgTSO *tso, StgPtr bottom) * screw us up if we don't check. */ if (upd->updatee != updatee && !closure_IND(upd->updatee)) { - UPD_IND(upd->updatee, updatee); + UPD_IND(cap, upd->updatee, updatee); } // now mark this update frame as a stack gap. The gap @@ -316,7 +316,7 @@ end: // number of stack words we squeeze away by doing so. if (RtsFlags.GcFlags.squeezeUpdFrames == rtsTrue && ((weight <= 5 && words_to_squeeze > 0) || weight < words_to_squeeze)) { - stackSqueeze(tso, (StgPtr)frame); + stackSqueeze(cap, tso, (StgPtr)frame); tso->flags |= TSO_SQUEEZED; // This flag tells threadStackOverflow() that the stack was // squeezed, because it may not need to be expanded. -- cgit v1.2.1