X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FHpc.c;h=50730ea70bad4359092bcf43b9619245139335a3;hp=b1b26082946f46529480d4b855624150d5b08170;hb=ae8fc4d5492af76e7938f797142a3483afa7a770;hpb=f4510d27c5883fe7e8570f4dd49d45a8b0122f2c

diff --git a/rts/Hpc.c b/rts/Hpc.c
index b1b2608..50730ea 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -32,6 +32,13 @@ typedef struct _Info {
   struct _Info *next;
 } Info;
 
+// This is a cruel hack, we should completely redesign the format specifier handling in the RTS.
+#if SIZEOF_LONG == 8
+#define PRIuWORD64 "lu"
+#else
+#define PRIuWORD64 "llu"
+#endif
+
 Info *modules = 0;
 Info *nextModule = 0;
 StgWord64 *tixBoxes = 0;	// local copy of tixBoxes array, from file.
@@ -314,7 +321,7 @@ exitHpc(void) {
       }
 
       if (tmpModule->tixArr) {
-	fprintf(f,"%lld",tmpModule->tixArr[i]);
+	fprintf(f,"%" PRIuWORD64,tmpModule->tixArr[i]);
       } else {
 	fprintf(f,"0");
       }