Ticket #803: changes-free

diff -rc src-ref/ghc-6.4.2.20060411/ghc/includes/Stable.h src-with-old-ghc/ghc-6.4.2.20060411/ghc/includes/Stable.h
*** src-ref/ghc-6.4.2.20060411/ghc/includes/Stable.h Fri Aug 13 09:09:30 2004
--- src-with-old-ghc/ghc-6.4.2.20060411/ghc/includes/Stable.h Thu May 25 12:06:44 2006
***************
*** 55,60 ****
--- 55,61 ----
  #endif
  
  extern void    initStablePtrTable    ( void );
+ extern void    exitStablePtrTable    ( void );
  extern void    enlargeStablePtrTable ( void );
  extern StgWord lookupStableName      ( StgPtr p );
  
***************
*** 62,66 ****
--- 63,69 ----
  extern void    threadStablePtrTable  ( evac_fn evac );
  extern void    gcStablePtrTable      ( void );
  extern void    updateStablePtrTable  ( rtsBool full );
+ 
+ extern void    exitHashTable         ( void );
  
  #endif
diff -rc src-ref/ghc-6.4.2.20060411/ghc/rts/Hash.c src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/Hash.c
*** src-ref/ghc-6.4.2.20060411/ghc/rts/Hash.c Sun Sep 12 07:27:14 2004
--- src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/Hash.c Thu May 25 12:38:35 2006
***************
*** 212,226 ****
--- 212,236 ----
  
  static HashList *freeList = NULL;
  
+ static struct chunkList {
+   void *chunk;
+   struct chunkList *next;
+ } *chunks;
+ 
  static HashList *
  allocHashList(void)
  {
      HashList *hl, *p;
+     struct chunkList *cl;
  
      if ((hl = freeList) != NULL) {
        freeList = hl->next;
      } else {
          hl = stgMallocBytes(HCHUNK * sizeof(HashList), "allocHashList");
+       cl = stgMallocBytes(sizeof (*cl), "allocHashList: chunkList");
+       cl->chunk = hl;
+       cl->next = chunks;
+       chunks = cl;
  
        freeList = hl + 1;
        for (p = freeList; p < hl + HCHUNK - 1; p++)
***************
*** 372,375 ****
--- 382,397 ----
  {
      return allocHashTable_((HashFunction *)hashStr, 
                           (CompareFunction *)compareStr);
+ }
+ 
+ void
+ exitHashTable(void)
+ {
+   struct chunkList *cl;
+ 
+   while ((cl = chunks) != NULL) {
+     chunks = cl->next;
+     stgFree(cl->chunk);
+     stgFree(cl);
+   }
  }
diff -rc src-ref/ghc-6.4.2.20060411/ghc/rts/RtsStartup.c src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/RtsStartup.c
*** src-ref/ghc-6.4.2.20060411/ghc/rts/RtsStartup.c Wed Apr  5 10:59:19 2006
--- src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/RtsStartup.c Thu May 25 12:30:09 2006
***************
*** 380,385 ****
--- 383,394 ----
      // also outputs the stats (+RTS -s) info.
      exitStorage();
      
+     /* initialise the stable pointer table */
+     exitStablePtrTable();
+ 
+     /* free hash table storage */
+     exitHashTable();
+ 
  #ifdef RTS_GTK_FRONTPANEL
      if (RtsFlags.GcFlags.frontpanel) {
        stopFrontPanel();
diff -rc src-ref/ghc-6.4.2.20060411/ghc/rts/Schedule.c src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/Schedule.c
*** src-ref/ghc-6.4.2.20060411/ghc/rts/Schedule.c Fri Feb 24 06:07:38 2006
--- src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/Schedule.c Thu May 25 10:07:19 2006
***************
*** 2122,2130 ****
--- 2122,2139 ----
  void
  exitScheduler( void )
  {
+   StgMainThread *m;
+ 
  #if defined(RTS_SUPPORTS_THREADS)
    stopTaskManager();
  #endif
+ 
+   // Deallocate thread records
+   while((m = main_threads) != NULL) {
+     main_threads = m->link;
+     stgFree(m);
+   }
+ 
    shutting_down_scheduler = rtsTrue;
  }
  
diff -rc src-ref/ghc-6.4.2.20060411/ghc/rts/Stable.c src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/Stable.c
*** src-ref/ghc-6.4.2.20060411/ghc/rts/Stable.c Fri Jul  8 05:08:41 2005
--- src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/Stable.c Thu May 25 12:16:37 2006
***************
*** 138,143 ****
--- 138,155 ----
      // called, and we want the table to persist through multiple inits.
  }
  
+ void
+ exitStablePtrTable(void)
+ {
+   if (addrToStableHash)
+     freeHashTable(addrToStableHash, NULL);
+   addrToStableHash = NULL;
+   if (stable_ptr_table)
+     stgFree(stable_ptr_table);
+   stable_ptr_table = NULL;
+   SPT_size = 0;
+ }
+ 
  /*
   * get at the real stuff...remove indirections.
   *
diff -rc src-ref/ghc-6.4.2.20060411/ghc/rts/Stats.c src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/Stats.c
*** src-ref/ghc-6.4.2.20060411/ghc/rts/Stats.c Fri Jan 28 07:56:18 2005
--- src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/Stats.c Thu May 25 12:33:33 2006
***************
*** 760,765 ****
--- 760,768 ----
        statsFlush();
        statsClose();
      }
+     if (GC_coll_times)
+       stgFree(GC_coll_times);
+     GC_coll_times = NULL;
  }
  
  /* -----------------------------------------------------------------------------
diff -rc src-ref/ghc-6.4.2.20060411/ghc/rts/Storage.c src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/Storage.c
*** src-ref/ghc-6.4.2.20060411/ghc/rts/Storage.c Thu Mar 30 08:45:47 2006
--- src-with-old-ghc/ghc-6.4.2.20060411/ghc/rts/Storage.c Thu May 25 12:33:49 2006
***************
*** 222,227 ****
--- 222,232 ----
  void
  freeStorage (void)
  {
+     nat g;
+ 
+     for(g = 0; g < RtsFlags.GcFlags.generations; g++)
+       stgFree(generations[g].steps);
+     stgFree(generations);
      freeAllMBlocks();
  }