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 BEGIN_RTS_PRIVATE
  13
  14 /* Debugging  -------------------------------------------------------------- */
  15
  16 extern nat countBlocks       (bdescr *bd);
  17 extern nat countAllocdBlocks (bdescr *bd);
  18
  19 #ifdef DEBUG
  20 void checkFreeListSanity(void);
  21 nat  countFreeList(void);
  22 void markBlocks (bdescr *bd);
  23 void reportUnmarkedBlocks (void);
  24 #endif
  25
  26 extern lnat n_alloc_blocks;   // currently allocated blocks
  27 extern lnat hw_alloc_blocks;  // high-water allocated blocks
  28
  29 END_RTS_PRIVATE
  30
  31 #endif /* BLOCK_ALLOC_H */