X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FProfHeap.c;h=c161d0c6a7986122d16af053f21d200f565df533;hp=8f4c8baa2fb61d8417d304418c597a77cd3be24b;hb=9da4639011348fb6c318e3cba4b08622f811d9c4;hpb=a0be7e7ccd602efd9b7d35b3e0747a2c4f155ce9

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index 8f4c8ba..c161d0c 100644
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -386,9 +386,9 @@ printSample(rtsBool beginSample, StgDouble sampleValue)
 {
     StgDouble fractionalPart, integralPart;
     fractionalPart = modf(sampleValue, &integralPart);
-    fprintf(hp_file, "%s %d.%02d\n",
+    fprintf(hp_file, "%s %" FMT_Word64 ".%02" FMT_Word64 "\n",
             (beginSample ? "BEGIN_SAMPLE" : "END_SAMPLE"),
-            (int)integralPart, (int)(fractionalPart * 100));
+            (StgWord64)integralPart, (StgWord64)(fractionalPart * 100));
 }
 
 /* --------------------------------------------------------------------------