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 str)
26 (format str "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 str)
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)))
45 (defvar *preludes* '("
46 /* This is an automatically generated file, please do not hand-edit it.
47 * See the program tools-for-build/ldso-stubs.lisp. */
49 #define LANGUAGE_ASSEMBLY
53 #ifdef LISP_FEATURE_SPARC
54 #include \"sparc-funcdef.h\"
59 #define LDSO_STUBIFY(fct) \\
61 .globl ldso_stub__ ## fct ; \\
62 .type ldso_stub__ ## fct,@function ; \\
63 ldso_stub__ ## fct: ; \\
66 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
68 ;;; osf1 has ancient cpp that doesn't do ##
70 #define LDSO_STUBIFY(fct) \\
71 .globl ldso_stub__/**/fct ; \\
72 ldso_stub__/**/fct: ; \\
76 ;;; but there's no reason we need to put up with that on modern (Linux) OSes
77 #!+(and linux alpha) "
78 #define LDSO_STUBIFY(fct) \\
79 .globl ldso_stub__ ## fct ; \\
80 .type ldso_stub__ ## fct,@function ; \\
81 ldso_stub__ ## fct: ; \\
84 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
87 #define LDSO_STUBIFY(fct) \\
88 .globl ldso_stub__ ## fct ; \\
89 .type ldso_stub__ ## fct,@function ; \\
90 ldso_stub__ ## fct: ; \\
93 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
96 #define LDSO_STUBIFY(fct) @\\
98 .globl ldso_stub___ ## fct @\\
99 ldso_stub___ ## fct: @\\
100 b ldso_stub__ ## fct ## stub @\\
101 .symbol_stub ldso_stub__ ## fct ## stub: @\\
102 .indirect_symbol _ ## fct @\\
103 lis r11,ha16(ldso_stub__ ## fct ## $lazy_ptr) @\\
104 lwz r12,lo16(ldso_stub__ ## fct ## $lazy_ptr)(r11) @\\
106 addi r11,r11,lo16(ldso_stub__ ## fct ## $lazy_ptr) @\\
108 .lazy_symbol_pointer @\\
109 ldso_stub__ ## fct ## $lazy_ptr: @\\
110 .indirect_symbol _ ## fct @\\
111 .long dyld_stub_binding_helper"
113 ;;; KLUDGE: set up the vital fifth argument, passed on the
114 ;;; stack. Do this unconditionally, even if the stub is for a
115 ;;; function with few arguments: it can't hurt. We only do this for
116 ;;; the fifth argument, as the first four are passed in registers
117 ;;; and we apparently don't ever need to pass six arguments to a
118 ;;; libc function. -- CSR, 2003-10-29
120 #define LDSO_STUBIFY(fct) \\
121 .globl ldso_stub__ ## fct ; \\
122 .type ldso_stub__ ## fct,@function ; \\
123 ldso_stub__ ## fct: ; \\
135 .L ## fct ## e1: ; \\
136 .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"))
138 (defvar *stubs* (append
237 ;; These aren't needed on the X86 because they're microcoded into the
238 ;; FPU, so the Lisp VOPs can implement them directly without having to
241 ;; Note: There might be some other functions in this category as well.
242 ;; E.g. I notice tanh() and acos() in the list above.. -- WHN 2001-06-07
254 '("ieee_get_fp_control"
255 "ieee_set_fp_control")
261 #!-(and sparc sunos) ;; !defined(SVR4)
264 (with-open-file (f "src/runtime/ldso-stubs.S" :direction :output :if-exists :supersede)
265 (assert (= (length *preludes*) 2))
266 (dolist (pre *preludes*)
268 (dolist (stub *stubs*)
269 (check-type stub string)
270 (ldso-stubify stub f)))