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 #endif
  18
  19 lnat n_alloc_blocks;   // currently allocated blocks
  20 lnat hw_alloc_blocks;  // high-water allocated blocks
  21
  22 #endif /* BLOCK_ALLOC_H */