[commit: ghc] master: rts: remove unused round_up_to_mblocks function (e5bb515)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e5bb515e651e33fadc90c016c28553f2e9d8a956/ghc

>---------------------------------------------------------------

commit e5bb515e651e33fadc90c016c28553f2e9d8a956
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Thu May 10 18:05:51 2018 +0300

    rts: remove unused round_up_to_mblocks function


>---------------------------------------------------------------

e5bb515e651e33fadc90c016c28553f2e9d8a956
 includes/rts/storage/Block.h | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/includes/rts/storage/Block.h b/includes/rts/storage/Block.h
index 9ba0b15..ecd6bf5 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 */