source: release/1.9/source/lisp-kernel/ppc-spjump.s @ 16083

Last change on this file since 16083 was 13337, checked in by plkrueger, 10 years ago

Don't change the m4 quoting characters from their defaults (`').
(On the ARM, square brackets are used to denote memory operands, curly
braces surround register lists, and multicharacter quoting delimeters
look funny ...)

Some versions (at least) of m4 are confused by quoting characters in
comments, so try to refrain from using contractions ...

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