X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FBlockAlloc.h;fp=ghc%2Frts%2FBlockAlloc.h;h=1472ac6f76be5de28af1cf9f45c702ecc4ad3b6a;hb=e7c3f957fd36fd9f6369183b7a31e2a4a4c21b43;hp=8d52e329a91f7f7b3fdee364ae73af23ec304dc9;hpb=0c4c660645d31c7f8054b044854e6e84b1566cf5;p=ghc-hetmet.git

diff --git a/ghc/rts/BlockAlloc.h b/ghc/rts/BlockAlloc.h
index 8d52e32..1472ac6 100644
--- a/ghc/rts/BlockAlloc.h
+++ b/ghc/rts/BlockAlloc.h
@@ -9,37 +9,6 @@
 #ifndef BLOCK_ALLOC_H
 #define BLOCK_ALLOC_H
 
-/* Initialisation ---------------------------------------------------------- */
-
-extern void initBlockAllocator(void);
-
-/* Allocation -------------------------------------------------------------- */
-
-extern bdescr *allocGroup(nat n);
-extern bdescr *allocBlock(void);
-
-/* De-Allocation ----------------------------------------------------------- */
-
-extern void freeGroup(bdescr *p);
-extern void freeChain(bdescr *p);
-
-/* Round a value to megablocks --------------------------------------------- */
-
-#define WORDS_PER_MBLOCK  (BLOCKS_PER_MBLOCK * BLOCK_SIZE_W)
-
-INLINE_HEADER nat
-round_to_mblocks(nat words)
-{
-  if (words > WORDS_PER_MBLOCK) {
-    if ((words % WORDS_PER_MBLOCK) < (WORDS_PER_MBLOCK / 2)) {
-      words = (words / WORDS_PER_MBLOCK) * WORDS_PER_MBLOCK;
-    } else {
-      words = ((words / WORDS_PER_MBLOCK) + 1) * WORDS_PER_MBLOCK;
-    }
-  }
-  return words;
-}
-
 /* Debugging  -------------------------------------------------------------- */
 
 #ifdef DEBUG