Commit 11a43a34 authored by simonmar's avatar simonmar
Browse files

[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.
parent f195b5de
/* -----------------------------------------------------------------------------
* $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... */
......
Markdown is supported
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