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