diff options
Diffstat (limited to 'ghc/rts/BlockAlloc.h')
| -rw-r--r-- | ghc/rts/BlockAlloc.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/rts/BlockAlloc.h b/ghc/rts/BlockAlloc.h index ab6b199740..a2c9b2b594 100644 --- a/ghc/rts/BlockAlloc.h +++ b/ghc/rts/BlockAlloc.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: BlockAlloc.h,v 1.5 1999/02/05 16:02:36 simonm Exp $ + * $Id: BlockAlloc.h,v 1.6 1999/11/02 15:05:56 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 -------------------------- */ -static inline bdescr *Bdescr(StgPtr p) +extern inline bdescr *Bdescr(StgPtr p) { return (bdescr *) ((((W_)p & MBLOCK_MASK & ~BLOCK_MASK) >> (BLOCK_SHIFT-BDESCR_SHIFT)) |