diff options
| author | sof <unknown> | 1999-02-05 12:41:32 +0000 |
|---|---|---|
| committer | sof <unknown> | 1999-02-05 12:41:32 +0000 |
| commit | 612755bd52b4d422de179f4c0ca30b8afea336c1 (patch) | |
| tree | 03849c513e8579d3fc54c92a6b03879f9e9b21dc /ghc/includes/InfoTables.h | |
| parent | fd3ceb3c17dcb13f1ab1ca05fb026d9954d5b06c (diff) | |
| download | haskell-612755bd52b4d422de179f4c0ca30b8afea336c1.tar.gz | |
[project @ 1999-02-05 12:41:31 by sof]
don't include structs that are known to be empty within StgInfoTable and
StgHeader. Shouldn't be a problem - but egcs-1.1.1 doesn't handle them
correctly.
Diffstat (limited to 'ghc/includes/InfoTables.h')
| -rw-r--r-- | ghc/includes/InfoTables.h | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ghc/includes/InfoTables.h b/ghc/includes/InfoTables.h index 9c71d6172d..3f1cd51f60 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; /* } */ |