diff options
| author | Tomas Carnecky <tomas.carnecky@gmail.com> | 2016-05-08 14:44:07 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-05-10 08:40:50 +0200 |
| commit | 260a5648c299636a94b12b9b97bf9743b0a1496d (patch) | |
| tree | 2de1ffe579d1558d4352e496cf2e53b907e954d1 /rts/Stats.c | |
| parent | dd3e84701db7d05a6664aa5826732da3ee8ce265 (diff) | |
| download | haskell-260a5648c299636a94b12b9b97bf9743b0a1496d.tar.gz | |
Use stdint types for Stg{Word,Int}{8,16,32,64}
We can't define Stg{Int,Word} in terms of {,u}intptr_t because STG
depends on them being the exact same size as void*, and {,u}intptr_t
does not make that guarantee. Furthermore, we also need to define
StgHalf{Int,Word}, so the preprocessor if needs to stay. But we can at
least keep it in a single place instead of repeating it in various
files.
Also define STG_{INT,WORD}{8,16,32,64}_{MIN,MAX} and use it in HsFFI.h,
further reducing the need for CPP in other files.
Reviewers: austin, bgamari, simonmar, hvr, erikd
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2182
Diffstat (limited to 'rts/Stats.c')
| -rw-r--r-- | rts/Stats.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index 64a371a9d6..cf426ca0d3 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -331,7 +331,7 @@ stat_endGC (Capability *cap, gc_thread *gct, if (RtsFlags.GcFlags.giveStats == VERBOSE_GC_STATS) { W_ faults = getPageFaults(); - statsPrintf("%9" FMT_SizeT " %9" FMT_SizeT " %9" FMT_SizeT, + statsPrintf("%9" FMT_Word " %9" FMT_Word " %9" FMT_Word, alloc*sizeof(W_), copied*sizeof(W_), live*sizeof(W_)); statsPrintf(" %6.3f %6.3f %8.3f %8.3f %4" FMT_Word " %4" FMT_Word " (Gen: %2d)\n", @@ -560,7 +560,7 @@ stat_exit (void) if (tot_elapsed == 0.0) tot_elapsed = 1; if (RtsFlags.GcFlags.giveStats >= VERBOSE_GC_STATS) { - statsPrintf("%9" FMT_SizeT " %9.9s %9.9s", (W_)alloc*sizeof(W_), "", ""); + statsPrintf("%9" FMT_Word " %9.9s %9.9s", (W_)alloc*sizeof(W_), "", ""); statsPrintf(" %6.3f %6.3f\n\n", 0.0, 0.0); } @@ -836,7 +836,7 @@ statDescribeGens(void) tot_slop += gen_slop; } debugBelch("----------------------------------------------------------\n"); - debugBelch("%41s%8" FMT_SizeT " %8" FMT_SizeT "\n", + debugBelch("%41s%8" FMT_Word " %8" FMT_Word "\n", "",tot_live*sizeof(W_),tot_slop*sizeof(W_)); debugBelch("----------------------------------------------------------\n"); debugBelch("\n"); |