From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 23 Oct 2007 08:22:33 +0000 (+0000)
Subject: FIX BUILD (on 32-bit platforms): hs_hpc_module() type mismatch
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ab4a9f1bd7820d9308e56f645adef9a4b5d8ee76;p=ghc-hetmet.git

FIX BUILD (on 32-bit platforms): hs_hpc_module() type mismatch
---

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,