Fix make-array transforms.
[sbcl.git] / src / runtime / hppa-lispregs.h
1 #define NREGS   (32)
2
3 #ifdef LANGUAGE_ASSEMBLY
4 #define REG(num) num
5 #else
6 #define REG(num) num
7 #endif
8
9 #define reg_ZERO REG(0)
10 #define reg_NFP REG(1)
11 #define reg_CFUNC REG(2)
12 #define reg_CSP REG(3)
13 #define reg_CFP REG(4)
14 #define reg_BSP REG(5)
15 #define reg_NULL REG(6)
16 #define reg_ALLOC REG(7)
17 #define reg_CODE REG(8)
18 #define reg_FDEFN REG(9)
19 #define reg_LEXENV REG(10)
20 #define reg_NARGS REG(11)
21 #define reg_OCFP REG(12)
22 #define reg_LRA REG(13)
23 #define reg_A0 REG(14)
24 #define reg_A1 REG(15)
25 #define reg_A2 REG(16)
26 #define reg_A3 REG(17)
27 #define reg_A4 REG(18)
28 #define reg_A5 REG(19)
29 #define reg_L0 REG(20)
30 #define reg_L1 REG(21)
31 #define reg_L2 REG(22)
32 #define reg_NL3 REG(23)
33 #define reg_NL2 REG(24)
34 #define reg_NL1 REG(25)
35 #define reg_NL0 REG(26)
36 #define reg_DP REG(27)
37 #define reg_NL4 REG(28)
38 #define reg_NL5 REG(29)
39 #define reg_NSP REG(30)
40 #define reg_LIP REG(31)
41
42
43 #define REGNAMES \
44     "ZERO", "NFP", "CFUNC", "CSP", "CFP", "BSP", "NULL", "ALLOC", \
45     "CODE", "FDEFN", "LEXENV", "NARGS", "OCFP", "LRA", "A0", "A1", \
46     "A2", "A3", "A4", "A5", "L0", "L1", "L2", "NL3", \
47     "NL2", "NL1", "NL0", "DP", "NL4", "NL5", "NSP", "LIP"
48
49 #define BOXED_REGISTERS { \
50     reg_CODE, reg_FDEFN, reg_LEXENV, reg_OCFP, reg_LRA, \
51     reg_A0, reg_A1, reg_A2, reg_A3, reg_A4, reg_A5, \
52     reg_L0, reg_L1, reg_L2, reg_NFP \
53 }
54