rts/sm/BlockAlloc.h

   1 /* -----------------------------------------------------------------------------
   2  *
   3  * (c) The GHC Team, 1998-1999
   4  *
   5  * Block Allocator Interface
   6  *
   7  * ---------------------------------------------------------------------------*/
   8
   9 #ifndef BLOCK_ALLOC_H
  10 #define BLOCK_ALLOC_H
  11
  12 #pragma GCC visibility push(hidden)
  13
  14 /* Debugging  -------------------------------------------------------------- */
  15
  16 #ifdef DEBUG
  17 void checkFreeListSanity(void);
  18 nat  countFreeList(void);
  19 void markBlocks (bdescr *bd);
  20 void reportUnmarkedBlocks (void);
  21 #endif
  22
  23 extern lnat n_alloc_blocks;   // currently allocated blocks
  24 extern lnat hw_alloc_blocks;  // high-water allocated blocks
  25
  26 #pragma GCC visibility pop
  27
  28 #endif /* BLOCK_ALLOC_H */