diff options
| -rw-r--r-- | ghc/rts/BlockAlloc.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/rts/BlockAlloc.c b/ghc/rts/BlockAlloc.c index 220928520e..66205b5a92 100644 --- a/ghc/rts/BlockAlloc.c +++ b/ghc/rts/BlockAlloc.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: BlockAlloc.c,v 1.11 2001/11/08 10:18:49 simonmar Exp $ + * $Id: BlockAlloc.c,v 1.12 2001/11/08 12:41:07 simonmar Exp $ * * (c) The GHC Team 1998-2000 * @@ -205,6 +205,7 @@ coalesce(bdescr *p) p->link = q->link; for (i = 0, bd = q; i < q->blocks; bd++, i++) { bd->free = 0; + bd->blocks = 0; bd->link = p; } return p; |