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

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

lisp_pipe.

  • 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        defimport(lisp_pipe)
100       
101   
102        .globl C(import_ptrs_base)
103C(import_ptrs_base):
104        PTR(import_ptrs_start)
105
106        __ifdef([PPC])
107        __ifdef([LINUX])
108        __ifndef([PPC64])
109        .globl __trampoline_setup
110        .long  __trampoline_setup
111        __endif
112        __endif
113        __endif
114
115
116
117
118        _endfile
Note: See TracBrowser for help on using the repository browser.