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 #ifdef LISP_FEATURE_SPARC
68 #include \"sparc-funcdef.h\"
72 #!+(and (or x86 x86-64) (not darwin)) "
73 #define LDSO_STUBIFY(fct) \\
75 .globl ldso_stub__ ## fct ; \\
76 .type ldso_stub__ ## fct,@function ; \\
77 ldso_stub__ ## fct: ; \\
80 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
82 ;;; osf1 has ancient cpp that doesn't do ##
84 #define LDSO_STUBIFY(fct) \\
85 .globl ldso_stub__/**/fct ; \\
86 ldso_stub__/**/fct: ; \\
90 ;;; but there's no reason we need to put up with that on modern (Linux) OSes
91 #!+(and linux alpha) "
92 #define LDSO_STUBIFY(fct) \\
93 .globl ldso_stub__ ## fct ; \\
94 .type ldso_stub__ ## fct,@function ; \\
95 ldso_stub__ ## fct: ; \\
98 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
104 #!+(and (not darwin) ppc) "
105 #define LDSO_STUBIFY(fct) \\
106 .globl ldso_stub__ ## fct ; \\
107 .type ldso_stub__ ## fct,@function ; \\
108 ldso_stub__ ## fct: ; \\
110 .L ## fct ## e1: ; \\
111 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
113 #!+(and darwin ppc) "
114 #define LDSO_STUBIFY(fct) @\\
116 .globl _ldso_stub__ ## fct @\\
117 _ldso_stub__ ## fct: @\\
118 b _ldso_stub__ ## fct ## stub @\\
119 .symbol_stub _ldso_stub__ ## fct ## stub: @\\
120 .indirect_symbol _ ## fct @\\
121 lis r11,ha16(_ldso_stub__ ## fct ## $lazy_ptr) @\\
122 lwz r12,lo16(_ldso_stub__ ## fct ## $lazy_ptr)(r11) @\\
124 addi r11,r11,lo16(_ldso_stub__ ## fct ## $lazy_ptr) @\\
126 .lazy_symbol_pointer @\\
127 _ldso_stub__ ## fct ## $lazy_ptr: @\\
128 .indirect_symbol _ ## fct @\\
129 .long dyld_stub_binding_helper"
131 ;;; darwin x86 assembler is weird and follows the ppc assembler syntax
132 #!+(and darwin x86) "
133 #define LDSO_STUBIFY(fct) \\
136 .globl _ldso_stub__ ## fct ; \\
137 _ldso_stub__ ## fct: ; \\
138 jmp L ## fct ## $stub ; \\
139 .section __IMPORT,__jump_table,symbol_stubs,self_modifying_code+pure_instructions,5 ; \\
140 L ## fct ## $stub: ; \\
141 .indirect_symbol _ ## fct ; \\
147 .subsections_via_symbols ; "
150 #!+(and darwin x86-64) "
151 #define LDSO_STUBIFY(fct) \\
153 .globl _ldso_stub__ ## fct ; \\
154 _ldso_stub__ ## fct: ; \\
158 ;;; KLUDGE: set up the vital fifth argument, passed on the
159 ;;; stack. Do this unconditionally, even if the stub is for a
160 ;;; function with few arguments: it can't hurt. We only do this for
161 ;;; the fifth argument, as the first four are passed in registers
162 ;;; and we apparently don't ever need to pass six arguments to a
163 ;;; libc function. -- CSR, 2003-10-29
164 ;;; Expanded to 8 arguments regardless. -- ths, 2005-03-24
166 #define LDSO_STUBIFY(fct) \\
167 .globl ldso_stub__ ## fct ; \\
168 .type ldso_stub__ ## fct,@function ; \\
169 .ent ldso_stub__ ## fct ; \\
170 ldso_stub__ ## fct: ; \\
190 .end ldso_stub__ ## fct ; \\
191 .size ldso_stub__ ## fct,.-ldso_stub__ ## fct ;"))
193 (defvar *stubs* (append
224 #!+inode64 "fstat$INODE64"
255 #!+inode64 "lstat$INODE64"
281 #!+inode64 "stat$INODE64"
301 ;; These aren't needed on the X86 because they're microcoded into the
302 ;; FPU, so the Lisp VOPs can implement them directly without having to
305 ;; Note: There might be some other functions in this category as well.
306 ;; E.g. I notice tanh() and acos() in the list above.. -- WHN 2001-06-07
318 '("ieee_get_fp_control"
319 "ieee_set_fp_control")
320 ;; FIXME: After 1.0 this should be made
321 ;; #!-linkage-table, as we only need these stubs if
322 ;; we don't have linkage-table. Done this way now to
323 ;; cut down on the number of ports affected.
324 #!-(or win32 darwin freebsd netbsd openbsd)
338 #!+os-provides-dladdr
340 #!-sunos ;; !defined(SVR4)
343 (with-open-file (f "src/runtime/ldso-stubs.S" :direction :output :if-exists :supersede)
344 (assert (= (length *preludes*) 2))
345 (dolist (pre *preludes*)
347 (dolist (stub *stubs*)
348 (check-type stub string)
349 (ldso-stubify stub f)))