1 /* --------------------------------------------------------------------------
2 * $Id: mkDerivedConstants.c,v 1.5 2004/03/08 10:31:00 stolz Exp $
4 * (c) The GHC Team, 1992-1998
6 * Generate a header for the native code generator
8 * ------------------------------------------------------------------------*/
15 #define OFFSET(s_type, field) ((unsigned int)&(((s_type*)0)->field))
18 main(int argc, char *argv[])
20 printf("-- This file is created automatically. Do not edit by hand.\n\n");
22 printf("#define STD_HDR_SIZE %d\n", sizeofW(StgHeader));
23 printf("#define PROF_HDR_SIZE %d\n", sizeofW(StgProfHeader));
24 printf("#define GRAN_HDR_SIZE %d\n", sizeofW(StgGranHeader));
26 printf("#define ARR_WORDS_HDR_SIZE %d\n",
27 sizeofW(StgArrWords) - sizeofW(StgHeader));
29 printf("#define ARR_PTRS_HDR_SIZE %d\n",
30 sizeofW(StgMutArrPtrs) - sizeofW(StgHeader));
32 printf("#define STD_ITBL_SIZE %d\n", sizeofW(StgInfoTable));
33 printf("#define RET_ITBL_SIZE %d\n", sizeofW(StgRetInfoTable) - sizeofW(StgInfoTable));
34 printf("#define PROF_ITBL_SIZE %d\n", sizeofW(StgProfInfo));
35 printf("#define GRAN_ITBL_SIZE %d\n", 0);
36 printf("#define TICKY_ITBL_SIZE %d\n", sizeofW(StgTickyInfo));
38 printf("#define STD_UF_SIZE %d\n", sizeofW(StgUpdateFrame));
39 printf("#define GRAN_UF_SIZE %d\n",
40 sizeofW(StgUpdateFrame) + sizeofW(StgGranHeader));
41 printf("#define PROF_UF_SIZE %d\n",
42 sizeofW(StgUpdateFrame) + sizeofW(StgProfHeader));
44 printf("#define UF_RET %d\n",
45 OFFSET(StgUpdateFrame,header.info));
47 printf("#define UF_UPDATEE %d\n",
48 OFFSET(StgUpdateFrame,updatee) / sizeof(W_));
50 printf("#define BLOCK_SIZE %d\n", BLOCK_SIZE);
51 printf("#define MBLOCK_SIZE %d\n", MBLOCK_SIZE);