/* -----------------------------------------------------------------------------
- * $Id: BlockAlloc.h,v 1.8 1999/11/09 15:46:49 simonmar Exp $
+ * $Id: BlockAlloc.h,v 1.10 2003/11/12 17:49:06 sof Exp $
*
* (c) The GHC Team, 1998-1999
*
#define WORDS_PER_MBLOCK (BLOCKS_PER_MBLOCK * BLOCK_SIZE_W)
-static inline nat
+INLINE_HEADER nat
round_to_mblocks(nat words)
{
if (words > WORDS_PER_MBLOCK) {
nat countFreeList(void);
#endif
-#endif BLOCK_ALLOC_H
+#endif /* BLOCK_ALLOC_H */