diff options
| author | simonmar <unknown> | 2003-01-28 17:04:58 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-01-28 17:04:58 +0000 |
| commit | 0292e82b0ef798928708057bc74baecefdcf024b (patch) | |
| tree | b92a0b347a5a4cfb28018aeb0ed3502e03976c80 /ghc/rts/BlockAlloc.c | |
| parent | 94fb7e7288a47f7b411ffd4bfa432f94f96f197e (diff) | |
| download | haskell-0292e82b0ef798928708057bc74baecefdcf024b.tar.gz | |
[project @ 2003-01-28 17:04:58 by simonmar]
Make it multi-init-safe
Diffstat (limited to 'ghc/rts/BlockAlloc.c')
| -rw-r--r-- | ghc/rts/BlockAlloc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/rts/BlockAlloc.c b/ghc/rts/BlockAlloc.c index 9d13719918..4be0d88d76 100644 --- a/ghc/rts/BlockAlloc.c +++ b/ghc/rts/BlockAlloc.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: BlockAlloc.c,v 1.14 2002/07/17 09:21:49 simonmar Exp $ + * $Id: BlockAlloc.c,v 1.15 2003/01/28 17:04:58 simonmar Exp $ * * (c) The GHC Team 1998-2000 * @@ -29,7 +29,7 @@ static void initMBlock(void *mblock); static bdescr *allocMegaGroup(nat mblocks); static void freeMegaGroup(bdescr *bd); -static bdescr *free_list; +static bdescr *free_list = NULL; /* ----------------------------------------------------------------------------- Initialisation @@ -37,7 +37,7 @@ static bdescr *free_list; void initBlockAllocator(void) { - free_list = NULL; + // The free list starts off NULL } /* ----------------------------------------------------------------------------- |