X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FProfiling.c;h=6d23bc2fe260c84d8e8a367984c7a82e26c8e3e7;hb=209e093599d0d4db5487d124895d817c55b7c052;hp=581bf06b0fd2f3c098c5a6b3321a60852e1fc7af;hpb=81c95f7d9854521a568179bb19199299835b7a53;p=ghc-hetmet.git

diff --git a/rts/Profiling.c b/rts/Profiling.c
index 581bf06..6d23bc2 100644
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -697,7 +697,7 @@ report_per_cc_costs( void )
       
       if (RtsFlags.CcFlags.doCostCentres >= COST_CENTRES_VERBOSE) {
 	fprintf(prof_file, "  %5" FMT_Word64 " %9" FMT_Word64,
-		(StgWord64)(cc->time_ticks), cc->mem_alloc);
+		(StgWord64)(cc->time_ticks), cc->mem_alloc*sizeof(W_));
       }
       fprintf(prof_file, "\n");
   }