src/lisp/hppa-lispregs.h

   1 /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hppa-lispregs.h,v 1.3 2005/01/13 19:55:00 fgilham Rel $ */
   2
   3 #ifndef _HPPA_LISPREGS_H_
   4 #define _HPPA_LISPREGS_H_
   5
   6 #define NREGS   (32)
   7
   8 #ifdef LANGUAGE_ASSEMBLY
   9 #define REG(num) num
  10 #else
  11 #define REG(num) num
  12 #endif
  13
  14 #define reg_ZERO REG(0)
  15 #define reg_NFP REG(1)
  16 #define reg_CFUNC REG(2)
  17 #define reg_CSP REG(3)
  18 #define reg_CFP REG(4)
  19 #define reg_BSP REG(5)
  20 #define reg_NULL REG(6)
  21 #define reg_ALLOC REG(7)
  22 #define reg_CODE REG(8)
  23 #define reg_FDEFN REG(9)
  24 #define reg_LEXENV REG(10)
  25 #define reg_NARGS REG(11)
  26 #define reg_OCFP REG(12)
  27 #define reg_LRA REG(13)
  28 #define reg_A0 REG(14)
  29 #define reg_A1 REG(15)
  30 #define reg_A2 REG(16)
  31 #define reg_A3 REG(17)
  32 #define reg_A4 REG(18)
  33 #define reg_A5 REG(19)
  34 #define reg_L0 REG(20)
  35 #define reg_L1 REG(21)
  36 #define reg_L2 REG(22)
  37 #define reg_NL3 REG(23)
  38 #define reg_NL2 REG(24)
  39 #define reg_NL1 REG(25)
  40 #define reg_NL0 REG(26)
  41 #define reg_DP REG(27)
  42 #define reg_NL4 REG(28)
  43 #define reg_NL5 REG(29)
  44 #define reg_NSP REG(30)
  45 #define reg_LIP REG(31)
  46
  47
  48 #define REGNAMES \
  49     "ZERO", "NFP", "CFUNC", "CSP", "CFP", "BSP", "NULL", "ALLOC", \
  50     "CODE", "FDEFN", "LEXENV", "NARGS", "OCFP", "LRA", "A0", "A1", \
  51     "A2", "A3", "A4", "A5", "L0", "L1", "L2", "NL3", \
  52     "NL2", "NL1", "NL0", "DP", "NL4", "NL5", "NSP", "LIP"
  53
  54 #define BOXED_REGISTERS { \
  55     reg_CODE, reg_FDEFN, reg_LEXENV, reg_NARGS, reg_OCFP, reg_LRA, \
  56     reg_A0, reg_A1, reg_A2, reg_A3, reg_A4, reg_A5, \
  57     reg_L0, reg_L1, reg_L2 \
  58 }
  59
  60 #ifdef hpux
  61 #define SC_REG(sc, n) (((unsigned long *)(&(sc)->sc_sl.sl_ss.ss_flags))[n])
  62 #define SC_PC(sc) ((sc)->sc_sl.sl_ss.ss_pcoq_head)
  63 #define SC_NPC(sc) ((sc)->sc_sl.sl_ss.ss_pcoq_tail)
  64 #else
  65 #define SC_REG(sc, n) (((unsigned long *)((sc)->sc_ap))[n])
  66 #define SC_PC(sc) ((sc)->sc_pcoqh)
  67 #define SC_NPC(sc) ((sc)->sc_pcoqt)
  68 #endif
  69
  70 #endif /* _HPPA_LISPREGS_H_ */