[project @ 1999-05-04 10:19:14 by sof]
[ghc-hetmet.git] / ghc / rts / MBlock.h
1 /* -----------------------------------------------------------------------------
2  * $Id: MBlock.h,v 1.6 1999/05/04 10:19:16 sof Exp $
3  *
4  * (c) The GHC Team, 1998-1999
5  *
6  * MegaBlock Allocator interface.
7  *
8  * ---------------------------------------------------------------------------*/
9
10 extern lnat mblocks_allocated;
11
12 #ifdef ENABLE_WIN32_DLL_SUPPORT
13 extern int is_heap_alloced(const void* p);
14 #endif
15
16 extern void * getMBlock(void);
17 extern void * getMBlocks(nat n);