* included in the distribution.
*
* $RCSfile: storage.c,v $
- * $Revision: 1.74 $
- * $Date: 2000/05/09 09:11:40 $
+ * $Revision: 1.77 $
+ * $Date: 2000/05/12 13:34:07 $
* ------------------------------------------------------------------------*/
#include "hugsbasictypes.h"
#include "object.h"
#include <setjmp.h>
#include "Stg.h"
-#include "Storage.h"
+
+/* #include "Storage.h"
+ We'd like to, but Storage.h and storage.h look the same under
+ Cygwin, alas, causing compilation chaos. So just copy what
+ we need to know, which is ...
+*/
+extern StgClosure* MarkRoot ( StgClosure* );
/*#define DEBUG_SHOWUSE*/
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; \
} \