[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / includes / StgStorage.h

diff --git a/ghc/includes/StgStorage.h b/ghc/includes/StgStorage.h
new file mode 100644 (file)
index 0000000..964757b
--- /dev/null
+++ b/ghc/includes/StgStorage.h
@@ -0,0 +1,42 @@
+/* -----------------------------------------------------------------------------
+ * $Id: StgStorage.h,v 1.2 1998/12/02 13:21:41 simonm Exp $
+ *
+ * STG Storage Manger Interface
+ *
+ * ---------------------------------------------------------------------------*/
+
+#ifndef STGSTORAGE_H
+#define STGSTORAGE_H
+
+#include "Block.h"
+
+extern bdescr *current_nursery;
+
+/* -----------------------------------------------------------------------------
+   Allocation area for compiled code
+
+   OpenNursery(hp,hplim)        Opens the allocation area, and sets hp
+                               and hplim appropriately.
+
+   CloseNursery(hp)            Closes the allocation area.
+
+   PleaseStopAllocating(void)   Arranges that the next call to
+                               ExtendNursery() will fail, triggering
+                               a return to the scheduler.  This is
+                               useful for asynchronous interupts etc.
+   -------------------------------------------------------------------------- */
+
+#define OpenNursery(hp,hplim)                          \
+  (hp    = current_nursery->free-1,                    \
+   hplim = current_nursery->start + BLOCK_SIZE_W - 1)
+  
+#define CloseNursery(hp)  (current_nursery->free = (P_)(hp)+1)
+
+/* -----------------------------------------------------------------------------
+   Trigger a GC from Haskell land.
+   -------------------------------------------------------------------------- */
+
+extern void performGC(void);
+extern void performGCWithRoots(void (*get_roots)(void));
+
+#endif /* STGSTORAGE_H */