summaryrefslogtreecommitdiff
path: root/rts/sm/Storage.c
diff options
context:
space:
mode:
authorTomas Carnecky <tomas.carnecky@gmail.com>2016-05-19 21:04:04 +0200
committerBen Gamari <ben@smart-cactus.org>2016-05-19 21:34:44 +0200
commit464b6f8a2d85285730198fe493ee653e662615d3 (patch)
treed4c971300e747834a7a95523bee85a59705c1a7d /rts/sm/Storage.c
parent8abc193dd3117adae126d43da3ae04cb045808da (diff)
downloadhaskell-464b6f8a2d85285730198fe493ee653e662615d3.tar.gz
{,M}BLOCK_SIZE_W * sizeof(W_) -> {,M}BLOCK_SIZE
Reviewers: austin, erikd, simonmar, bgamari Reviewed By: bgamari Subscribers: thomie Differential Revision: https://phabricator.haskell.org/D2241
Diffstat (limited to 'rts/sm/Storage.c')
-rw-r--r--rts/sm/Storage.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index b50594193c..717c96ae81 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -205,10 +205,10 @@ initStorage (void)
traceEventHeapInfo(CAPSET_HEAP_DEFAULT,
RtsFlags.GcFlags.generations,
- RtsFlags.GcFlags.maxHeapSize * BLOCK_SIZE_W * sizeof(W_),
- RtsFlags.GcFlags.minAllocAreaSize * BLOCK_SIZE_W * sizeof(W_),
- MBLOCK_SIZE_W * sizeof(W_),
- BLOCK_SIZE_W * sizeof(W_));
+ RtsFlags.GcFlags.maxHeapSize * BLOCK_SIZE,
+ RtsFlags.GcFlags.minAllocAreaSize * BLOCK_SIZE,
+ MBLOCK_SIZE,
+ BLOCK_SIZE);
}
void storageAddCapabilities (uint32_t from, uint32_t to)