1 | /* Copyright (C) 2005-2009 Clozure Associates */ |
---|
2 | /* This file is part of Clozure CL. */ |
---|
3 | |
---|
4 | /* Clozure CL is licensed under the terms of the Lisp Lesser GNU Public */ |
---|
5 | /* License , known as the LLGPL and distributed with Clozure CL as the */ |
---|
6 | /* file "LICENSE". The LLGPL consists of a preamble and the LGPL, */ |
---|
7 | /* which is distributed with Clozure CL as the file "LGPL". Where these */ |
---|
8 | /* conflict, the preamble takes precedence. */ |
---|
9 | |
---|
10 | /* Clozure CL is referenced in the preamble as the "LIBRARY." */ |
---|
11 | |
---|
12 | /* The LLGPL is also available online at */ |
---|
13 | /* http://opensource.franz.com/preamble.html */ |
---|
14 | |
---|
15 | |
---|
16 | include(lisp.s) |
---|
17 | define(`_spjump',` |
---|
18 | .p2align 2 |
---|
19 | .globl _SP$1 |
---|
20 | _exportfn(j_SP$1) |
---|
21 | __(.long _SP$1) |
---|
22 | _endfn |
---|
23 | ') |
---|
24 | _beginfile |
---|
25 | __ifdef(`DARWIN') |
---|
26 | .space 0x3000,0 |
---|
27 | __endif |
---|
28 | __ifdef(`WIN_32') |
---|
29 | .space 0x5000-0x1000,0 |
---|
30 | __endif |
---|
31 | .globl C(spjump_start) |
---|
32 | C(spjump_start): |
---|
33 | |
---|
34 | _spjump(jmpsym) |
---|
35 | _spjump(jmpnfn) |
---|
36 | _spjump(funcall) |
---|
37 | _spjump(mkcatch1v) |
---|
38 | _spjump(mkunwind) |
---|
39 | _spjump(mkcatchmv) |
---|
40 | _spjump(throw) |
---|
41 | _spjump(nthrowvalues) |
---|
42 | _spjump(nthrow1value) |
---|
43 | _spjump(bind) |
---|
44 | _spjump(bind_self) |
---|
45 | _spjump(bind_nil) |
---|
46 | _spjump(bind_self_boundp_check) |
---|
47 | _spjump(rplaca) |
---|
48 | _spjump(rplacd) |
---|
49 | _spjump(conslist) |
---|
50 | _spjump(conslist_star) |
---|
51 | _spjump(stkconslist) |
---|
52 | _spjump(stkconslist_star) |
---|
53 | _spjump(mkstackv) |
---|
54 | _spjump(subtag_misc_ref) |
---|
55 | _spjump(setqsym) |
---|
56 | _spjump(progvsave) |
---|
57 | _spjump(stack_misc_alloc) |
---|
58 | _spjump(gvector) |
---|
59 | _spjump(nvalret) |
---|
60 | _spjump(mvpass) |
---|
61 | _spjump(recover_values_for_mvcall) |
---|
62 | _spjump(nthvalue) |
---|
63 | _spjump(values) |
---|
64 | _spjump(default_optional_args) |
---|
65 | _spjump(opt_supplied_p) |
---|
66 | _spjump(heap_rest_arg) |
---|
67 | _spjump(req_heap_rest_arg) |
---|
68 | _spjump(heap_cons_rest_arg) |
---|
69 | _spjump(simple_keywords) |
---|
70 | _spjump(keyword_args) |
---|
71 | _spjump(keyword_bind) |
---|
72 | _spjump(ffcall) |
---|
73 | _spjump(aref2) |
---|
74 | _spjump(ksignalerr) |
---|
75 | _spjump(stack_rest_arg) |
---|
76 | _spjump(req_stack_rest_arg) |
---|
77 | _spjump(stack_cons_rest_arg) |
---|
78 | _spjump(poweropen_callbackX) |
---|
79 | _spjump(call_closure) |
---|
80 | _spjump(getxlong) |
---|
81 | _spjump(spreadargz) |
---|
82 | _spjump(tfuncallgen) |
---|
83 | _spjump(tfuncallslide) |
---|
84 | _spjump(tfuncallvsp) |
---|
85 | _spjump(tcallsymgen) |
---|
86 | _spjump(tcallsymslide) |
---|
87 | _spjump(tcallsymvsp) |
---|
88 | _spjump(tcallnfngen) |
---|
89 | _spjump(tcallnfnslide) |
---|
90 | _spjump(tcallnfnvsp) |
---|
91 | _spjump(misc_ref) |
---|
92 | _spjump(misc_set) |
---|
93 | _spjump(stkconsyz) |
---|
94 | _spjump(stkvcell0) |
---|
95 | _spjump(stkvcellvsp) |
---|
96 | _spjump(makestackblock) |
---|
97 | _spjump(makestackblock0) |
---|
98 | _spjump(makestacklist) |
---|
99 | _spjump(stkgvector) |
---|
100 | _spjump(misc_alloc) |
---|
101 | _spjump(poweropen_ffcallX) |
---|
102 | _spjump(gvset) |
---|
103 | _spjump(macro_bind) |
---|
104 | _spjump(destructuring_bind) |
---|
105 | _spjump(destructuring_bind_inner) |
---|
106 | _spjump(recover_values) |
---|
107 | _spjump(vpopargregs) |
---|
108 | _spjump(integer_sign) |
---|
109 | _spjump(subtag_misc_set) |
---|
110 | _spjump(spread_lexprz) |
---|
111 | _spjump(store_node_conditional) |
---|
112 | _spjump(reset) |
---|
113 | _spjump(mvslide) |
---|
114 | _spjump(save_values) |
---|
115 | _spjump(add_values) |
---|
116 | _spjump(callback) |
---|
117 | _spjump(misc_alloc_init) |
---|
118 | _spjump(stack_misc_alloc_init) |
---|
119 | _spjump(set_hash_key) |
---|
120 | _spjump(aset2) |
---|
121 | _spjump(callbuiltin) |
---|
122 | _spjump(callbuiltin0) |
---|
123 | _spjump(callbuiltin1) |
---|
124 | _spjump(callbuiltin2) |
---|
125 | _spjump(callbuiltin3) |
---|
126 | _spjump(popj) |
---|
127 | _spjump(restorefullcontext) |
---|
128 | _spjump(savecontextvsp) |
---|
129 | _spjump(savecontext0) |
---|
130 | _spjump(restorecontext) |
---|
131 | _spjump(lexpr_entry) |
---|
132 | _spjump(syscall2) |
---|
133 | _spjump(builtin_plus) |
---|
134 | _spjump(builtin_minus) |
---|
135 | _spjump(builtin_times) |
---|
136 | _spjump(builtin_div) |
---|
137 | _spjump(builtin_eq) |
---|
138 | _spjump(builtin_ne) |
---|
139 | _spjump(builtin_gt) |
---|
140 | _spjump(builtin_ge) |
---|
141 | _spjump(builtin_lt) |
---|
142 | _spjump(builtin_le) |
---|
143 | _spjump(builtin_eql) |
---|
144 | _spjump(builtin_length) |
---|
145 | _spjump(builtin_seqtype) |
---|
146 | _spjump(builtin_assq) |
---|
147 | _spjump(builtin_memq) |
---|
148 | _spjump(builtin_logbitp) |
---|
149 | _spjump(builtin_logior) |
---|
150 | _spjump(builtin_logand) |
---|
151 | _spjump(builtin_ash) |
---|
152 | _spjump(builtin_negate) |
---|
153 | _spjump(builtin_logxor) |
---|
154 | _spjump(builtin_aref1) |
---|
155 | _spjump(builtin_aset1) |
---|
156 | _spjump(breakpoint) |
---|
157 | _spjump(eabi_ff_call) |
---|
158 | _spjump(eabi_callback) |
---|
159 | _spjump(syscall) |
---|
160 | _spjump(getu64) |
---|
161 | _spjump(gets64) |
---|
162 | _spjump(makeu64) |
---|
163 | _spjump(makes64) |
---|
164 | _spjump(specref) |
---|
165 | _spjump(specset) |
---|
166 | _spjump(specrefcheck) |
---|
167 | _spjump(restoreintlevel) |
---|
168 | _spjump(makes32) |
---|
169 | _spjump(makeu32) |
---|
170 | _spjump(gets32) |
---|
171 | _spjump(getu32) |
---|
172 | _spjump(fix_overflow) |
---|
173 | _spjump(mvpasssym) |
---|
174 | _spjump(aref3) |
---|
175 | _spjump(aset3) |
---|
176 | _spjump(ffcall_return_registers) |
---|
177 | _spjump(aset1) |
---|
178 | _spjump(set_hash_key_conditional) |
---|
179 | _spjump(unbind_interrupt_level) |
---|
180 | _spjump(unbind) |
---|
181 | _spjump(unbind_n) |
---|
182 | _spjump(unbind_to) |
---|
183 | _spjump(bind_interrupt_level_m1) |
---|
184 | _spjump(bind_interrupt_level) |
---|
185 | _spjump(bind_interrupt_level_0) |
---|
186 | _spjump(progvrestore) |
---|
187 | _spjump(nmkunwind) |
---|
188 | .globl C(spjump_end) |
---|
189 | C(spjump_end): |
---|
190 | .org C(spjump_start)+0x1000 |
---|
191 | |
---|
192 | _endfile |
---|
193 | |
---|