| 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(m4macros.m4) |
|---|
| 16 | define([PTR],[ |
|---|
| 17 | __ifdef([PPC64]) |
|---|
| 18 | .quad $1 |
|---|
| 19 | __else |
|---|
| 20 | __ifdef([X8664]) |
|---|
| 21 | .quad $1 |
|---|
| 22 | __else |
|---|
| 23 | .long $1 |
|---|
| 24 | __endif |
|---|
| 25 | __endif |
|---|
| 26 | ]) |
|---|
| 27 | _beginfile |
|---|
| 28 | |
|---|
| 29 | |
|---|
| 30 | .globl C(import_ptrs_base) |
|---|
| 31 | define([defimport],[ |
|---|
| 32 | .globl C($1) |
|---|
| 33 | PTR(C($1)) |
|---|
| 34 | |
|---|
| 35 | # __line__ |
|---|
| 36 | ]) |
|---|
| 37 | .data |
|---|
| 38 | import_ptrs_start: |
|---|
| 39 | |
|---|
| 40 | defimport(fd_setsize_bytes) |
|---|
| 41 | defimport(do_fd_set) |
|---|
| 42 | defimport(do_fd_clr) |
|---|
| 43 | defimport(do_fd_is_set) |
|---|
| 44 | defimport(do_fd_zero) |
|---|
| 45 | defimport(xMakeDataExecutable) |
|---|
| 46 | defimport(xGetSharedLibrary) |
|---|
| 47 | defimport(xFindSymbol) |
|---|
| 48 | defimport(allocate) |
|---|
| 49 | defimport(deallocate) |
|---|
| 50 | defimport(jvm_init) |
|---|
| 51 | defimport(allocate_vstack_holding_area_lock) |
|---|
| 52 | defimport(register_cstack_holding_area_lock) |
|---|
| 53 | defimport(raise_thread_interrupt) |
|---|
| 54 | defimport(get_r_debug) |
|---|
| 55 | defimport(restore_soft_stack_limit) |
|---|
| 56 | defimport(lisp_egc_control) |
|---|
| 57 | defimport(lisp_bug) |
|---|
| 58 | defimport(xNewThread) |
|---|
| 59 | defimport(xYieldToThread) |
|---|
| 60 | defimport(xDisposeThread) |
|---|
| 61 | defimport(xThreadCurrentStackSpace) |
|---|
| 62 | defimport(usage_exit) |
|---|
| 63 | defimport(save_fp_context) |
|---|
| 64 | defimport(restore_fp_context) |
|---|
| 65 | defimport(put_vector_registers) |
|---|
| 66 | defimport(get_vector_registers) |
|---|
| 67 | defimport(new_semaphore) |
|---|
| 68 | defimport(wait_on_semaphore) |
|---|
| 69 | defimport(signal_semaphore) |
|---|
| 70 | defimport(destroy_semaphore) |
|---|
| 71 | defimport(new_recursive_lock) |
|---|
| 72 | defimport(lock_recursive_lock) |
|---|
| 73 | defimport(unlock_recursive_lock) |
|---|
| 74 | defimport(destroy_recursive_lock) |
|---|
| 75 | defimport(lisp_suspend_other_threads) |
|---|
| 76 | defimport(lisp_resume_other_threads) |
|---|
| 77 | defimport(lisp_suspend_tcr) |
|---|
| 78 | defimport(lisp_resume_tcr) |
|---|
| 79 | defimport(rwlock_new) |
|---|
| 80 | defimport(rwlock_destroy) |
|---|
| 81 | defimport(rwlock_rlock) |
|---|
| 82 | defimport(rwlock_wlock) |
|---|
| 83 | defimport(rwlock_unlock) |
|---|
| 84 | defimport(recursive_lock_trylock) |
|---|
| 85 | defimport(foreign_name_and_offset) |
|---|
| 86 | defimport(lisp_read) |
|---|
| 87 | defimport(lisp_write) |
|---|
| 88 | defimport(lisp_open) |
|---|
| 89 | defimport(lisp_fchmod) |
|---|
| 90 | defimport(lisp_lseek) |
|---|
| 91 | defimport(lisp_close) |
|---|
| 92 | defimport(lisp_ftruncate) |
|---|
| 93 | defimport(lisp_stat) |
|---|
| 94 | defimport(lisp_fstat) |
|---|
| 95 | defimport(lisp_futex) |
|---|
| 96 | defimport(lisp_opendir) |
|---|
| 97 | defimport(lisp_readdir) |
|---|
| 98 | defimport(lisp_closedir) |
|---|
| 99 | defimport(lisp_pipe) |
|---|
| 100 | defimport(lisp_gettimeofday) |
|---|
| 101 | defimport(lisp_sigexit) |
|---|
| 102 | |
|---|
| 103 | .globl C(import_ptrs_base) |
|---|
| 104 | C(import_ptrs_base): |
|---|
| 105 | PTR(import_ptrs_start) |
|---|
| 106 | |
|---|
| 107 | __ifdef([PPC]) |
|---|
| 108 | __ifdef([LINUX]) |
|---|
| 109 | __ifndef([PPC64]) |
|---|
| 110 | .globl __trampoline_setup |
|---|
| 111 | .long __trampoline_setup |
|---|
| 112 | __endif |
|---|
| 113 | __endif |
|---|
| 114 | __endif |
|---|
| 115 | |
|---|
| 116 | |
|---|
| 117 | |
|---|
| 118 | |
|---|
| 119 | _endfile |
|---|
