X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fundefineds.h;h=2ad75cec5d0c75a698a398f9e122e97ddf01266a;hb=89823a09e0dd2869f7fea351d887f75e70548ea7;hp=503ac31298fd1b619dadb38fdd5e42a2baf3e84c;hpb=fdf07da187cb31fd5bdd872c73245fd72877b1a1;p=sbcl.git

diff --git a/src/runtime/undefineds.h b/src/runtime/undefineds.h
index 503ac31..2ad75ce 100644
--- a/src/runtime/undefineds.h
+++ b/src/runtime/undefineds.h
@@ -1,5 +1,21 @@
 /*
  * routines that must be linked into the core for Lisp to work
+ *
+ * but note this is only the BSD version, as per the FIXME
+ *
+ * FIXME: It's tedious and error-prone having to edit both this file and
+ * the analogous ldso-stubs.S file when we change the references to
+ * functions, enough so that it would probably be good to rewrite
+ * both files in terms of a shared list of function names.
+ * E.g. the function names could be in shared-function-names.h
+ *   SHARED_FUNCTION(cos)
+ *   SHARED_FUNCTION(sinh)
+ *   SHARED_FUNCTION(strlen)
+ * etc. and the per-OS files could look like
+ *   #define SHARED_FUNCTION(f) ....  
+ *   #include "shared-function-names.h"
+ *   ...then going on to do OS-specific things
+ * "Once and only once."
  */
 
 /*
@@ -12,7 +28,7 @@
  * provided with absolutely no warranty. See the COPYING and CREDITS
  * files for more information.
  */
-
+   
 /* Pick up all the syscalls. */
 F(accept)
 F(access)
@@ -56,9 +72,6 @@ F(getegid)
 F(geteuid)
 F(getgid)
 F(getgroups)
-#if !defined (SOLARIS) || defined(SOLARIS25)
-F(gethostid)
-#endif
 F(gethostname)
 F(getitimer)
 #if !defined(hpux) && !defined(SVR4) || defined(SOLARIS25)
@@ -125,6 +138,7 @@ F(sethostname)
 #endif
 F(setitimer)
 F(setpgrp)
+F(setsid)
 #if !defined(SVR4) ||  defined(SOLARIS25)
 F(setpriority)
 #endif
@@ -132,15 +146,13 @@ F(setrlimit)
 F(setsockopt)
 F(settimeofday)
 F(shutdown)
-#ifndef SVR4
-F(sigblock)
-#endif
-F(sigpause)
-#if !defined(ibmrt) && !defined(hpux) && !defined(SVR4) && !defined(__i386__)
+#if !defined(hpux) && !defined(SVR4) && !defined(LISP_FEATURE_X86)
 F(sigreturn)
 #endif
-#if !defined(SVR4) && !defined(__FreeBSD__) && !defined(__OpenBSD__)
+#if !defined(SVR4)
 F(sigsetmask)
+#endif
+#if !defined(SVR4) && !defined(__FreeBSD__) && !defined(__OpenBSD__)
 F(sigstack)
 F(sigvec)
 #endif
@@ -153,7 +165,7 @@ F(swapon)
 F(symlink)
 F(sync)
 F(syscall)
-#if defined(hpux) || defined(SVR4) || defined(linux)
+#if defined(hpux) || defined(SVR4) || defined(__linux__)
 F(closedir)
 F(opendir)
 #if defined(readdir)
@@ -229,11 +241,14 @@ F(pow)
 #ifndef hpux
 F(cbrt)
 #endif
-#ifndef __i386__
+#ifndef LISP_FEATURE_X86
 F(sqrt)
 #endif
 F(hypot)
 
+/* string things */
+F(strlen)
+
 /* network support */
 F(gethostbyname)
 F(gethostbyaddr)