source: trunk/ccl/lisp-kernel/x86-spjump64.s @ 5762

Last change on this file since 5762 was 5762, checked in by gb, 15 years ago

.SPffcall_return_registers (just returns %rax/rdx, %xmm0/%xmm1).
(replaces .SPunused_4).

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