/* -----------------------------------------------------------------------------
- * $Id: BlockAlloc.h,v 1.7 1999/11/02 17:08:28 simonmar Exp $
+ * $Id: BlockAlloc.h,v 1.9 2001/05/03 16:32:55 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
extern void freeGroup(bdescr *p);
extern void freeChain(bdescr *p);
-/* Finding the block descriptor for a given block -------------------------- */
-
-static inline bdescr *Bdescr(StgPtr p)
-{
- return (bdescr *)
- ((((W_)p & MBLOCK_MASK & ~BLOCK_MASK) >> (BLOCK_SHIFT-BDESCR_SHIFT))
- | ((W_)p & ~MBLOCK_MASK)
- );
-}
-
/* Round a value to megablocks --------------------------------------------- */
#define WORDS_PER_MBLOCK (BLOCKS_PER_MBLOCK * BLOCK_SIZE_W)
nat countFreeList(void);
#endif
-#endif BLOCK_ALLOC_H
+#endif /* BLOCK_ALLOC_H */