src/lisp/lispregs.h

   1 /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lispregs.h,v 1.8 2005/01/13 19:55:00 fgilham Rel $ */
   2
   3 #ifndef _LISPREGS_H_
   4 #define _LISPREGS_H_
   5
   6 #if defined(mips) || defined(irix)
   7 #include "mips-lispregs.h"
   8 #endif
   9
  10 #ifdef sparc
  11 #include "sparc-lispregs.h"
  12 #endif
  13
  14 #ifdef ibmrt
  15 #include "rt-lispregs.h"
  16 #endif
  17
  18 #ifdef i386
  19 #include "x86-lispregs.h"
  20 #endif
  21
  22 #ifdef __x86_64
  23 #include "amd64-lispregs.h"
  24 #endif
  25
  26 #ifdef parisc
  27 #include "hppa-lispregs.h"
  28 #endif
  29
  30 #ifdef alpha
  31 #include "alpha-lispregs.h"
  32 #endif
  33
  34 #ifdef ppc
  35 #include "ppc-lispregs.h"
  36 #endif
  37
  38 /* This matches the definition of sc-offset in code/debug-info.lisp */
  39 #define SC_OFFSET(sc,offset) (((offset) << 5) | (sc))
  40
  41 /*
  42  * Macros to compute the SC_OFFSET value.  See read-var-integer and
  43  * sc-offset and friends in debug-info.lisp
  44  */
  45 #define SC_OFFSET_HI(sc, regnum)        ((SC_OFFSET(sc,regnum)) >> 8)
  46 #define SC_OFFSET_LO(sc, regnum)        ((SC_OFFSET(sc,regnum)) & 0xff)
  47
  48
  49
  50 #ifndef LANGUAGE_ASSEMBLY
  51 extern char *lisp_register_names[];
  52 #endif
  53
  54 #endif /* _LISPREGS_H_ */