From 769f6f803f2aecccce6c15f344cb8ae5b29c2baa Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 10 May 2000 09:02:25 +0000
Subject: [PATCH] [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.
---
ghc/interpreter/storage.c | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c
index c773541e65d4..9564eb2ca1e1 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; \
} \
--
GitLab