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, MAIN_Dbl1)
  14 #define OFFSET_Dbl2 OFFSET(MainRegTable, MAIN_Dbl2)
  15 #define OFFSET_Flt1 OFFSET(MainRegTable, MAIN_Flt1)
  16 #define OFFSET_Flt2 OFFSET(MainRegTable, MAIN_Flt2)
  17 #define OFFSET_Flt3 OFFSET(MainRegTable, MAIN_Flt3)
  18 #define OFFSET_Flt4 OFFSET(MainRegTable, MAIN_Flt4)
  19 #define OFFSET_R1 OFFSET(MainRegTable, MAIN_R1)
  20 #define OFFSET_R2 OFFSET(MainRegTable, MAIN_R2)
  21 #define OFFSET_R3 OFFSET(MainRegTable, MAIN_R3)
  22 #define OFFSET_R4 OFFSET(MainRegTable, MAIN_R4)
  23 #define OFFSET_R5 OFFSET(MainRegTable, MAIN_R5)
  24 #define OFFSET_R6 OFFSET(MainRegTable, MAIN_R6)
  25 #define OFFSET_R7 OFFSET(MainRegTable, MAIN_R7)
  26 #define OFFSET_R8 OFFSET(MainRegTable, MAIN_R8)
  27 #define OFFSET_SpA OFFSET(MainRegTable, MAIN_SpA)
  28 #define OFFSET_SuA OFFSET(MainRegTable, MAIN_SuA)
  29 #define OFFSET_SpB OFFSET(MainRegTable, MAIN_SpB)
  30 #define OFFSET_SuB OFFSET(MainRegTable, MAIN_SuB)
  31 #define OFFSET_Hp OFFSET(MainRegTable, MAIN_Hp)
  32 #define OFFSET_HpLim OFFSET(MainRegTable, MAIN_HpLim)
  33 #define OFFSET_Tag OFFSET(MainRegTable, MAIN_Tag)
  34 #define OFFSET_Ret OFFSET(MainRegTable, MAIN_Ret)
  35 #define OFFSET_StkO OFFSET(MainRegTable, MAIN_StkO)
  36 #define OFFSET_Liveness OFFSET(MainRegTable, MAIN_Liveness)
  37
  38 #define SM_HP OFFSET(StorageMgrInfo, StorageMgrInfo.hp)
  39 #define SM_HPLIM OFFSET(StorageMgrInfo, StorageMgrInfo.hplim)
  40 #define SM_ROOTNO OFFSET(StorageMgrInfo, StorageMgrInfo.rootno)
  41 #define SM_ROOTS OFFSET(StorageMgrInfo, StorageMgrInfo.roots)
  42 #define SM_CAFLIST OFFSET(StorageMgrInfo, StorageMgrInfo.CAFlist)
  43 #define SM_OLDMUTABLES OFFSET(StorageMgrInfo, StorageMgrInfo.OldMutables)
  44 #define SM_OLDLIM OFFSET(StorageMgrInfo, StorageMgrInfo.OldLim)
  45 #define SM_FOREIGNOBJLIST OFFSET(StorageMgrInfo, StorageMgrInfo.ForeignObjList)
  46 #define SM_OLDFOREIGNOBJLIST OFFSET(StorageMgrInfo, StorageMgrInfo.OldForeignObjList)
  47 #define SM_STABLEPOINTERTABLE OFFSET(StorageMgrInfo, StorageMgrInfo.StablePointerTable)
  48
  49 STGRegisterTable MainRegTable;
  50 smInfo StorageMgrInfo;
  51
  52 int
  53 main()
  54 {
  55     printf("-- This file is created automatically.  Do not edit by hand.\n\n");
  56
  57     printf("\n-- Base table offsets for the Native Code Generator\n");
  58
  59     printf("#define OFFSET_Dbl1 %d\n", OFFSET_Dbl1);
  60     printf("#define OFFSET_Dbl2 %d\n", OFFSET_Dbl2);
  61     printf("#define OFFSET_Flt1 %d\n", OFFSET_Flt1);
  62     printf("#define OFFSET_Flt2 %d\n", OFFSET_Flt2);
  63     printf("#define OFFSET_Flt3 %d\n", OFFSET_Flt3);
  64     printf("#define OFFSET_Flt4 %d\n", OFFSET_Flt4);
  65     printf("#define OFFSET_R1 %d\n", OFFSET_R1);
  66     printf("#define OFFSET_R2 %d\n", OFFSET_R2);
  67     printf("#define OFFSET_R3 %d\n", OFFSET_R3);
  68     printf("#define OFFSET_R4 %d\n", OFFSET_R4);
  69     printf("#define OFFSET_R5 %d\n", OFFSET_R5);
  70     printf("#define OFFSET_R6 %d\n", OFFSET_R6);
  71     printf("#define OFFSET_R7 %d\n", OFFSET_R7);
  72     printf("#define OFFSET_R8 %d\n", OFFSET_R8);
  73     printf("#define OFFSET_SpA %d\n", OFFSET_SpA);
  74     printf("#define OFFSET_SuA %d\n", OFFSET_SuA);
  75     printf("#define OFFSET_SpB %d\n", OFFSET_SpB);
  76     printf("#define OFFSET_SuB %d\n", OFFSET_SuB);
  77     printf("#define OFFSET_Hp %d\n", OFFSET_Hp);
  78     printf("#define OFFSET_HpLim %d\n", OFFSET_HpLim);
  79     printf("#define OFFSET_Tag %d\n", OFFSET_Tag);
  80     printf("#define OFFSET_Ret %d\n", OFFSET_Ret);
  81 #ifdef CONCURRENT
  82     printf("#define OFFSET_StkO %d\n", OFFSET_StkO);
  83     printf("#define OFFSET_Liveness %d\n", OFFSET_Liveness);
  84 #else
  85     printf("#define OFFSET_StkO panic \"OFFSET_StkO\"\n");
  86     printf("#define OFFSET_Liveness panic \"OFFSET_Liveness\"\n");
  87 #endif
  88
  89     printf("\n-- Storage Manager offsets for the Native Code Generator\n");
  90
  91     printf("#define SM_HP %d\n", SM_HP);
  92     printf("#define SM_HPLIM %d\n", SM_HPLIM);
  93     printf("#define SM_ROOTNO %d\n", SM_ROOTNO);
  94     printf("#define SM_ROOTS %d\n", SM_ROOTS);
  95     printf("#define SM_CAFLIST %d\n", SM_CAFLIST);
  96 #if defined(GCap) || defined(GCgn)
  97     printf("#define SM_OLDMUTABLES %d\n", SM_OLDMUTABLES);
  98     printf("#define SM_OLDLIM %d\n", SM_OLDLIM);
  99 #endif
 100 #ifndef PAR
 101     printf("#define SM_FOREIGNOBJLIST %d\n", SM_FOREIGNOBJLIST);
 102 #if defined(GCap) || defined(GCgn)
 103     printf("#define SM_OLDFOREIGNOBJLIST %d\n", SM_OLDFOREIGNOBJLIST);
 104 #endif
 105     printf("#define SM_STABLEPOINTERTABLE %d\n", SM_STABLEPOINTERTABLE);
 106 #endif
 107
 108     printf("\n-- FILE size for the Native Code Generator\n");
 109
 110     printf("#define FILE_SIZE %d\n", sizeof(*stdin));
 111
 112     exit(0);
 113 }
 114
 115 \end{code}