#!+(and darwin ppc) "
#define LDSO_STUBIFY(fct) @\\
.text @\\
-.globl ldso_stub__ ## fct @\\
-ldso_stub__ ## fct: @\\
- b ldso_stub__ ## fct ## stub @\\
-.symbol_stub ldso_stub__ ## fct ## stub: @\\
+.globl _ldso_stub__ ## fct @\\
+_ldso_stub__ ## fct: @\\
+ b _ldso_stub__ ## fct ## stub @\\
+.symbol_stub _ldso_stub__ ## fct ## stub: @\\
.indirect_symbol _ ## fct @\\
- lis r11,ha16(ldso_stub__ ## fct ## $lazy_ptr) @\\
- lwz r12,lo16(ldso_stub__ ## fct ## $lazy_ptr)(r11) @\\
+ lis r11,ha16(_ldso_stub__ ## fct ## $lazy_ptr) @\\
+ lwz r12,lo16(_ldso_stub__ ## fct ## $lazy_ptr)(r11) @\\
mtctr r12 @\\
- addi r11,r11,lo16(ldso_stub__ ## fct ## $lazy_ptr) @\\
+ addi r11,r11,lo16(_ldso_stub__ ## fct ## $lazy_ptr) @\\
bctr @\\
.lazy_symbol_pointer @\\
-ldso_stub__ ## fct ## $lazy_ptr: @\\
+_ldso_stub__ ## fct ## $lazy_ptr: @\\
.indirect_symbol _ ## fct @\\
.long dyld_stub_binding_helper"
.size ldso_stub__ ## fct,.-ldso_stub__ ## fct ;"))
(defvar *stubs* (append
- '("accept"
+ '("_exit"
+ "accept"
"access"
"acos"
"acosh"
"open"
"opendir"
"pipe"
+ "poll"
"pow"
"read"
"readdir"
"unlink"
"utimes"
"wait3"
+ "waitpid"
"write")
;; These aren't needed on the X86 because they're microcoded into the
;; FPU, so the Lisp VOPs can implement them directly without having to
"unlockpt")
#!+openbsd
'("openpty")
- #!-dlshim
'("dlclose"
"dlerror"
"dlopen"
"dlsym")
#!+bsd
'("sysctl")
+ #!+darwin
+ '("sysctlbyname")
#!+os-provides-dladdr
'("dladdr")
#!-sunos ;; !defined(SVR4)