From b2421c0cbb75a9dfeabd7030cd0dcb8af7f7ee73 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 16 Aug 2002 13:20:36 +0000
Subject: [PATCH] [project @ 2002-08-16 13:20:36 by simonmar] large_alloc_list
 seems to be a fossil; remove it

---
 ghc/rts/Storage.c |    7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index f7a321d..5a015d9 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) {
-- 
1.7.10.4