From: sewardj <unknown>
Date: Wed, 10 May 2000 09:02:25 +0000 (+0000)
Subject: [project @ 2000-05-10 09:02:25 by sewardj]
X-Git-Tag: Approximately_9120_patches~4539
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=769f6f803f2aecccce6c15f344cb8ae5b29c2baa;p=ghc-hetmet.git

[project @ 2000-05-10 09:02:25 by sewardj]
Allow the c-t storage manager to reuse dead symbol table slots, as had
always been intended, but up to now has been disabled due to ultra-paranoid
debugging.
---

diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c
index c773541..9564eb2 100644
--- a/ghc/interpreter/storage.c
+++ b/ghc/interpreter/storage.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: storage.c,v $
- * $Revision: 1.75 $
- * $Date: 2000/05/09 17:38:19 $
+ * $Revision: 1.76 $
+ * $Date: 2000/05/10 09:02:25 $
  * ------------------------------------------------------------------------*/
 
 #include "hugsbasictypes.h"
@@ -20,6 +20,7 @@
 #include "object.h"
 #include <setjmp.h>
 #include "Stg.h"
+#include "Storage.h"      /* for MarkRoot */
 
 /*#define DEBUG_SHOWUSE*/
 
@@ -493,7 +494,7 @@ static Bool debugStorageExtra = FALSE;
          assert(n < TAB_BASE_ADDR+tab_size);                            \
          assert(tab_name[n-TAB_BASE_ADDR].inUse);                       \
          tab_name[n-TAB_BASE_ADDR].inUse = FALSE;                       \
-         if (!debugStorageExtra) {                                      \
+         if (1 || (!debugStorageExtra)) {                               \
             tab_name[n-TAB_BASE_ADDR].nextFree = free_list;             \
             free_list = n;                                              \
          }                                                              \