ghc/includes/mkNativeHdr.lc

   1 %
   2 % (c) The AQUA Project, Glasgow University, 1994
   3 %
   4 \section[mkNativeGen-header]{Generate a header for the native code generator}
   5
   6 \begin{code}
   7
   8 #define MAIN_REG_MAP
   9 #include "stgdefs.h"
  10
  11 #define OFFSET(table, x) ((StgUnion *) &(x) - (StgUnion *) (&table))
  12
  13 #define OFFSET_Dbl1 OFFSET(MainRegTable, RTBL_Dbl1)
  14 #define OFFSET_Dbl2 OFFSET(MainRegTable, RTBL_Dbl2)
  15 #define OFFSET_Flt1 OFFSET(MainRegTable, RTBL_Flt1)
  16 #define OFFSET_Flt2 OFFSET(MainRegTable, RTBL_Flt2)
  17 #define OFFSET_Flt3 OFFSET(MainRegTable, RTBL_Flt3)
  18 #define OFFSET_Flt4 OFFSET(MainRegTable, RTBL_Flt4)
  19 #define OFFSET_R1 OFFSET(MainRegTable, RTBL_R1)
  20 #define OFFSET_R2 OFFSET(MainRegTable, RTBL_R2)
  21 #define OFFSET_R3 OFFSET(MainRegTable, RTBL_R3)
  22 #define OFFSET_R4 OFFSET(MainRegTable, RTBL_R4)
  23 #define OFFSET_R5 OFFSET(MainRegTable, RTBL_R5)
  24 #define OFFSET_R6 OFFSET(MainRegTable, RTBL_R6)
  25 #define OFFSET_R7 OFFSET(MainRegTable, RTBL_R7)
  26 #define OFFSET_R8 OFFSET(MainRegTable, RTBL_R8)
  27 #define OFFSET_SpA OFFSET(MainRegTable, RTBL_SpA)
  28 #define OFFSET_SuA OFFSET(MainRegTable, RTBL_SuA)
  29 #define OFFSET_SpB OFFSET(MainRegTable, RTBL_SpB)
  30 #define OFFSET_SuB OFFSET(MainRegTable, RTBL_SuB)
  31 #define OFFSET_Hp OFFSET(MainRegTable, RTBL_Hp)
  32 #define OFFSET_HpLim OFFSET(MainRegTable, RTBL_HpLim)
  33 #define OFFSET_Tag OFFSET(MainRegTable, RTBL_Tag)
  34 #define OFFSET_Ret OFFSET(MainRegTable, RTBL_Ret)
  35 #define OFFSET_Activity OFFSET(MainRegTable, RTBL_Activity)
  36 #define OFFSET_StkO OFFSET(MainRegTable, RTBL_StkO)
  37 #define OFFSET_Liveness OFFSET(MainRegTable, RTBL_Liveness)
  38
  39 #define SM_HP OFFSET(StorageMgrInfo, StorageMgrInfo.hp)
  40 #define SM_HPLIM OFFSET(StorageMgrInfo, StorageMgrInfo.hplim)
  41 #define SM_ROOTNO OFFSET(StorageMgrInfo, StorageMgrInfo.rootno)
  42 #define SM_ROOTS OFFSET(StorageMgrInfo, StorageMgrInfo.roots)
  43 #define SM_CAFLIST OFFSET(StorageMgrInfo, StorageMgrInfo.CAFlist)
  44 #define SM_OLDMUTABLES OFFSET(StorageMgrInfo, StorageMgrInfo.OldMutables)
  45 #define SM_OLDLIM OFFSET(StorageMgrInfo, StorageMgrInfo.OldLim)
  46 #define SM_MALLOCPTRLIST OFFSET(StorageMgrInfo, StorageMgrInfo.MallocPtrList)
  47 #define SM_OLDMALLOCPTRLIST OFFSET(StorageMgrInfo, StorageMgrInfo.OldMallocPtrList)
  48 #define SM_STABLEPOINTERTABLE OFFSET(StorageMgrInfo, StorageMgrInfo.StablePointerTable)
  49
  50 STGRegisterTable MainRegTable;
  51 smInfo StorageMgrInfo;
  52
  53 int
  54 main()
  55 {
  56     printf("-- This file is created automatically.  Do not edit by hand.\n\n");
  57
  58     printf("\n-- Base table offsets for the Native Code Generator\n");
  59
  60     printf("#define OFFSET_Dbl1 %d\n", OFFSET_Dbl1);
  61     printf("#define OFFSET_Dbl2 %d\n", OFFSET_Dbl2);
  62     printf("#define OFFSET_Flt1 %d\n", OFFSET_Flt1);
  63     printf("#define OFFSET_Flt2 %d\n", OFFSET_Flt2);
  64     printf("#define OFFSET_Flt3 %d\n", OFFSET_Flt3);
  65     printf("#define OFFSET_Flt4 %d\n", OFFSET_Flt4);
  66     printf("#define OFFSET_R1 %d\n", OFFSET_R1);
  67     printf("#define OFFSET_R2 %d\n", OFFSET_R2);
  68     printf("#define OFFSET_R3 %d\n", OFFSET_R3);
  69     printf("#define OFFSET_R4 %d\n", OFFSET_R4);
  70     printf("#define OFFSET_R5 %d\n", OFFSET_R5);
  71     printf("#define OFFSET_R6 %d\n", OFFSET_R6);
  72     printf("#define OFFSET_R7 %d\n", OFFSET_R7);
  73     printf("#define OFFSET_R8 %d\n", OFFSET_R8);
  74     printf("#define OFFSET_SpA %d\n", OFFSET_SpA);
  75     printf("#define OFFSET_SuA %d\n", OFFSET_SuA);
  76     printf("#define OFFSET_SpB %d\n", OFFSET_SpB);
  77     printf("#define OFFSET_SuB %d\n", OFFSET_SuB);
  78     printf("#define OFFSET_Hp %d\n", OFFSET_Hp);
  79     printf("#define OFFSET_HpLim %d\n", OFFSET_HpLim);
  80     printf("#define OFFSET_Tag %d\n", OFFSET_Tag);
  81     printf("#define OFFSET_Ret %d\n", OFFSET_Ret);
  82     printf("#define OFFSET_Activity %d\n", OFFSET_Activity);
  83 #ifdef CONCURRENT
  84     printf("#define OFFSET_StkO %d\n", OFFSET_StkO);
  85     printf("#define OFFSET_Liveness %d\n", OFFSET_Liveness);
  86 #else
  87     printf("#define OFFSET_StkO panic \"OFFSET_StkO\"\n");
  88     printf("#define OFFSET_Liveness panic \"OFFSET_Liveness\"\n");
  89 #endif
  90
  91     printf("\n-- Storage Manager offsets for the Native Code Generator\n");
  92
  93     printf("#define SM_HP %d\n", SM_HP);
  94     printf("#define SM_HPLIM %d\n", SM_HPLIM);
  95     printf("#define SM_ROOTNO %d\n", SM_ROOTNO);
  96     printf("#define SM_ROOTS %d\n", SM_ROOTS);
  97     printf("#define SM_CAFLIST %d\n", SM_CAFLIST);
  98 #if defined(GCap) || defined(GCgn)
  99     printf("#define SM_OLDMUTABLES %d\n", SM_OLDMUTABLES);
 100     printf("#define SM_OLDLIM %d\n", SM_OLDLIM);
 101 #endif
 102 #ifndef PAR
 103     printf("#define SM_MALLOCPTRLIST %d\n", SM_MALLOCPTRLIST);
 104 #if defined(GCap) || defined(GCgn)
 105     printf("#define SM_OLDMALLOCPTRLIST %d\n", SM_OLDMALLOCPTRLIST);
 106 #endif
 107     printf("#define SM_STABLEPOINTERTABLE %d\n", SM_STABLEPOINTERTABLE);
 108 #endif
 109
 110     printf("\n-- FILE size for the Native Code Generator\n");
 111
 112     printf("#define FILE_SIZE %d\n", sizeof(*stdin));
 113
 114     exit(0);
 115 }
 116
 117 \end{code}