| 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 | |
|---|
| 18 | define([_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) |
|---|
| 28 | C(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) |
|---|
| 183 | C(spjump_end): |
|---|
| 184 | __ifdef([DARWIN]) |
|---|
| 185 | __ifdef([PPC64]) |
|---|
| 186 | .org 0x5000-0x1000 |
|---|
| 187 | __endif |
|---|
| 188 | __endif |
|---|
| 189 | _endfile |
|---|
| 190 | |
|---|
