diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-05-10 18:05:51 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-05-10 18:05:51 +0300 |
| commit | e5bb515e651e33fadc90c016c28553f2e9d8a956 (patch) | |
| tree | 2710f269ad1d4050e978aadd845652fdf9eb43de /includes/rts/storage | |
| parent | b2ff5dde399cd012218578945ada1d9ff68daa35 (diff) | |
| download | haskell-e5bb515e651e33fadc90c016c28553f2e9d8a956.tar.gz | |
rts: remove unused round_up_to_mblocks function
Diffstat (limited to 'includes/rts/storage')
| -rw-r--r-- | includes/rts/storage/Block.h | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/includes/rts/storage/Block.h b/includes/rts/storage/Block.h index 9ba0b15635..ecd6bf5dd8 100644 --- a/includes/rts/storage/Block.h +++ b/includes/rts/storage/Block.h @@ -338,13 +338,4 @@ round_to_mblocks(StgWord words) return words; } -INLINE_HEADER StgWord -round_up_to_mblocks(StgWord words) -{ - words += FIRST_BLOCK_OFF/sizeof(W_); - words = ((words / MBLOCK_SIZE_W) + 1) * MBLOCK_SIZE_W; - words -= FIRST_BLOCK_OFF/sizeof(W_); - return words; -} - #endif /* !CMINUSMINUS */ |