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 _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_ */ |