From db9de7eb3e91820024f673bfdb6fb8064cfed20d Mon Sep 17 00:00:00 2001 From: Erik de Castro Lopo Date: Mon, 2 May 2016 06:37:14 +1000 Subject: rts: Replace `nat` with `uint32_t` The `nat` type was an alias for `unsigned int` with a comment saying it was at least 32 bits. We keep the typedef in case client code is using it but mark it as deprecated. Test Plan: Validated on Linux, OS X and Windows Reviewers: simonmar, austin, thomie, hvr, bgamari, hsyl20 Differential Revision: https://phabricator.haskell.org/D2166 --- rts/Threads.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'rts/Threads.c') diff --git a/rts/Threads.c b/rts/Threads.c index bf30ab8eac..7317249e11 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -59,7 +59,7 @@ createThread(Capability *cap, W_ size) { StgTSO *tso; StgStack *stack; - nat stack_size; + uint32_t stack_size; /* sched_mutex is *not* required */ @@ -701,7 +701,7 @@ threadStackUnderflow (Capability *cap, StgTSO *tso) { StgStack *new_stack, *old_stack; StgUnderflowFrame *frame; - nat retvals; + uint32_t retvals; debugTraceCap(DEBUG_sched, cap, "stack underflow"); @@ -831,7 +831,7 @@ void printAllThreads(void) { StgTSO *t, *next; - nat i, g; + uint32_t i, g; Capability *cap; debugBelch("all threads:\n"); @@ -859,7 +859,7 @@ printAllThreads(void) void printThreadQueue(StgTSO *t) { - nat i = 0; + uint32_t i = 0; for (; t != END_TSO_QUEUE; t = t->_link) { printThreadStatus(t); i++; -- cgit v1.2.1