1 ;;;; Generate stubs for C-linkage library functions which we need to refer to
4 ;;;; (But note this is only the Linux version, as per the FIXME
5 ;;;; note in the BSD version in undefineds.h.)
7 ;;;; These stubs exist for the benefit of Lisp code that needs to refer
8 ;;;; to foreign symbols when dlsym() is not available (i.e. when dumping
9 ;;;; cold-sbcl.core, when we may be running in a host that's not SBCL,
10 ;;;; or on platforms that don't have it at all). If the runtime is
11 ;;;; dynamically linked, library functions won't be linked into it, so
12 ;;;; the map file won't show them. So, we need a bunch of stubs that
15 ;;;; This software is part of the SBCL system. See the README file for
16 ;;;; more information.
18 ;;;; This software is derived from the CMU CL system, which was
19 ;;;; written at Carnegie Mellon University and released into the
20 ;;;; public domain. The software is in the public domain and is
21 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
22 ;;;; files for more information.
25 (defun ldso-stubify (fct stream
)
26 (format stream
"LDSO_STUBIFY(~A)~%" fct
))
28 ;;; This is an attempt to follow DB's hint of sbcl-devel
29 ;;; 2001-09-18. -- CSR
31 ;;; And an attempt to work around the Sun toolchain... --ns
33 (defun ldso-stubify (fct stream
)
34 (apply #'format stream
"
35 .globl ldso_stub__~A ; \\
36 FUNCDEF(ldso_stub__~A) ; \\
38 sethi %hi(~A),%g1 ; \\
39 jmpl %g1+%lo(~A),%g0 ; \\
40 nop /* delay slot*/ ; \\
42 .size ldso_stub__~A,.L~Ae1-ldso_stub__~A ;~%"
43 (make-list 9 :initial-element fct
)))
46 (defun ldso-stubify (fct stream
)
47 (let ((stub (format nil
"ldso_stub__~a" fct
)))
48 (apply #'format stream
(list
55 .import ~a,code~%" stub stub fct fct
))))
57 (defvar *preludes
* '("
58 /* This is an automatically generated file, please do not hand-edit it.
59 * See the program tools-for-build/ldso-stubs.lisp. */
61 #ifndef LANGUAGE_ASSEMBLY
62 #define LANGUAGE_ASSEMBLY
67 #define LDSO_STUBIFY(fct) \\
69 .global ldso_stub__ ## fct ; \\
70 .type ldso_stub__ ## fct, %function ; \\
71 ldso_stub__ ## fct: ; \\
74 .size ldso_stub__ ## fct, .-ldso_stub__ ## fct"
77 #ifdef LISP_FEATURE_SPARC
78 #include \"sparc-funcdef.h\"
82 #!+(and (or x86 x86-64
) (not darwin
)) "
83 #define LDSO_STUBIFY(fct) \\
85 .globl ldso_stub__ ## fct ; \\
86 .type ldso_stub__ ## fct,@function ; \\
87 ldso_stub__ ## fct: ; \\
90 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
92 ;;; osf1 has ancient cpp that doesn't do ##
94 #define LDSO_STUBIFY(fct) \\
95 .globl ldso_stub__/**/fct ; \\
96 ldso_stub__/**/fct: ; \\
100 ;;; but there's no reason we need to put up with that on modern (Linux) OSes
101 #!+(and linux alpha
) "
102 #define LDSO_STUBIFY(fct) \\
103 .globl ldso_stub__ ## fct ; \\
104 .type ldso_stub__ ## fct,@function ; \\
105 ldso_stub__ ## fct: ; \\
107 .L ## fct ## e1: ; \\
108 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
114 #!+(and (not darwin
) ppc
) "
115 #define LDSO_STUBIFY(fct) \\
116 .globl ldso_stub__ ## fct ; \\
117 .type ldso_stub__ ## fct,@function ; \\
118 ldso_stub__ ## fct: ; \\
120 .L ## fct ## e1: ; \\
121 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
123 #!+(and darwin ppc
) "
124 #define LDSO_STUBIFY(fct) @\\
126 .globl _ldso_stub__ ## fct @\\
127 _ldso_stub__ ## fct: @\\
128 b _ldso_stub__ ## fct ## stub @\\
129 .symbol_stub _ldso_stub__ ## fct ## stub: @\\
130 .indirect_symbol _ ## fct @\\
131 lis r11,ha16(_ldso_stub__ ## fct ## $lazy_ptr) @\\
132 lwz r12,lo16(_ldso_stub__ ## fct ## $lazy_ptr)(r11) @\\
134 addi r11,r11,lo16(_ldso_stub__ ## fct ## $lazy_ptr) @\\
136 .lazy_symbol_pointer @\\
137 _ldso_stub__ ## fct ## $lazy_ptr: @\\
138 .indirect_symbol _ ## fct @\\
139 .long dyld_stub_binding_helper"
141 ;;; darwin x86 assembler is weird and follows the ppc assembler syntax
142 #!+(and darwin x86
) "
143 #define LDSO_STUBIFY(fct) \\
146 .globl _ldso_stub__ ## fct ; \\
147 _ldso_stub__ ## fct: ; \\
148 jmp L ## fct ## $stub ; \\
149 .section __IMPORT,__jump_table,symbol_stubs,self_modifying_code+pure_instructions,5 ; \\
150 L ## fct ## $stub: ; \\
151 .indirect_symbol _ ## fct ; \\
157 .subsections_via_symbols ; "
160 #!+(and darwin x86-64
) "
161 #define LDSO_STUBIFY(fct) \\
163 .globl _ldso_stub__ ## fct ; \\
164 _ldso_stub__ ## fct: ; \\
168 ;;; KLUDGE: set up the vital fifth argument, passed on the
169 ;;; stack. Do this unconditionally, even if the stub is for a
170 ;;; function with few arguments: it can't hurt. We only do this for
171 ;;; the fifth argument, as the first four are passed in registers
172 ;;; and we apparently don't ever need to pass six arguments to a
173 ;;; libc function. -- CSR, 2003-10-29
174 ;;; Expanded to 8 arguments regardless. -- ths, 2005-03-24
176 #define LDSO_STUBIFY(fct) \\
177 .globl ldso_stub__ ## fct ; \\
178 .type ldso_stub__ ## fct,@function ; \\
179 .ent ldso_stub__ ## fct ; \\
180 ldso_stub__ ## fct: ; \\
200 .end ldso_stub__ ## fct ; \\
201 .size ldso_stub__ ## fct,.-ldso_stub__ ## fct ;"))
203 (defvar *stubs
* (append
234 #!+inode64
"fstat$INODE64"
265 #!+inode64
"lstat$INODE64"
291 #!+inode64
"stat$INODE64"
311 ;; These aren't needed on the X86 because they're microcoded into the
312 ;; FPU, so the Lisp VOPs can implement them directly without having to
315 ;; Note: There might be some other functions in this category as well.
316 ;; E.g. I notice tanh() and acos() in the list above.. -- WHN 2001-06-07
328 '("ieee_get_fp_control"
329 "ieee_set_fp_control")
330 ;; FIXME: After 1.0 this should be made
331 ;; #!-linkage-table, as we only need these stubs if
332 ;; we don't have linkage-table. Done this way now to
333 ;; cut down on the number of ports affected.
334 #!-
(or win32 darwin freebsd netbsd openbsd
)
338 #!+(or openbsd freebsd
)
348 #!+os-provides-dladdr
350 #!-sunos
;; !defined(SVR4)
353 (with-open-file (f "src/runtime/ldso-stubs.S" :direction
:output
:if-exists
:supersede
)
354 (assert (= (length *preludes
*) 2))
355 (dolist (pre *preludes
*)
357 (dolist (stub *stubs
*)
358 (check-type stub string
)
359 (ldso-stubify stub f
)))