/* ----------------------------------------------------------------------------
- * $Id: Closures.h,v 1.5 1999/01/26 11:12:55 simonm Exp $
+ * $Id: Closures.h,v 1.9 1999/02/19 18:26:04 sewardj Exp $
+ *
+ * (c) The GHC Team, 1998-1999
*
* Closures
*
typedef struct {
const struct _StgInfoTable* info;
+#ifdef PROFILING
StgProfHeader prof;
+#endif
+#ifdef GRAN
StgGranHeader par;
+#endif
+#ifdef TICKY
StgTickyHeader ticky;
+#endif
} StgHeader;
#define FIXED_HS (sizeof(StgHeader))
StgWord n_ptrs;
StgWord n_words;
StgWord n_instrs;
+ StgWord stgexpr;
StgPtr payload[0];
} StgBCO;
StgHeader header;
StgClosure *key;
StgClosure *value; /* v */
- StgClosure *finaliser;
+ StgClosure *finalizer;
struct _StgWeak *link;
} StgWeak;