diff options
| -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... */ |