0.7.4.18: Fixing Alpha fixes
[sbcl.git] / src / runtime / ldso-stubs.S
1 /*
2  * stubs for C-linkage library functions which we need to refer to 
3  * from Lisp 
4  *
5  * (But note this is only the Linux version, as per the FIXME
6  * note in the BSD version in undefineds.h.)
7  *
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
14  * nm(1) _can_ see.  
15  */
16
17 /*
18  * This software is part of the SBCL system. See the README file for
19  * more information.
20  *
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.
26  */
27 #include "sbcl.h"
28         .text
29
30 #if defined LISP_FEATURE_X86
31         
32 #define LDSO_STUBIFY(fct)                       \
33         .align 16 ;                             \
34 .globl ldso_stub__ ## fct ;                     \
35         .type    ldso_stub__ ## fct,@function ; \
36 ldso_stub__ ## fct: ;                           \
37         jmp fct ;                               \
38 .L ## fct ## e1: ;                              \
39         .size    ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
40
41 #elif ((defined LISP_FEATURE_OSF1) && (defined LISP_FEATURE_ALPHA))
42 /* osf1 has ancient cpp that doesn't do ## */
43 #define LDSO_STUBIFY(fct)                       \
44 .globl ldso_stub__/**/fct ;                     \
45 ldso_stub__/**/fct: ;                           \
46         jmp fct ;                               \
47 .L/**/fct/**/e1: ;                              
48
49
50 #elif ((defined LISP_FEATURE_LINUX) && (defined LISP_FEATURE_ALPHA))    
51 /* but there's no reason we need to put up with that on modern (Linux) OSes */
52 #define LDSO_STUBIFY(fct)                       \
53 .globl ldso_stub__ ## fct ;                     \
54         .type    ldso_stub__ ## fct,@function ; \
55 ldso_stub__ ## fct: ;                           \
56         jmp fct ;                               \
57 .L ## fct ## e1: ;                              \
58         .size    ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
59
60 #elif defined LISP_FEATURE_PPC
61 #define LDSO_STUBIFY(fct)                       \
62 .globl ldso_stub__ ## fct ;                     \
63         .type    ldso_stub__ ## fct,@function ; \
64 ldso_stub__ ## fct: ;                           \
65         b fct ;                                 \
66 .L ## fct ## e1: ;                              \
67         .size    ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
68         
69 #elif defined LISP_FEATURE_SPARC
70         
71         /* This is an attempt to follow DB's hint of sbcl-devel
72          * 2001-09-18. -- CSR */
73 #define LDSO_STUBIFY(fct)                       \
74 .globl ldso_stub__ ## fct ;                     \
75         .type    ldso_stub__ ## fct,@function ; \
76 ldso_stub__ ## fct: ;                           \
77         sethi %hi(fct),%g1      ;               \
78         jmpl %g1+%lo(fct),%g0   ;               \
79         nop /* delay slot*/     ;               \
80 .L ## fct ## e1: ;                              \
81         .size    ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
82         
83 #else
84 #error unsupported CPU architecture
85 #endif
86         
87  LDSO_STUBIFY(accept)
88  LDSO_STUBIFY(access)
89  LDSO_STUBIFY(acos)
90  LDSO_STUBIFY(acosh)
91  LDSO_STUBIFY(asin)
92  LDSO_STUBIFY(asinh)
93  LDSO_STUBIFY(atanh)
94  LDSO_STUBIFY(bind)
95  LDSO_STUBIFY(cfgetispeed)
96  LDSO_STUBIFY(cfgetospeed)
97  LDSO_STUBIFY(cfsetispeed)
98  LDSO_STUBIFY(cfsetospeed)
99  LDSO_STUBIFY(chmod)
100  LDSO_STUBIFY(chown)
101  LDSO_STUBIFY(close)
102  LDSO_STUBIFY(closedir)
103  LDSO_STUBIFY(connect)
104  LDSO_STUBIFY(cosh)
105  LDSO_STUBIFY(creat)
106  LDSO_STUBIFY(dlclose)
107  LDSO_STUBIFY(dlerror)
108  LDSO_STUBIFY(dlopen)
109  LDSO_STUBIFY(dlsym)
110  LDSO_STUBIFY(dup)
111  LDSO_STUBIFY(dup2)
112  LDSO_STUBIFY(execve)
113  LDSO_STUBIFY(exit)
114  LDSO_STUBIFY(fchmod)
115  LDSO_STUBIFY(fchown)
116  LDSO_STUBIFY(fcntl)
117  LDSO_STUBIFY(fork)
118  LDSO_STUBIFY(free)
119  LDSO_STUBIFY(fstat)
120  LDSO_STUBIFY(fsync)
121  LDSO_STUBIFY(ftruncate)
122  LDSO_STUBIFY(getcwd)
123  LDSO_STUBIFY(getdtablesize)
124  LDSO_STUBIFY(getegid)
125  LDSO_STUBIFY(getenv)
126  LDSO_STUBIFY(getgid)
127  LDSO_STUBIFY(gethostbyaddr)
128  LDSO_STUBIFY(gethostbyname)
129  LDSO_STUBIFY(gethostname)
130  LDSO_STUBIFY(getitimer)
131  LDSO_STUBIFY(getpagesize)
132  LDSO_STUBIFY(getpeername)
133  LDSO_STUBIFY(getpgrp)
134  LDSO_STUBIFY(getpid)
135  LDSO_STUBIFY(getppid)
136  LDSO_STUBIFY(getrusage)
137  LDSO_STUBIFY(getsockname)
138  LDSO_STUBIFY(gettimeofday)
139  LDSO_STUBIFY(getuid)
140  LDSO_STUBIFY(hypot)
141  LDSO_STUBIFY(ioctl)
142  LDSO_STUBIFY(isatty)
143  LDSO_STUBIFY(kill)
144  LDSO_STUBIFY(killpg)
145  LDSO_STUBIFY(link)
146  LDSO_STUBIFY(listen)
147  LDSO_STUBIFY(log1p)
148  LDSO_STUBIFY(lseek)
149  LDSO_STUBIFY(lstat)
150  LDSO_STUBIFY(malloc)
151  LDSO_STUBIFY(memmove)
152  LDSO_STUBIFY(mkdir)
153  LDSO_STUBIFY(open)
154  LDSO_STUBIFY(opendir)
155  LDSO_STUBIFY(pipe)
156  LDSO_STUBIFY(pow)
157  LDSO_STUBIFY(read)
158  LDSO_STUBIFY(readdir)
159  LDSO_STUBIFY(readlink)
160  LDSO_STUBIFY(recv)
161  LDSO_STUBIFY(rename)
162  LDSO_STUBIFY(rmdir)
163  LDSO_STUBIFY(select)
164  LDSO_STUBIFY(send)
165  LDSO_STUBIFY(setitimer)
166  LDSO_STUBIFY(setpgrp)
167 #if !defined(SVR4)
168  LDSO_STUBIFY(sigsetmask)
169 #endif
170  LDSO_STUBIFY(sinh)
171  LDSO_STUBIFY(socket)
172  LDSO_STUBIFY(stat)
173  LDSO_STUBIFY(strerror)
174  LDSO_STUBIFY(strlen)
175  LDSO_STUBIFY(symlink)
176  LDSO_STUBIFY(sync)
177  LDSO_STUBIFY(tanh)
178  LDSO_STUBIFY(tcdrain)
179  LDSO_STUBIFY(tcflow)
180  LDSO_STUBIFY(tcflush)
181  LDSO_STUBIFY(tcgetattr)
182  LDSO_STUBIFY(tcsendbreak)
183  LDSO_STUBIFY(tcsetattr)
184  LDSO_STUBIFY(truncate)
185  LDSO_STUBIFY(ttyname)
186  LDSO_STUBIFY(tzname)
187  LDSO_STUBIFY(unlink)
188  LDSO_STUBIFY(utimes)
189  LDSO_STUBIFY(wait3)    
190  LDSO_STUBIFY(write)
191
192 /*
193  * These aren't needed on the X86 because they're microcoded into the
194  * FPU, so the Lisp VOPs can implement them directly without having to
195  * call C code.
196  *
197  * Note: There might be some other functions in this category as well.
198  * E.g. I notice tanh() and acos() in the list above.. -- WHN 2001-06-07
199  */
200 #if !defined __i386__
201  LDSO_STUBIFY(sin)
202  LDSO_STUBIFY(cos) 
203  LDSO_STUBIFY(tan)      
204  LDSO_STUBIFY(atan) 
205  LDSO_STUBIFY(atan2) 
206  LDSO_STUBIFY(exp)      
207  LDSO_STUBIFY(log) 
208  LDSO_STUBIFY(log10) 
209  LDSO_STUBIFY(sqrt) 
210 #endif
211 #if defined alpha
212  LDSO_STUBIFY(ieee_get_fp_control)
213  LDSO_STUBIFY(ieee_set_fp_control)
214 #endif