From: Ian Lynagh <igloo@earth.li>
Date: Tue, 25 May 2010 11:12:17 +0000 (+0000)
Subject: Fix profiling output; spotted by jlouis
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=68c1816d93339e48b4907ed3b80e9551c2150a2d

Fix profiling output; spotted by jlouis
We were outputing the number of words allocated in a column titled "bytes".
---

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");
   }