diff options
| author | simonmar <unknown> | 2002-08-16 13:20:36 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-08-16 13:20:36 +0000 |
| commit | b2421c0cbb75a9dfeabd7030cd0dcb8af7f7ee73 (patch) | |
| tree | 7c85e6cc417f813fcc6c89c2f1d3d2eae3842d6a | |
| parent | 1f35e3ac4ac5b74cdeb30058bc01ab36766b25c8 (diff) | |
| download | haskell-b2421c0cbb75a9dfeabd7030cd0dcb8af7f7ee73.tar.gz | |
[project @ 2002-08-16 13:20:36 by simonmar]
large_alloc_list seems to be a fossil; remove it
| -rw-r--r-- | ghc/rts/Storage.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c index f7a321d9d5..5a015d9409 100644 --- a/ghc/rts/Storage.c +++ b/ghc/rts/Storage.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Storage.c,v 1.67 2002/07/17 09:21:51 simonmar Exp $ + * $Id: Storage.c,v 1.68 2002/08/16 13:20:36 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -48,7 +48,6 @@ static void macosx_get_memory_layout(void) StgClosure *caf_list = NULL; bdescr *small_alloc_list; /* allocate()d small objects */ -bdescr *large_alloc_list; /* allocate()d large objects */ bdescr *pinned_object_block; /* allocate pinned objects into this block */ nat alloc_blocks; /* number of allocate()d blocks since GC */ nat alloc_blocks_lim; /* approximate limit on alloc_blocks */ @@ -231,7 +230,6 @@ initStorage( void ) /* initialise the allocate() interface */ small_alloc_list = NULL; - large_alloc_list = NULL; alloc_blocks = 0; alloc_blocks_lim = RtsFlags.GcFlags.minAllocAreaSize; @@ -827,9 +825,6 @@ memInventory(void) for (bd = small_alloc_list; bd; bd = bd->link) { total_blocks += bd->blocks; } - for (bd = large_alloc_list; bd; bd = bd->link) { - total_blocks += bd->blocks; - } #ifdef PROFILING if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_RETAINER) { |