X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fmips-lispregs.h;h=a5341c54001615d6cc0d34486e172c879af14016;hb=5f0bd05a15aaf93f46baf9b8aa3e9b0bfbca26ab;hp=47f9a5a92ae790a94f9975e42e2e9f79fd4e57bf;hpb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;p=sbcl.git diff --git a/src/runtime/mips-lispregs.h b/src/runtime/mips-lispregs.h index 47f9a5a..a5341c5 100644 --- a/src/runtime/mips-lispregs.h +++ b/src/runtime/mips-lispregs.h @@ -4,7 +4,7 @@ #define REG(num) num #endif -#define NREGS (32) +#define NREGS (32) #define reg_ZERO REG(0) #define reg_NL3 REG(1) @@ -37,20 +37,17 @@ #define reg_LIP REG(31) #define REGNAMES \ - "ZERO", "NL3", "CFUNC", "NL4", \ - "NL0", "NL1", "NL2", "NARGS", \ - "A0", "A1", "A2", "A3", \ - "A4", "A5", "FDEFN", "LEXENV", \ - "NFP", "OCFP", "LRA", "L0", \ - "NIL", "BSP", "CFP", "CSP", \ - "L1", "ALLOC", "K0", "K1", \ - "GP", "NSP", "CODE", "LIP" + "ZERO", "NL3", "CFUNC", "NL4", \ + "NL0", "NL1", "NL2", "NARGS", \ + "A0", "A1", "A2", "A3", \ + "A4", "A5", "FDEFN", "LEXENV", \ + "NFP", "OCFP", "LRA", "L0", \ + "NIL", "BSP", "CFP", "CSP", \ + "L1", "ALLOC", "K0", "K1", \ + "GP", "NSP", "CODE", "LIP" #define BOXED_REGISTERS { \ reg_A0, reg_A1, reg_A2, reg_A3, reg_A4, reg_A5, reg_FDEFN, reg_LEXENV, \ reg_NFP, reg_OCFP, reg_LRA, reg_L0, reg_L1, reg_CODE \ } - -#define SC_REG(sc, n) ((sc)->sc_regs[n]) -#define SC_PC(sc) ((sc)->sc_pc)