diff options
| author | simonmar <unknown> | 2004-11-08 12:26:58 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-11-08 12:26:58 +0000 |
| commit | 8504635323bc4c2d7ade98771a4e281c2d56761c (patch) | |
| tree | facafca22490944ae4388cb13af5bf7a5309f59a /ghc/includes/mkDerivedConstants.c | |
| parent | 86e9447a19d640645adca35aba68e9da4ea5b72c (diff) | |
| download | haskell-8504635323bc4c2d7ade98771a4e281c2d56761c.tar.gz | |
[project @ 2004-11-08 12:26:52 by simonmar]
Get rid of SUPPORTS_EMPTY_STRUCTS, and just avoid using empty struct
definitions.
Diffstat (limited to 'ghc/includes/mkDerivedConstants.c')
| -rw-r--r-- | ghc/includes/mkDerivedConstants.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ghc/includes/mkDerivedConstants.c b/ghc/includes/mkDerivedConstants.c index 71791fd815..a1b59f7074 100644 --- a/ghc/includes/mkDerivedConstants.c +++ b/ghc/includes/mkDerivedConstants.c @@ -133,7 +133,7 @@ def_offset(str(s_type,field), OFFSET(s_type,field) - sizeof(StgHeader) - sizeof(StgTSOProfInfo)); #define tso_field_macro(str) \ - printf("#define " str "(__ptr__) REP_" str "[__ptr__+SIZEOF_StgHeader+SIZEOF_OPT_StgTSOProfInfo+SIZEOF_OPT_StgTSOTickyInfo+SIZEOF_OPT_StgTSOParInfo+SIZEOF_OPT_StgTSOGranInfo+SIZEOF_OPT_StgTSODistInfo+OFFSET_" str "]\n"); + printf("#define " str "(__ptr__) REP_" str "[__ptr__+SIZEOF_StgHeader+SIZEOF_OPT_StgTSOProfInfo+SIZEOF_OPT_StgTSOParInfo+SIZEOF_OPT_StgTSOGranInfo+SIZEOF_OPT_StgTSODistInfo+OFFSET_" str "]\n"); #define tso_field(s_type, field) \ tso_offset(s_type, field); \ @@ -164,8 +164,9 @@ main(int argc, char *argv[]) printf("#define STD_ITBL_SIZE %d\n", sizeofW(StgInfoTable)); printf("#define RET_ITBL_SIZE %d\n", sizeofW(StgRetInfoTable) - sizeofW(StgInfoTable)); printf("#define PROF_ITBL_SIZE %d\n", sizeofW(StgProfInfo)); + printf("#define GRAN_ITBL_SIZE %d\n", 0); - printf("#define TICKY_ITBL_SIZE %d\n", sizeofW(StgTickyInfo)); + printf("#define TICKY_ITBL_SIZE %d\n", 0); printf("#define BLOCK_SIZE %d\n", BLOCK_SIZE); printf("#define MBLOCK_SIZE %d\n", MBLOCK_SIZE); @@ -258,13 +259,11 @@ main(int argc, char *argv[]) tso_field(StgTSO, stack_size); struct_size(StgTSOProfInfo); - struct_size(StgTSOTickyInfo); struct_size(StgTSOParInfo); struct_size(StgTSOGranInfo); struct_size(StgTSODistInfo); opt_struct_size(StgTSOProfInfo,PROFILING); - opt_struct_size(StgTSOTickyInfo,TICKY_TICKY); opt_struct_size(StgTSOParInfo,PAR); opt_struct_size(StgTSOGranInfo,GRAN); opt_struct_size(StgTSODistInfo,DIST); |