Omit visibility pragmas on Windows (fixes warnings/validate failures)
[ghc.git] / 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 #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 END_RTS_PRIVATE
27
28 #endif /* BLOCK_ALLOC_H */