/[cmucl]/src/lisp/alpha-lispregs.h
ViewVC logotype

Contents of /src/lisp/alpha-lispregs.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Thu Jan 13 19:55:00 2005 UTC (9 years, 3 months ago) by fgilham
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, double-double-array-base, post-merge-intl-branch, release-19b-pre1, release-19b-pre2, merged-unicode-utf16-extfmt-2009-06-11, double-double-init-sparc-2, unicode-utf16-extfmt-2009-03-27, double-double-base, snapshot-2007-09, snapshot-2007-08, snapshot-2008-08, snapshot-2008-09, ppc_gencgc_snap_2006-01-06, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2007-05, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, intl-branch-working-2010-02-19-1000, snapshot-2006-11, snapshot-2006-10, double-double-init-sparc, snapshot-2006-12, unicode-string-buffer-impl-base, sse2-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sse2-packed-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, intl-2-branch-base, snapshot-2007-01, snapshot-2007-02, release-19e, release-19d, GIT-CONVERSION, double-double-init-ppc, release-19c, unicode-utf16-sync-2008-12, release-19c-base, cross-sol-x86-merged, label-2009-03-16, release-19f-base, merge-sse2-packed, merge-with-19f, intl-branch-working-2010-02-11-1000, unicode-snapshot-2009-05, unicode-snapshot-2009-06, ppc_gencgc_snap_2005-12-17, double-double-init-%make-sparc, unicode-utf16-sync-2008-07, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, RELEASE_20b, snapshot-2008-04, snapshot-2005-07, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, snapshot-2007-03, release-20a-base, cross-sol-x86-base, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, snapshot-2007-04, snapshot-2010-12, snapshot-2010-11, unicode-utf16-sync-2008-11, snapshot-2007-07, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2007-06, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, pre-merge-intl-branch, double-double-array-checkpoint, double-double-reader-checkpoint-1, release-19d-base, release-19e-pre1, double-double-irrat-end, release-19e-pre2, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, release-19d-pre2, release-19d-pre1, snapshot-2010-08, double-double-init-checkpoint-1, double-double-reader-base, label-2009-03-25, snapshot-2005-03, release-19b-base, cross-sol-x86-2010-12-20, double-double-init-x86, sse2-checkpoint-2008-10-01, intl-branch-2010-03-18-1300, snapshot-2005-11, double-double-sparc-checkpoint-1, sse2-merge-with-2008-11, sse2-merge-with-2008-10, snapshot-2005-10, RELEASE_20a, snapshot-2005-12, release-20a-pre1, snapshot-2009-11, snapshot-2009-12, unicode-utf16-extfmt-2009-06-11, portable-clx-import-2009-06-16, unicode-utf16-string-support, release-19c-pre1, cross-sparc-branch-base, release-19e-base, intl-branch-base, double-double-irrat-start, snapshot-2005-06, snapshot-2005-05, snapshot-2005-04, ppc_gencgc_snap_2005-05-14, snapshot-2005-02, unicode-utf16-base, portable-clx-base, snapshot-2005-09, snapshot-2005-08, snapshot-2009-08, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, snapshot-2006-02, snapshot-2006-03, snapshot-2006-01, snapshot-2006-06, snapshot-2006-07, snapshot-2006-04, snapshot-2006-05, pre-telent-clx, snapshot-2006-08, snapshot-2006-09, HEAD
Branch point for: release-19b-branch, double-double-reader-branch, double-double-array-branch, RELEASE-19F-BRANCH, portable-clx-branch, cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, release-19d-branch, ppc_gencgc_branch, sse2-packed-branch, RELEASE-20A-BRANCH, amd64-dd-branch, double-double-branch, unicode-string-buffer-impl-branch, intl-branch, unicode-utf16-branch, cross-sol-x86-branch, release-19e-branch, sse2-branch, release-19c-branch, intl-2-branch, unicode-utf16-extfmt-branch
Changes since 1.3: +6 -1 lines
File MIME type: text/plain
Add #ifndef _FOO_H_ etc. lines to all .h files.  Moved a few lines in
lisp.c into the correct <foo>-os.h files.
1 /* $Header: /tiger/var/lib/cvsroots/cmucl/src/lisp/alpha-lispregs.h,v 1.4 2005/01/13 19:55:00 fgilham Rel $ */
2
3 #ifndef _ALPHA_LISPREGS_H_
4 #define _ALPHA_LISPREGS_H_
5
6 #define NREGS (32)
7
8 #ifdef LANGUAGE_ASSEMBLY
9 #ifdef __linux__
10 #define R(s) $ ## s
11 #define REG(num) $##num
12 #else
13 #define R(s) s
14 #define REG(num) $/**/num
15 #endif
16 #else
17 #define REG(num) num
18 #endif
19
20 #define reg_LIP REG(0)
21 #define reg_A0 REG(1)
22 #define reg_A1 REG(2)
23 #define reg_A2 REG(3)
24 #define reg_A3 REG(4)
25 #define reg_A4 REG(5)
26 #define reg_A5 REG(6)
27 #define reg_L0 REG(7)
28 #define reg_NARGS REG(8)
29 #define reg_CSP REG(9)
30 #define reg_CFP REG(10)
31 #define reg_OCFP REG(11)
32 #define reg_BSP REG(12)
33 #define reg_LEXENV REG(13)
34 #define reg_CODE REG(14)
35 #define reg_NULL REG(15)
36 #define reg_NL0 REG(16)
37 #define reg_NL1 REG(17)
38 #define reg_NL2 REG(18)
39 #define reg_NL3 REG(19)
40 #define reg_NL4 REG(20)
41 #define reg_NL5 REG(21)
42 #define reg_ALLOC REG(22)
43 #define reg_FDEFN REG(23)
44 #define reg_CFUNC REG(24)
45 #define reg_NFP REG(25)
46 #define reg_LRA REG(26)
47 #define reg_L1 REG(27)
48 #define reg_L2 REG(28)
49 #define reg_GP REG(29)
50 #define reg_NSP REG(30)
51 #define reg_ZERO REG(31)
52
53
54 #define REGNAMES \
55 "LIP", "NL0", "NL1", "NL2", "NL3", "NL4", "NL5", "L0", "NARGS", \
56 "CSP", "CFP", "OCFP", "BSP", "LEXENV", "CODE", "FDEFN", "A0", "A1", \
57 "A2", "A3", "A4", "A5", "ALLOC", "NULL", "CFUNC", "NFP", "LRA", "L1", \
58 "L2", "GP", "NSP", "ZERO"
59
60 #define BOXED_REGISTERS { \
61 reg_CODE, reg_FDEFN, reg_LEXENV, reg_NARGS, reg_OCFP, reg_LRA, \
62 reg_A0, reg_A1, reg_A2, reg_A3, reg_A4, reg_A5, \
63 reg_L0, reg_L1, reg_L2 \
64 }
65
66 #define SC_REG(sc, n) ((sc)->sc_regs[n])
67 #define SC_PC(sc) ((sc)->sc_pc)
68
69 #define call_into_lisp_LRA_page 0x10000
70
71 #endif /* _ALPHA_LISPREGS_H_ */

  ViewVC Help
Powered by ViewVC 1.1.5