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/Sparks.c | |
| 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/Sparks.c')
| -rw-r--r-- | rts/Sparks.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/Sparks.c b/rts/Sparks.c index ec075805bf..e0b2e66a7d 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -89,7 +89,7 @@ pruneSparkQueue (Capability *cap) { SparkPool *pool; StgClosurePtr spark, tmp, *elements; - nat n, pruned_sparks; // stats only + uint32_t n, pruned_sparks; // stats only StgWord botInd,oldBotInd,currInd; // indices in array (always < size) const StgInfoTable *info; @@ -293,10 +293,10 @@ traverseSparkQueue (evac_fn evac, void *user, Capability *cap) * * Could be called after GC, before Cap. release, from scheduler. * -------------------------------------------------------------------------- */ -void balanceSparkPoolsCaps(nat n_caps, Capability caps[]) +void balanceSparkPoolsCaps(uint32_t n_caps, Capability caps[]) GNUC3_ATTRIBUTE(__noreturn__); -void balanceSparkPoolsCaps(nat n_caps STG_UNUSED, +void balanceSparkPoolsCaps(uint32_t n_caps STG_UNUSED, Capability caps[] STG_UNUSED) { barf("not implemented"); } |