diff options
| author | Erik de Castro Lopo <erikd@mega-nerd.com> | 2016-05-02 06:37:14 +1000 |
|---|---|---|
| committer | Erik de Castro Lopo <erikd@mega-nerd.com> | 2016-05-05 08:29:27 +1000 |
| commit | db9de7eb3e91820024f673bfdb6fb8064cfed20d (patch) | |
| tree | 5e1c3ef0b6dee7f40fedbc118ba36cfe6ffdd1ee /rts/Task.h | |
| parent | ad4392c142696d5092533480a82ed65322e9d413 (diff) | |
| download | haskell-db9de7eb3e91820024f673bfdb6fb8064cfed20d.tar.gz | |
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
Diffstat (limited to 'rts/Task.h')
| -rw-r--r-- | rts/Task.h | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/rts/Task.h b/rts/Task.h index 209df49ddb..5fea2badda 100644 --- a/rts/Task.h +++ b/rts/Task.h @@ -140,7 +140,7 @@ typedef struct Task_ { // The current top-of-stack InCall struct InCall_ *incall; - nat n_spare_incalls; + uint32_t n_spare_incalls; struct InCall_ *spare_incalls; rtsBool worker; // == rtsTrue if this is a worker Task @@ -192,7 +192,7 @@ extern Mutex all_tasks_mutex; // Requires: sched_mutex. // void initTaskManager (void); -nat freeTaskManager (void); +uint32_t freeTaskManager (void); // Create a new Task for a bound thread. This Task must be released // by calling boundTaskExiting. The Task is cached in @@ -247,9 +247,9 @@ void interruptWorkerTask (Task *task); #endif /* THREADED_RTS */ // For stats -extern nat taskCount; -extern nat workerCount; -extern nat peakWorkerCount; +extern uint32_t taskCount; +extern uint32_t workerCount; +extern uint32_t peakWorkerCount; // ----------------------------------------------------------------------------- // INLINE functions... private from here on down: |