diff options
author | Simon Marlow <simonmar@microsoft.com> | 2007-10-23 08:22:33 +0000 |
---|---|---|
committer | Simon Marlow <simonmar@microsoft.com> | 2007-10-23 08:22:33 +0000 |
commit | ab4a9f1bd7820d9308e56f645adef9a4b5d8ee76 (patch) | |
tree | f62986e41504d55188a57fcabceb17d23facc365 /rts/Hpc.c | |
parent | ed99161b28b2eea66f4b1b033ee57cfd2be127db (diff) | |
download | haskell-ab4a9f1bd7820d9308e56f645adef9a4b5d8ee76.tar.gz |
FIX BUILD (on 32-bit platforms): hs_hpc_module() type mismatch
Diffstat (limited to 'rts/Hpc.c')
-rw-r--r-- | rts/Hpc.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -186,8 +186,8 @@ static void hpc_init(void) { int hs_hpc_module(char *modName, - unsigned int modCount, - unsigned int modHashNo, + StgWord32 modCount, + StgWord32 modHashNo, StgWord64 *tixArr) { HpcModuleInfo *tmpModule, *lastModule; unsigned int i; @@ -284,8 +284,8 @@ writeTix(FILE *f) { } fprintf(f," TixModule \"%s\" %u %u [", tmpModule->modName, - tmpModule->hashNo, - tmpModule->tickCount); + (nat)tmpModule->hashNo, + (nat)tmpModule->tickCount); debugTrace(DEBUG_hpc,"%s: %u (offset=%u) (hash=%u)\n", tmpModule->modName, tmpModule->tickCount, |