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

1 files changed, 5 insertions, 5 deletions

diff --git a/rts/Hpc.c b/rts/Hpc.c
index 20ef91f5f6..b2228162f7 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -257,7 +257,7 @@ hs_hpc_module(char *modName,
               StgWord64 *tixArr)
 {
   HpcModuleInfo *tmpModule;
-  nat i;
+  uint32_t i;
 
   if (moduleHash == NULL) {
       moduleHash = allocStrHashTable();
@@ -332,12 +332,12 @@ writeTix(FILE *f) {
     }
     fprintf(f," TixModule \"%s\" %u %u [",
            tmpModule->modName,
-            (nat)tmpModule->hashNo,
-            (nat)tmpModule->tickCount);
+            (uint32_t)tmpModule->hashNo,
+            (uint32_t)tmpModule->tickCount);
     debugTrace(DEBUG_hpc,"%s: %u (hash=%u)\n",
                tmpModule->modName,
-               (nat)tmpModule->tickCount,
-               (nat)tmpModule->hashNo);
+               (uint32_t)tmpModule->tickCount,
+               (uint32_t)tmpModule->hashNo);
 
     inner_comma = 0;
     for(i = 0;i < tmpModule->tickCount;i++) {