src/lisp/lispregs.h

   1 /*
   2
   3  This code was written as part of the CMU Common Lisp project at
   4  Carnegie Mellon University, and has been placed in the public domain.
   5
   6 */
   7
   8 #ifndef _LISPREGS_H_
   9 #define _LISPREGS_H_
  10
  11 #if defined(mips) || defined(irix)
  12 #include "mips-lispregs.h"
  13 #endif
  14
  15 #ifdef sparc
  16 #include "sparc-lispregs.h"
  17 #endif
  18
  19 #ifdef ibmrt
  20 #include "rt-lispregs.h"
  21 #endif
  22
  23 #ifdef i386
  24 #include "x86-lispregs.h"
  25 #endif
  26
  27 #ifdef __x86_64
  28 #include "amd64-lispregs.h"
  29 #endif
  30
  31 #ifdef parisc
  32 #include "hppa-lispregs.h"
  33 #endif
  34
  35 #ifdef alpha
  36 #include "alpha-lispregs.h"
  37 #endif
  38
  39 #ifdef ppc
  40 #include "ppc-lispregs.h"
  41 #endif
  42
  43 /* This matches the definition of sc-offset in code/debug-info.lisp */
  44 #define SC_OFFSET(sc,offset) (((offset) << 5) | (sc))
  45
  46 /*
  47  * Macros to compute the SC_OFFSET value.  See read-var-integer and
  48  * sc-offset and friends in debug-info.lisp
  49  */
  50 #define SC_OFFSET_HI(sc, regnum)        ((SC_OFFSET(sc,regnum)) >> 8)
  51 #define SC_OFFSET_LO(sc, regnum)        ((SC_OFFSET(sc,regnum)) & 0xff)
  52
  53
  54
  55 #ifndef LANGUAGE_ASSEMBLY
  56 extern char *lisp_register_names[];
  57 #endif
  58
  59 #endif /* _LISPREGS_H_ */