Skip to content
Snippets Groups Projects
Commit 05ae92d8 authored by Simon Marlow's avatar Simon Marlow
Browse files

[project @ 1999-11-02 17:08:28 by simonmar] 

Remove accidental wibble that made it in with the last commit
parent 85b05cb2
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
ghc/rts/BlockAlloc.h
+ 2
− 2
View file @ 05ae92d8
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $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 * (c) The GHC Team, 1998-1999
* *
...@@ -26,7 +26,7 @@ extern void freeChain(bdescr *p); ...@@ -26,7 +26,7 @@ extern void freeChain(bdescr *p);
/* Finding the block descriptor for a given block -------------------------- */ /* Finding the block descriptor for a given block -------------------------- */
extern inline bdescr *Bdescr(StgPtr p) static inline bdescr *Bdescr(StgPtr p)
{ {
return (bdescr *) return (bdescr *)
((((W_)p & MBLOCK_MASK & ~BLOCK_MASK) >> (BLOCK_SHIFT-BDESCR_SHIFT)) ((((W_)p & MBLOCK_MASK & ~BLOCK_MASK) >> (BLOCK_SHIFT-BDESCR_SHIFT))
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment