diff options
| author | simonmar <unknown> | 2000-01-30 10:17:44 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-01-30 10:17:44 +0000 |
| commit | 11a43a34e5c19a18a4aab24ea343ef77d9b4a000 (patch) | |
| tree | 572a71358e87a3e4b5ddbf740998d954de5b56a2 | |
| parent | f195b5de5c01661102bc51c51f96dbe747ac8023 (diff) | |
| download | haskell-11a43a34e5c19a18a4aab24ea343ef77d9b4a000.tar.gz | |
[project @ 2000-01-30 10:17:44 by simonmar]
The bd->free field of a block descriptor is supposed to be set to -1
for free blocks, if we're #ifdef DEBUGging. It wasn't sometimes.
| -rw-r--r-- | ghc/rts/BlockAlloc.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ghc/rts/BlockAlloc.c b/ghc/rts/BlockAlloc.c index 652b629bfd..6819463821 100644 --- a/ghc/rts/BlockAlloc.c +++ b/ghc/rts/BlockAlloc.c @@ -1,7 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: BlockAlloc.c,v 1.6 1999/07/01 13:48:22 panne Exp $ + * $Id: BlockAlloc.c,v 1.7 2000/01/30 10:17:44 simonmar Exp $ * - * (c) The GHC Team 1998-1999 + * (c) The GHC Team 1998-2000 * * The block allocator and free list manager. * @@ -73,6 +73,9 @@ allocGroup(nat n) *last = bd->link; /* no initialisation necessary - this is already a * self-contained block group. */ +#ifdef DEBUG + bd->free = bd->start; /* block isn't free now */ +#endif return bd; } if (bd->blocks > n) { /* block too big... */ |