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/GCUtils.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/GCUtils.h')
-rw-r--r-- | rts/sm/GCUtils.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/sm/GCUtils.h b/rts/sm/GCUtils.h index e77c98aa22..0f87eee3f1 100644 --- a/rts/sm/GCUtils.h +++ b/rts/sm/GCUtils.h @@ -22,12 +22,12 @@ bdescr *allocBlock_sync(void); void freeChain_sync(bdescr *bd); void push_scanned_block (bdescr *bd, gen_workspace *ws); -StgPtr todo_block_full (nat size, gen_workspace *ws); -StgPtr alloc_todo_block (gen_workspace *ws, nat size); +StgPtr todo_block_full (uint32_t size, gen_workspace *ws); +StgPtr alloc_todo_block (gen_workspace *ws, uint32_t size); bdescr *grab_local_todo_block (gen_workspace *ws); #if defined(THREADED_RTS) -bdescr *steal_todo_block (nat s); +bdescr *steal_todo_block (uint32_t s); #endif // Returns true if a block is partially full. This predicate is used to try @@ -48,7 +48,7 @@ void printMutableList (bdescr *bd); // mutable lists attached to the current gc_thread structure, which // are the same as the mutable lists on the Capability. INLINE_HEADER void -recordMutableGen_GC (StgClosure *p, nat gen_no) +recordMutableGen_GC (StgClosure *p, uint32_t gen_no) { bdescr *bd; |