Clean up RCS ids
[projects/cmucl/cmucl.git] / src / lisp / mips-lispregs.h
CommitLineData
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 _MIPS_LISPREGS_H_
9#define _MIPS_LISPREGS_H_
62957726 10
11#ifdef LANGUAGE_ASSEMBLY
12#define REG(num) $num
13#else
14#define REG(num) num
15#endif
16
17#define NREGS (32)
18
19#define reg_ZERO REG(0)
20#define reg_NL3 REG(1)
21#define reg_CFUNC REG(2)
22#define reg_NL4 REG(3)
23#define reg_NL0 REG(4)
24#define reg_NL1 REG(5)
25#define reg_NL2 REG(6)
26#define reg_NARGS REG(7)
27#define reg_A0 REG(8)
28#define reg_A1 REG(9)
29#define reg_A2 REG(10)
30#define reg_A3 REG(11)
31#define reg_A4 REG(12)
32#define reg_A5 REG(13)
33#define reg_FDEFN REG(14)
34#define reg_LEXENV REG(15)
35#define reg_NFP REG(16)
36#define reg_OCFP REG(17)
37#define reg_LRA REG(18)
38#define reg_L0 REG(19)
39#define reg_NIL REG(20)
40#define reg_BSP REG(21)
41#define reg_CFP REG(22)
42#define reg_CSP REG(23)
43#define reg_L1 REG(24)
44#define reg_ALLOC REG(25)
45#define reg_NSP REG(29)
46#define reg_CODE REG(30)
47#define reg_LIP REG(31)
48
49#define REGNAMES \
50 "ZERO", "NL3", "CFUNC", "NL4", \
51 "NL0", "NL1", "NL2", "NARGS", \
52 "A0", "A1", "A2", "A3", \
53 "A4", "A5", "FDEFN", "LEXENV", \
54 "NFP", "OCFP", "LRA", "L0", \
55 "NIL", "BSP", "CFP", "CSP", \
56 "L1", "ALLOC", "K0", "K1", \
57 "GP", "NSP", "CODE", "LIP"
58
59
60#define BOXED_REGISTERS { \
61 reg_A0, reg_A1, reg_A2, reg_A3, reg_A4, reg_A5, reg_FDEFN, reg_LEXENV, \
62 reg_NFP, reg_OCFP, reg_LRA, reg_L0, reg_L1, reg_CODE \
63}
64
65#define SC_REG(sc, n) ((sc)->sc_regs[n])
66#define SC_PC(sc) ((sc)->sc_pc)
e67c0397 67
68#endif /* _MIPS_LISPREGS_H_ */