X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fthread.c;h=42a8b0729d90ce124c781e9f43a930fe451f176a;hb=add57c72c932fbf70c8ba8297154936c908b410e;hp=e4e5664d7784325ddf207023996ff4dd01e10437;hpb=bb93c9001110f38e28af43012e2c4bdda871b630;p=sbcl.git

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index e4e5664..42a8b07 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -1,5 +1,6 @@
 #include <stdlib.h>
 #include <stdio.h>
+#include <string.h>
 #include <sched.h>
 #include <signal.h>
 #include <stddef.h>
@@ -47,6 +48,7 @@ initial_thread_trampoline(struct thread *th)
  * whatever other bookkeeping needs to be done
  */
 
+#ifdef LISP_FEATURE_SB_THREAD
 int
 new_thread_trampoline(struct thread *th)
 {
@@ -61,6 +63,7 @@ new_thread_trampoline(struct thread *th)
     th->state=STATE_RUNNING;
     return funcall0(function);
 }
+#endif /* LISP_FEATURE_SB_THREAD */
 
 /* this is called from any other thread to create the new one, and
  * initialize all parts of it that can be initialized from another 
@@ -203,7 +206,7 @@ void link_thread(struct thread *th,pid_t kid_pid)
     th->pid=kid_pid;		/* child will not start until this is set */
 }
 
-pid_t create_initial_thread(lispobj initial_function) {
+void create_initial_thread(lispobj initial_function) {
     struct thread *th=create_thread_struct(initial_function);
     pid_t kid_pid=getpid();
     if(th && kid_pid>0) {
@@ -212,7 +215,7 @@ pid_t create_initial_thread(lispobj initial_function) {
     } else lose("can't create initial thread");
 }
 
-#ifdef LISP_FEATURE_LINUX
+#ifdef LISP_FEATURE_SB_THREAD
 pid_t create_thread(lispobj initial_function) {
     struct thread *th=create_thread_struct(initial_function);
     pid_t kid_pid=clone(new_thread_trampoline,