X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fthread.c;h=5b8ec4ac475f9b4c8ed26a6f38fa97ee411423af;hb=9a19ce460a70a6c1de36095b3e2621116b91cc80;hp=650d5151059a96a753c0aa1db7695df3fc486666;hpb=134fa6b3f7c5f4bb0652e74227d940a9e7a83563;p=sbcl.git

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index 650d515..5b8ec4a 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -91,6 +91,9 @@ pthread_mutex_t all_threads_lock = PTHREAD_MUTEX_INITIALIZER;
 #ifdef LOCK_CREATE_THREAD
 static pthread_mutex_t create_thread_lock = PTHREAD_MUTEX_INITIALIZER;
 #endif
+#ifdef LISP_FEATURE_GCC_TLS
+__thread struct thread *current_thread;
+#endif
 #endif
 
 #if defined(LISP_FEATURE_X86) || defined(LISP_FEATURE_X86_64)