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 |
---|