1 /* --------------------------------------------------------------------------
2 * $Id: mkNativeHdr.c,v 1.4 2000/05/15 14:44:42 simonmar Exp $
4 * (c) The GHC Team, 1992-1998
6 * Generate a header for the native code generator
8 * ------------------------------------------------------------------------*/
12 #define OFFSET(table, x) ((StgUnion *) &(x) - (StgUnion *) (&table))
14 #define OFFSET_R1 OFFSET(RegTable, RegTable.rR1)
15 #define OFFSET_R2 OFFSET(RegTable, RegTable.rR2)
16 #define OFFSET_R3 OFFSET(RegTable, RegTable.rR3)
17 #define OFFSET_R4 OFFSET(RegTable, RegTable.rR4)
18 #define OFFSET_R5 OFFSET(RegTable, RegTable.rR5)
19 #define OFFSET_R6 OFFSET(RegTable, RegTable.rR6)
20 #define OFFSET_R7 OFFSET(RegTable, RegTable.rR7)
21 #define OFFSET_R8 OFFSET(RegTable, RegTable.rR8)
22 #define OFFSET_R9 OFFSET(RegTable, RegTable.rR9)
23 #define OFFSET_R10 OFFSET(RegTable, RegTable.rR10)
24 #define OFFSET_F1 OFFSET(RegTable, RegTable.rF1)
25 #define OFFSET_F2 OFFSET(RegTable, RegTable.rF2)
26 #define OFFSET_F3 OFFSET(RegTable, RegTable.rF3)
27 #define OFFSET_F4 OFFSET(RegTable, RegTable.rF4)
28 #define OFFSET_D1 OFFSET(RegTable, RegTable.rD1)
29 #define OFFSET_D2 OFFSET(RegTable, RegTable.rD2)
30 #define OFFSET_L1 OFFSET(RegTable, RegTable.rL1)
31 #define OFFSET_Sp OFFSET(RegTable, RegTable.rSp)
32 #define OFFSET_Su OFFSET(RegTable, RegTable.rSu)
33 #define OFFSET_SpLim OFFSET(RegTable, RegTable.rSpLim)
34 #define OFFSET_Hp OFFSET(RegTable, RegTable.rHp)
35 #define OFFSET_HpLim OFFSET(RegTable, RegTable.rHpLim)
36 #define OFFSET_CurrentTSO OFFSET(RegTable, RegTable.rCurrentTSO)
37 #define OFFSET_CurrentNursery OFFSET(RegTable, RegTable.rCurrentNursery)
39 #define TSO_SP OFFSET(tso, tso.sp)
40 #define TSO_SPLIM OFFSET(tso, tso.splim)
41 #define TSO_SU OFFSET(tso, tso.su)
43 #define BDESCR_START OFFSET(bd, bd.start)
44 #define BDESCR_FREE OFFSET(bd, bd.free)
53 printf("-- This file is created automatically. Do not edit by hand.\n\n");
55 printf("\n-- Base table offsets for the Native Code Generator\n");
57 printf("#define OFFSET_R1 %d\n", OFFSET_R1);
58 printf("#define OFFSET_R2 %d\n", OFFSET_R2);
59 printf("#define OFFSET_R3 %d\n", OFFSET_R3);
60 printf("#define OFFSET_R4 %d\n", OFFSET_R4);
61 printf("#define OFFSET_R5 %d\n", OFFSET_R5);
62 printf("#define OFFSET_R6 %d\n", OFFSET_R6);
63 printf("#define OFFSET_R7 %d\n", OFFSET_R7);
64 printf("#define OFFSET_R8 %d\n", OFFSET_R8);
65 printf("#define OFFSET_R9 %d\n", OFFSET_R9);
66 printf("#define OFFSET_R10 %d\n", OFFSET_R10);
67 printf("#define OFFSET_F1 %d\n", OFFSET_F1);
68 printf("#define OFFSET_F2 %d\n", OFFSET_F2);
69 printf("#define OFFSET_F3 %d\n", OFFSET_F3);
70 printf("#define OFFSET_F4 %d\n", OFFSET_F4);
71 printf("#define OFFSET_D1 %d\n", OFFSET_D1);
72 printf("#define OFFSET_D2 %d\n", OFFSET_D2);
73 #ifdef SUPPORT_LONG_LONGS
74 printf("#define OFFSET_L1 %d\n", OFFSET_L1);
76 printf("#define OFFSET_Sp %d\n", OFFSET_Sp);
77 printf("#define OFFSET_Su %d\n", OFFSET_Su);
78 printf("#define OFFSET_SpLim %d\n", OFFSET_SpLim);
79 printf("#define OFFSET_Hp %d\n", OFFSET_Hp);
80 printf("#define OFFSET_HpLim %d\n", OFFSET_HpLim);
81 printf("#define OFFSET_CurrentTSO %d\n", OFFSET_CurrentTSO);
82 printf("#define OFFSET_CurrentNursery %d\n", OFFSET_CurrentNursery);
84 printf("\n-- Storage Manager offsets for the Native Code Generator\n");
86 printf("\n-- TSO offsets for the Native Code Generator\n");
88 printf("#define TSO_SP %d\n", TSO_SP);
89 printf("#define TSO_SU %d\n", TSO_SU);
90 printf("#define TSO_SPLIM %d\n", TSO_SPLIM);
92 printf("\n-- Block descriptor offsets for the Native Code Generator\n");
94 printf("#define BDESCR_START %d\n", BDESCR_START);
95 printf("#define BDESCR_FREE %d\n", BDESCR_FREE);
97 printf("\n-- FILE size for the Native Code Generator\n");
99 printf("#define FILE_SIZE %d\n", sizeof(*stdin));