diff options
Diffstat (limited to 'rts/ThreadPaused.c')
| -rw-r--r-- | rts/ThreadPaused.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c index 1f1d0afe58..f58a51ed8f 100644 --- a/rts/ThreadPaused.c +++ b/rts/ThreadPaused.c @@ -30,12 +30,12 @@ struct stack_gap { StgWord gap_size; struct stack_gap *next_gap; }; static struct stack_gap * -updateAdjacentFrames (Capability *cap, StgTSO *tso, - StgUpdateFrame *upd, nat count, struct stack_gap *next) +updateAdjacentFrames (Capability *cap, StgTSO *tso, StgUpdateFrame *upd, + uint32_t count, struct stack_gap *next) { StgClosure *updatee; struct stack_gap *gap; - nat i; + uint32_t i; // The first one (highest address) is the frame we take the // "master" updatee from; all the others will be made indirections @@ -80,7 +80,7 @@ static void stackSqueeze(Capability *cap, StgTSO *tso, StgPtr bottom) { StgPtr frame; - nat adjacent_update_frames; + uint32_t adjacent_update_frames; struct stack_gap *gap; // Stage 1: @@ -158,7 +158,7 @@ stackSqueeze(Capability *cap, StgTSO *tso, StgPtr bottom) { StgWord8 *sp; StgWord8 *gap_start, *next_gap_start, *gap_end; - nat chunk_size; + uint32_t chunk_size; next_gap_start = (StgWord8*)gap + sizeof(StgUpdateFrame); sp = next_gap_start; @@ -197,9 +197,9 @@ threadPaused(Capability *cap, StgTSO *tso) const StgInfoTable *cur_bh_info USED_IF_THREADS; StgClosure *bh; StgPtr stack_end; - nat words_to_squeeze = 0; - nat weight = 0; - nat weight_pending = 0; + uint32_t words_to_squeeze = 0; + uint32_t weight = 0; + uint32_t weight_pending = 0; rtsBool prev_was_update_frame = rtsFalse; StgWord heuristic_says_squeeze; @@ -352,7 +352,7 @@ threadPaused(Capability *cap, StgTSO *tso) // normal stack frames; do nothing except advance the pointer default: { - nat frame_size = stack_frame_sizeW(frame); + uint32_t frame_size = stack_frame_sizeW(frame); weight_pending += frame_size; frame = (StgClosure *)((StgPtr)frame + frame_size); prev_was_update_frame = rtsFalse; |