diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-04-21 16:23:36 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-04-21 16:23:36 +0000 |
| commit | 81c95f7d9854521a568179bb19199299835b7a53 (patch) | |
| tree | 148e2833ad3112356c87f0b9286032484d587181 /rts/Profiling.c | |
| parent | 7dbc1d8f8fb650162e01f6eab8dabaf1f53c819d (diff) | |
| download | haskell-81c95f7d9854521a568179bb19199299835b7a53.tar.gz | |
Use StgWord64 instead of ullong
This patch also fixes ullong_format_string (renamed to showStgWord64)
so that it works with values outside the 32bit range (trac #3979), and
simplifies the without-commas case.
Diffstat (limited to 'rts/Profiling.c')
| -rw-r--r-- | rts/Profiling.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c index 0769b529c0..581bf06b0f 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -40,7 +40,7 @@ unsigned int HP_ID; /* figures for the profiling report. */ -static ullong total_alloc; +static StgWord64 total_alloc; static lnat total_prof_ticks; /* Globals for opening the profiling log file(s) @@ -770,7 +770,7 @@ reportCCSProfiling( void ) (int) RtsFlags.MiscFlags.tickInterval); fprintf(prof_file, "\ttotal alloc = %11s bytes", - ullong_format_string(total_alloc * sizeof(W_), + showStgWord64(total_alloc * sizeof(W_), temp, rtsTrue/*commas*/)); #if defined(PROFILING_DETAIL_COUNTS) |