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/sm/GC.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/sm/GC.h')
| -rw-r--r-- | rts/sm/GC.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/sm/GC.h b/rts/sm/GC.h index 2953d9eb0c..c32064a4dd 100644 --- a/rts/sm/GC.h +++ b/rts/sm/GC.h @@ -20,14 +20,14 @@ void GarbageCollect (rtsBool force_major_gc, rtsBool do_heap_census, - nat gc_type, Capability *cap); + uint32_t gc_type, Capability *cap); typedef void (*evac_fn)(void *user, StgClosure **root); StgClosure * isAlive ( StgClosure *p ); void markCAFs ( evac_fn evac, void *user ); -extern nat N; +extern uint32_t N; extern rtsBool major_gc; extern bdescr *mark_stack_bd; @@ -37,7 +37,7 @@ extern StgPtr mark_sp; extern rtsBool work_stealing; #ifdef DEBUG -extern nat mutlist_MUTVARS, mutlist_MUTARRS, mutlist_MVARS, mutlist_OTHERS, +extern uint32_t mutlist_MUTVARS, mutlist_MUTARRS, mutlist_MVARS, mutlist_OTHERS, mutlist_TVAR, mutlist_TVAR_WATCH_QUEUE, mutlist_TREC_CHUNK, @@ -51,7 +51,7 @@ extern StgWord64 whitehole_spin; #endif void gcWorkerThread (Capability *cap); -void initGcThreads (nat from, nat to); +void initGcThreads (uint32_t from, uint32_t to); void freeGcThreads (void); #if defined(THREADED_RTS) |