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/Disassembler.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/Disassembler.c')
-rw-r--r-- | rts/Disassembler.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/rts/Disassembler.c b/rts/Disassembler.c index 2e1790ef8d..f9e42b7767 100644 --- a/rts/Disassembler.c +++ b/rts/Disassembler.c @@ -281,11 +281,11 @@ disInstr ( StgBCO *bco, int pc ) */ void disassemble( StgBCO *bco ) { - nat i, j; - StgWord16* instrs = (StgWord16*)(bco->instrs->payload); - StgMutArrPtrs* ptrs = bco->ptrs; - nat nbcs = (int)(bco->instrs->bytes / sizeof(StgWord16)); - nat pc = 1; + uint32_t i, j; + StgWord16* instrs = (StgWord16*)(bco->instrs->payload); + StgMutArrPtrs* ptrs = bco->ptrs; + uint32_t nbcs = (uint32_t)(bco->instrs->bytes / sizeof(StgWord16)); + uint32_t pc = 1; debugBelch("BCO\n" ); pc = 0; |