Clean up RCS ids
[projects/cmucl/cmucl.git] / 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_ */