diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-12-31 11:34:35 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-12-31 11:34:35 +0000 |
| commit | bfe90953c7700efb3b62a7c63a823608add077b8 (patch) | |
| tree | c8f5ead7c818d8aff8888a777081ce805c4f91b0 /rts/ThreadPaused.c | |
| parent | f2c58035f765712341399be2dcec871757f529e6 (diff) | |
| download | haskell-bfe90953c7700efb3b62a7c63a823608add077b8.tar.gz | |
Use local mut lists in UPD_IND(), also clean up Updates.h
Diffstat (limited to 'rts/ThreadPaused.c')
| -rw-r--r-- | rts/ThreadPaused.c | 6 |
1 files changed, 3 insertions, 3 deletions
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. |