X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FBlockAlloc.h;fp=ghc%2Frts%2FBlockAlloc.h;h=bb6e63f3b596058ccc6811ec50e29b5c6d744ff9;hb=30681e796f707fa109aaf756d4586049f595195d;hp=833beee99491b01bf39f6b88180952f42f63a1a5;hpb=532fc33149d79e65f27459e359b4d861e599761f;p=ghc-hetmet.git

diff --git a/ghc/rts/BlockAlloc.h b/ghc/rts/BlockAlloc.h
index 833beee..bb6e63f 100644
--- a/ghc/rts/BlockAlloc.h
+++ b/ghc/rts/BlockAlloc.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: BlockAlloc.h,v 1.7 1999/11/02 17:08:28 simonmar Exp $
+ * $Id: BlockAlloc.h,v 1.8 1999/11/09 15:46:49 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -24,16 +24,6 @@ extern bdescr *allocBlock(void);
 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)