From ab4a9f1bd7820d9308e56f645adef9a4b5d8ee76 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 23 Oct 2007 08:22:33 +0000 Subject: [PATCH] FIX BUILD (on 32-bit platforms): hs_hpc_module() type mismatch --- rts/Hpc.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/rts/Hpc.c b/rts/Hpc.c index aa7ffe9..3922d44 100644 --- a/rts/Hpc.c +++ b/rts/Hpc.c @@ -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, -- 1.7.10.4