/* ----------------------------------------------------------------------------
- * $Id: InfoTables.h,v 1.20 2001/03/02 16:12:18 simonmar Exp $
+ * $Id: InfoTables.h,v 1.23 2001/10/03 13:57:42 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
Profiling info
-------------------------------------------------------------------------- */
-#ifdef PROFILING
-
typedef struct {
char *closure_type;
char *closure_desc;
} StgProfInfo;
-#else /* !PROFILING */
-
-typedef struct {
- /* empty */
-} StgProfInfo;
-
-#endif /* PROFILING */
-
/* -----------------------------------------------------------------------------
Parallelism info
-------------------------------------------------------------------------- */
StgInfoTable *rbh_infoptr; /* infoptr to the RBH */
} StgParInfo;
-#else /* !PAR */
+#endif /* 0 */
typedef struct {
/* empty */
} StgParInfo;
-#endif /* PAR */
/*
Copied from ghc-0.29; ToDo: check this code -- HWL
#endif
/* -----------------------------------------------------------------------------
+ Ticky info
+ -------------------------------------------------------------------------- */
+
+typedef struct {
+ /* empty */
+} StgTickyInfo;
+
+/* -----------------------------------------------------------------------------
Debugging info
-------------------------------------------------------------------------- */
#define closure_HNF(c) ( closureFlags(c) & _HNF)
#define closure_BITMAP(c) ( closureFlags(c) & _BTM)
+#define closure_NON_SPARK(c) ( (closureFlags(c) & _NS))
#define closure_SHOULD_SPARK(c) (!(closureFlags(c) & _NS))
#define closure_STATIC(c) ( closureFlags(c) & _STA)
#define closure_THUNK(c) ( closureFlags(c) & _THU)
typedef struct {
StgWord size;
- StgWord bitmap[0];
+ StgWord bitmap[FLEXIBLE_ARRAY];
} StgLargeBitmap;
/*
#ifdef PROFILING
StgProfInfo prof;
#endif
+#ifdef TICKY
+ StgTickyInfo ticky;
+#endif
#ifdef DEBUG_CLOSURE
StgDebugInfo debug;
#endif
StgWord srt_len : 16; /* } */
#endif
#ifdef TABLES_NEXT_TO_CODE
- StgCode code[0];
+ StgCode code[FLEXIBLE_ARRAY];
#else
StgFunPtr entry;
- StgFunPtr vector[0];
+ StgFunPtr vector[FLEXIBLE_ARRAY];
#endif
} StgInfoTable;