From: simonmar Date: Tue, 2 Nov 1999 17:08:28 +0000 (+0000) Subject: [project @ 1999-11-02 17:08:28 by simonmar] X-Git-Tag: Approximately_9120_patches~5610 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=05ae92d8425c38cbdb75d4a8ac9096e5d07840a5;p=ghc-hetmet.git [project @ 1999-11-02 17:08:28 by simonmar] Remove accidental wibble that made it in with the last commit --- 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))