diff --git a/ghc/includes/Closures.h b/ghc/includes/Closures.h index e2e293269fd80b40a0ec1bcbd6d65668daabdde3..35578270461f3e7e7e9ace2deb39d2dd8d595102 100644 --- a/ghc/includes/Closures.h +++ b/ghc/includes/Closures.h @@ -1,5 +1,5 @@ /* ---------------------------------------------------------------------------- - * $Id: Closures.h,v 1.5 1999/01/26 11:12:55 simonm Exp $ + * $Id: Closures.h,v 1.6 1999/02/05 12:41:31 sof Exp $ * * Closures * @@ -91,9 +91,15 @@ typedef struct { 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)) diff --git a/ghc/includes/InfoTables.h b/ghc/includes/InfoTables.h index 9c71d6172db5421ebf4da6f661206ac648ac0b92..3f1cd51f603918df0f45093b5b76a0188d090a68 100644 --- a/ghc/includes/InfoTables.h +++ b/ghc/includes/InfoTables.h @@ -1,5 +1,5 @@ /* ---------------------------------------------------------------------------- - * $Id: InfoTables.h,v 1.7 1999/01/26 16:16:21 simonm Exp $ + * $Id: InfoTables.h,v 1.8 1999/02/05 12:41:32 sof Exp $ * * Info Tables * @@ -300,9 +300,15 @@ typedef StgClosure* StgSRT[]; typedef struct _StgInfoTable { StgSRT *srt; /* pointer to the SRT table */ +#ifdef PAR StgParInfo par; +#endif +#ifdef PROFILING StgProfInfo prof; +#endif +#ifdef DEBUG_CLOSURE StgDebugInfo debug; +#endif StgClosureInfo layout; /* closure layout info (pointer-sized) */ #if SIZEOF_VOID_P == 8 StgNat16 flags; /* } */