source: trunk/source/lisp-kernel/imports.s @ 10654

Last change on this file since 10654 was 10654, checked in by gb, 11 years ago

Add entries for new glue functions (things that we've used syscalls to access,
for one reason or another.)

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 3.0 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(m4macros.m4)
16define([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)
31define([defimport],[
32        .globl C($1)
33        PTR(C($1))
34               
35# __line__
36])
37        .data
38import_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(allocate_tstack_holding_area_lock)
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       
100   
101        .globl C(import_ptrs_base)
102C(import_ptrs_base):
103        PTR(import_ptrs_start)
104
105        __ifdef([PPC])
106        __ifdef([LINUX])
107        __ifndef([PPC64])
108        .globl __trampoline_setup
109        .long  __trampoline_setup
110        __endif
111        __endif
112        __endif
113
114
115
116
117        _endfile
Note: See TracBrowser for help on using the repository browser.