1.0.41.9: threads: Don't set static tls for non-static symbols.

  * *binding-stack-pointer* and *alien-stack* are only static
symbols on x86oids.  Conditional-compile their static tls init
forms out based on their existence (in case they are removed
from one of the x86oids or introduced to some other target).

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index 53ae855..862e9f8 100644 (file)
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -396,10 +396,14 @@ create_thread_struct(lispobj initial_function) {
   make_fixnum(THREAD_SLOT_OFFSET_WORDS(field))
 
         STATIC_TLS_INIT(BINDING_STACK_START,binding_stack_start);
+#ifdef BINDING_STACK_POINTER
         STATIC_TLS_INIT(BINDING_STACK_POINTER,binding_stack_pointer);
+#endif
         STATIC_TLS_INIT(CONTROL_STACK_START,control_stack_start);
         STATIC_TLS_INIT(CONTROL_STACK_END,control_stack_end);
+#ifdef ALIEN_STACK
         STATIC_TLS_INIT(ALIEN_STACK,alien_stack_pointer);
+#endif
 #if defined(LISP_FEATURE_X86) || defined (LISP_FEATURE_X86_64)
         STATIC_TLS_INIT(PSEUDO_ATOMIC_BITS,pseudo_atomic_bits);
 #endif

diff --git a/version.lisp-expr b/version.lisp-expr
index b98da0b..8a4f640 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.41.8"
+"1.0.41.9"