src/runtime/ppc-lispregs.h

   1 #if defined LISP_FEATURE_DARWIN
   2 #if defined LANGUAGE_ASSEMBLY
   3 #define REG(num) r##num
   4 #define FREG(num) f##num
   5 #else
   6 #define REG(num) num
   7 #define FREG(num) num
   8 #endif
   9 #else
  10 #define REG(num) num
  11 #define FREG(num) num
  12 #endif
  13
  14 #define NREGS 32
  15
  16 #define reg_ZERO      REG(0)    /* Should always contain 0 in lisp */
  17 #define reg_NSP       REG(1)    /* The number/C stack pointer */
  18 #define reg_POLL      REG(2)    /* Lisp preemption/Mystery SVR4 ABI reg */
  19 #define reg_NL0       REG(3)    /* FF param/result 1 */
  20 #define reg_NL1       REG(4)    /* FF param/result 2 */
  21 #define reg_NL2       REG(5)    /* FF param 3 */
  22 #define reg_NL3       REG(6)
  23 #define reg_NL4       REG(7)
  24 #define reg_NL5       REG(8)
  25 #define reg_NL6       REG(9)    /* Last (7th) FF param */
  26 #define reg_FDEFN     REG(10)   /* was NL7 until recently -dan */
  27 #define reg_NARGS     REG(11)
  28 #ifdef LISP_FEATURE_DARWIN
  29 #define reg_CFUNC     REG(12)   /* Silly to blow a reg on FF-name */
  30 #define reg_NFP       REG(13)   /* Lisp may save around FF-call */
  31 #else
  32 #define reg_NFP       REG(12)   /* Lisp may save around FF-call */
  33 #define reg_CFUNC     REG(13)   /* Silly to blow a reg on FF-name */
  34 #endif
  35 #define reg_BSP       REG(14)   /* Binding stack pointer */
  36 #define reg_CFP       REG(15)   /* Control/value stack frame pointer */
  37 #define reg_CSP       REG(16)   /* Control/value stack top */
  38 #define reg_ALLOC     REG(17)   /* (Global) dynamic free pointer */
  39 #define reg_NULL      REG(18)   /* NIL and globals nearby */
  40 #define reg_CODE      REG(19)   /* Current function object */
  41 #define reg_CNAME     REG(20)   /* Current function name */
  42 #define reg_LEXENV    REG(21)   /* And why burn a register for this ? */
  43 #define reg_OCFP      REG(22)   /* The caller's reg_CFP */
  44 #define reg_LRA       REG(23)   /* Tagged lisp return address */
  45 #define reg_A0        REG(24)   /* First function arg/return value */
  46 #define reg_A1        REG(25)   /* Second. */
  47 #define reg_A2        REG(26)   /*  */
  48 #define reg_A3        REG(27)   /* Last of (only) 4 arg regs */
  49 #define reg_L0        REG(28)   /* Tagged temp regs */
  50 #define reg_L1        REG(29)
  51 #ifdef LISP_FEATURE_SB_THREAD
  52 #define reg_THREAD    REG(30)   /* TLS block pointer */
  53 #else
  54 #define reg_L2        REG(30)   /* Last lisp temp reg */
  55 #endif
  56 #define reg_LIP       REG(31)   /* Lisp Interior Pointer, e.g., locative */
  57
  58 #ifdef LISP_FEATURE_SB_THREAD
  59 #define REG30_NAME "THREAD"
  60 #else
  61 #define REG30_NAME "L2"
  62 #endif
  63
  64 #define REGNAMES \
  65         "ZERO",         "NSP",          "???",          "NL0", \
  66         "NL1",          "NL2",          "NL3P",         "NL4", \
  67         "NL5",          "NL6",          "FDEFN",        "NARGS", \
  68         "NFP",          "CFUNC",        "BSP",          "CFP", \
  69         "CSP",          "ALLOC",        "NULL",         "CODE", \
  70         "CNAME",        "LEXENV",       "OCFP",         "LRA", \
  71         "A0",           "A1",           "A2",           "A3", \
  72         "L0",           "L1",           REG30_NAME,     "LIP"
  73
  74 #define BOXED_REGISTERS { \
  75     reg_FDEFN, reg_CODE, reg_CNAME, reg_LEXENV, reg_OCFP, reg_LRA, \
  76     reg_A0, reg_A1, reg_A2, reg_A3, \
  77     reg_L0, reg_L1, REG(30) \
  78 }