2 * stubs for C-linkage library functions which we need to refer to
5 * (But note this is only the Linux version, as per the FIXME
6 * note in the BSD version in undefineds.h.)
8 * These stubs exist for the benefit of Lisp code that needs to refer
9 * to foreign symbols when dlsym() is not available (i.e. when dumping
10 * cold-sbcl.core, when we may be running in a host that's not SBCL,
11 * or on platforms that don't have it at all). If the runtime is
12 * dynamically linked, library functions won't be linked into it, so
13 * the map file won't show them. So, we need a bunch of stubs that
18 * This software is part of the SBCL system. See the README file for
21 * This software is derived from the CMU CL system, which was
22 * written at Carnegie Mellon University and released into the
23 * public domain. The software is in the public domain and is
24 * provided with absolutely no warranty. See the COPYING and CREDITS
25 * files for more information.
35 #define LDSO_STUBIFY(fct) \
37 .globl ldso_stub__ ## fct ; \
38 .type ldso_stub__ ## fct,@function ; \
39 ldso_stub__ ## fct: ; \
42 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
45 #define LDSO_STUBIFY(fct) \
46 .globl ldso_stub__ ## fct ; \
47 .type ldso_stub__ ## fct,@function ; \
48 ldso_stub__ ## fct: ; \
51 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
54 #define LDSO_STUBIFY(fct) \
55 .globl ldso_stub__ ## fct ; \
56 .type ldso_stub__ ## fct,@function ; \
57 ldso_stub__ ## fct: ; \
60 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
64 /* This is an attempt to follow DB's hint of sbcl-devel
65 * 2001-09-18. -- CSR */
66 #define LDSO_STUBIFY(fct) \
67 .globl ldso_stub__ ## fct ; \
68 .type ldso_stub__ ## fct,@function ; \
69 ldso_stub__ ## fct: ; \
70 sethi %hi(fct),%g1 ; \
71 jmpl %g1+%lo(fct),%g0 ; \
72 nop /* delay slot*/ ; \
74 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
77 #error unsupported CPU architecture
88 LDSO_STUBIFY(cfgetispeed)
89 LDSO_STUBIFY(cfgetospeed)
90 LDSO_STUBIFY(cfsetispeed)
91 LDSO_STUBIFY(cfsetospeed)
95 LDSO_STUBIFY(closedir)
100 LDSO_STUBIFY(dlerror)
114 LDSO_STUBIFY(ftruncate)
116 LDSO_STUBIFY(getdtablesize)
117 LDSO_STUBIFY(getegid)
120 LDSO_STUBIFY(gethostbyaddr)
121 LDSO_STUBIFY(gethostbyname)
122 LDSO_STUBIFY(gethostname)
123 LDSO_STUBIFY(getitimer)
124 LDSO_STUBIFY(getpagesize)
125 LDSO_STUBIFY(getpeername)
126 LDSO_STUBIFY(getpgrp)
128 LDSO_STUBIFY(getppid)
129 LDSO_STUBIFY(getrusage)
130 LDSO_STUBIFY(getsockname)
131 LDSO_STUBIFY(gettimeofday)
144 LDSO_STUBIFY(memmove)
147 LDSO_STUBIFY(opendir)
151 LDSO_STUBIFY(readdir)
152 LDSO_STUBIFY(readlink)
158 LDSO_STUBIFY(setitimer)
159 LDSO_STUBIFY(setpgrp)
161 LDSO_STUBIFY(sigsetmask)
166 LDSO_STUBIFY(strerror)
168 LDSO_STUBIFY(symlink)
171 LDSO_STUBIFY(tcdrain)
173 LDSO_STUBIFY(tcflush)
174 LDSO_STUBIFY(tcgetattr)
175 LDSO_STUBIFY(tcsendbreak)
176 LDSO_STUBIFY(tcsetattr)
177 LDSO_STUBIFY(truncate)
178 LDSO_STUBIFY(ttyname)
186 * These aren't needed on the X86 because they're microcoded into the
187 * FPU, so the Lisp VOPs can implement them directly without having to
190 * Note: There might be some other functions in this category as well.
191 * E.g. I notice tanh() and acos() in the list above.. -- WHN 2001-06-07
193 #if !defined __i386__
205 LDSO_STUBIFY(ieee_get_fp_control)
206 LDSO_STUBIFY(ieee_set_fp_control)