X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FBlockAlloc.h;fp=ghc%2Frts%2FBlockAlloc.h;h=833beee99491b01bf39f6b88180952f42f63a1a5;hb=05ae92d8425c38cbdb75d4a8ac9096e5d07840a5;hp=a2c9b2b594d4c403309d8d20c4790358a7673522;hpb=85b05cb26ce938b13c6cfbb323d67b861ee11939;p=ghc-hetmet.git

diff --git a/ghc/rts/BlockAlloc.h b/ghc/rts/BlockAlloc.h
index a2c9b2b..833beee 100644
--- a/ghc/rts/BlockAlloc.h
+++ b/ghc/rts/BlockAlloc.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: BlockAlloc.h,v 1.6 1999/11/02 15:05:56 simonmar Exp $
+ * $Id: BlockAlloc.h,v 1.7 1999/11/02 17:08:28 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -26,7 +26,7 @@ extern void freeChain(bdescr *p);
 
 /* Finding the block descriptor for a given block -------------------------- */
 
-extern inline bdescr *Bdescr(StgPtr p)
+static inline bdescr *Bdescr(StgPtr p)
 {
   return (bdescr *)
     ((((W_)p &  MBLOCK_MASK & ~BLOCK_MASK) >> (BLOCK_SHIFT-BDESCR_SHIFT))