common-lisp.net / projects/cmucl/cmucl.git / blame
| Commit | Line | Data |
|---|---|---|
| eeab7066 RT |
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 | */ | |
| e67c0397 | 7 | |
| 8 | #ifndef _LISPREGS_H_ | |
| 9 | #define _LISPREGS_H_ | |
| 62957726 | 10 | |
| cdac17ab | 11 | #if defined(mips) || defined(irix) |
| 62957726 | 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 | ||
| 75c1ce9a | 27 | #ifdef __x86_64 |
| 28 | #include "amd64-lispregs.h" | |
| 29 | #endif | |
| 30 | ||
| 62957726 | 31 | #ifdef parisc |
| 32 | #include "hppa-lispregs.h" | |
| 33 | #endif | |
| 34 | ||
| 6f4a04e5 | 35 | #ifdef alpha |
| 36 | #include "alpha-lispregs.h" | |
| 37 | #endif | |
| 38 | ||
| eb44537a | 39 | #ifdef ppc |
| 40 | #include "ppc-lispregs.h" | |
| 41 | #endif | |
| 42 | ||
| 75c1ce9a | 43 | /* This matches the definition of sc-offset in code/debug-info.lisp */ |
| bf5bad29 | 44 | #define SC_OFFSET(sc,offset) (((offset) << 5) | (sc)) |
| 45 | ||
| fee107e6 | 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 | ||
| 62957726 | 55 | #ifndef LANGUAGE_ASSEMBLY |
| 56 | extern char *lisp_register_names[]; | |
| 57 | #endif | |
| e67c0397 | 58 | |
| 59 | #endif /* _LISPREGS_H_ */ |