1 /* --------------------------------------------------------------------------
2 * $Id: mkDerivedConstants.c,v 1.3 2002/01/29 18:32:18 sof Exp $
4 * (c) The GHC Team, 1992-1998
6 * Generate a header for the native code generator
8 * ------------------------------------------------------------------------*/
12 #define OFFSET(s_type, field) ((unsigned int)&(((s_type*)0)->field))
15 main(int argc, char *argv[])
17 printf("-- This file is created automatically. Do not edit by hand.\n\n");
19 printf("#define STD_HDR_SIZE %d\n", sizeofW(StgHeader));
20 printf("#define PROF_HDR_SIZE %d\n", sizeofW(StgProfHeader));
21 printf("#define GRAN_HDR_SIZE %d\n", sizeofW(StgGranHeader));
23 printf("#define ARR_WORDS_HDR_SIZE %d\n",
24 sizeofW(StgArrWords) - sizeofW(StgHeader));
26 printf("#define ARR_PTRS_HDR_SIZE %d\n",
27 sizeofW(StgMutArrPtrs) - sizeofW(StgHeader));
29 printf("#define STD_ITBL_SIZE %d\n", sizeofW(StgInfoTable));
30 printf("#define PROF_ITBL_SIZE %d\n", sizeofW(StgProfInfo));
31 printf("#define GRAN_ITBL_SIZE %d\n", 0);
32 printf("#define TICKY_ITBL_SIZE %d\n", sizeofW(StgTickyInfo));
34 printf("#define STD_UF_SIZE %d\n", sizeofW(StgUpdateFrame));
35 printf("#define GRAN_UF_SIZE %d\n",
36 sizeofW(StgUpdateFrame) + sizeofW(StgGranHeader));
37 printf("#define PROF_UF_SIZE %d\n",
38 sizeofW(StgUpdateFrame) + sizeofW(StgProfHeader));
40 printf("#define UF_RET %d\n",
41 OFFSET(StgUpdateFrame,header.info));
43 printf("#define UF_SU %d\n",
44 OFFSET(StgUpdateFrame,link) / sizeof(W_));
46 printf("#define UF_UPDATEE %d\n",
47 OFFSET(StgUpdateFrame,updatee) / sizeof(W_));
49 printf("#define STD_SEQ_FRAME_SIZE %d\n", sizeofW(StgSeqFrame));
50 printf("#define GRAN_SEQ_FRAME_SIZE %d\n",
51 sizeofW(StgSeqFrame) + sizeofW(StgGranHeader));
52 printf("#define PROF_SEQ_FRAME_SIZE %d\n",
53 sizeofW(StgSeqFrame) + sizeofW(StgProfHeader));
55 printf("#define BLOCK_SIZE %d\n", BLOCK_SIZE);
56 printf("#define MBLOCK_SIZE %d\n", MBLOCK_SIZE);