X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fthread.c;h=98a897cf3a394d2ac31c0562ef61633aa04283ba;hb=d4d6c4b16a3655ce99a87d43f411391363531260;hp=ef73bafb0f9faec5816a495b05ae85fe78062ef1;hpb=47cef18a20fc96975436432bfd167be8c13407ef;p=sbcl.git

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index ef73baf..98a897c 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -38,15 +38,13 @@ extern struct interrupt_data * global_interrupt_data;
 extern int linux_no_threads_p;
 
 #ifdef LISP_FEATURE_SB_THREAD
-
 pthread_mutex_t all_threads_lock = PTHREAD_MUTEX_INITIALIZER;
+#endif
 
 #if defined(LISP_FEATURE_X86) || defined(LISP_FEATURE_X86_64)
 extern lispobj call_into_lisp_first_time(lispobj fun, lispobj *args, int nargs);
 #endif
 
-#endif
-
 static void
 link_thread(struct thread *th)
 {
@@ -213,6 +211,7 @@ create_thread_struct(lispobj initial_function) {
         if(SymbolValue(FREE_TLS_INDEX,0)==UNBOUND_MARKER_WIDETAG) {
             SetSymbolValue
                 (FREE_TLS_INDEX,
+                 /* FIXME: should be MAX_INTERRUPTS -1 ? */
                  make_fixnum(MAX_INTERRUPTS+
                              sizeof(struct thread)/sizeof(lispobj)),
                  0);