source: trunk/source/lisp-kernel/ppc-spjump.s @ 11577

Last change on this file since 11577 was 11577, checked in by gb, 12 years ago

Define C(spjump_start) and C(spjump_end) unconditionally.

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