diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2017-04-23 10:00:19 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-04-23 11:05:48 -0400 |
| commit | 1d66f1051933ca3dedbf04da9ce38687dbfd8f05 (patch) | |
| tree | ee1fa823055f89de6fdc8775eb1e229b01c20af3 /rts/Compact.cmm | |
| parent | f13eebcc9b1407e5aeaf010536fcb5e469dbfe71 (diff) | |
| download | haskell-1d66f1051933ca3dedbf04da9ce38687dbfd8f05.tar.gz | |
rts: Fix "ASSERT ("s
Reviewers: austin, erikd, simonmar
Reviewed By: erikd
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D3486
Diffstat (limited to 'rts/Compact.cmm')
| -rw-r--r-- | rts/Compact.cmm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/Compact.cmm b/rts/Compact.cmm index 0b98f39042..5290d95a60 100644 --- a/rts/Compact.cmm +++ b/rts/Compact.cmm @@ -358,7 +358,7 @@ stg_compactGetFirstBlockzh ( P_ str ) W_ size; block = str - SIZEOF_StgCompactNFDataBlock::W_; - ASSERT (StgCompactNFDataBlock_owner(block) == str); + ASSERT(StgCompactNFDataBlock_owner(block) == str); // We have to save Hp back to the nursery, otherwise the size will // be wrong. @@ -367,7 +367,7 @@ stg_compactGetFirstBlockzh ( P_ str ) bd = Bdescr(str); size = bdescr_free(bd) - bdescr_start(bd); - ASSERT (size <= TO_W_(bdescr_blocks(bd)) * BLOCK_SIZE); + ASSERT(size <= TO_W_(bdescr_blocks(bd)) * BLOCK_SIZE); return (block, size); } @@ -396,12 +396,12 @@ stg_compactGetNextBlockzh ( P_ str, W_ block ) return (0::W_, 0::W_); } - ASSERT (StgCompactNFDataBlock_owner(next_block) == str || + ASSERT(StgCompactNFDataBlock_owner(next_block) == str || StgCompactNFDataBlock_owner(next_block) == NULL); bd = Bdescr(next_block); size = bdescr_free(bd) - bdescr_start(bd); - ASSERT (size <= TO_W_(bdescr_blocks(bd)) * BLOCK_SIZE); + ASSERT(size <= TO_W_(bdescr_blocks(bd)) * BLOCK_SIZE); return (next_block, size); } |