From: Alastair Bridgewater <lisphacker@users.sourceforge.net>
Date: Wed, 8 Sep 2010 01:04:41 +0000 (+0000)
Subject: 1.0.42.34: threads: Consolidate thread-specific static symbols
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=46c787a2d562c47d895d33b43de60f0bf6245762;p=sbcl.git

1.0.42.34: threads: Consolidate thread-specific static symbols

  * The x86, x86-64 and ppc backends all had the same three static
symbols used for threading.  Rather than having each backend add
the same symbols to the static symbol list, add them to the list
of common static symbols.  In the unlikely(?) event that we commit
a threaded port to mainline that doesn't use these symbols, we can
revisit this change.
---

diff --git a/src/compiler/generic/parms.lisp b/src/compiler/generic/parms.lisp
index 88471d4..d590aeb 100644
--- a/src/compiler/generic/parms.lisp
+++ b/src/compiler/generic/parms.lisp
@@ -65,6 +65,11 @@
     #!-sb-thread
     *stepping*
 
+    ;; threading support
+    #!+sb-thread *stop-for-gc-pending*
+    #!+sb-thread *free-tls-index*
+    #!+sb-thread *tls-index-lock*
+
     ;; Dispatch tables for generic array access
     sb!impl::*data-vector-reffers*
     sb!impl::*data-vector-setters*
diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp
index f856ae8..f03c325 100644
--- a/src/compiler/ppc/parms.lisp
+++ b/src/compiler/ppc/parms.lisp
@@ -207,11 +207,6 @@
    '(
      #!+gencgc *restart-lisp-function*
 
-     ;; Swiped from x86-64 thread implementation.
-     #!+sb-thread *stop-for-gc-pending*
-     #!+sb-thread *free-tls-index*
-     #!+sb-thread *tls-index-lock*
-
      ;; CLH: 20060210 Taken from x86-64/parms.lisp per JES' suggestion
      ;; Needed for callbacks to work across saving cores. see
      ;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory
diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp
index 9a02977..7d03224 100644
--- a/src/compiler/x86-64/parms.lisp
+++ b/src/compiler/x86-64/parms.lisp
@@ -165,11 +165,6 @@
      ;; interrupt handling
      *pseudo-atomic-bits*
 
-     #!+sb-thread *stop-for-gc-pending*
-
-     #!+sb-thread *free-tls-index*
-     #!+sb-thread *tls-index-lock*
-
      *allocation-pointer*
      *binding-stack-pointer*
 
diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp
index 0f94e7c..44b5050 100644
--- a/src/compiler/x86/parms.lisp
+++ b/src/compiler/x86/parms.lisp
@@ -331,9 +331,6 @@
 
      ;; interrupt handling
      *pseudo-atomic-bits*
-     #!+sb-thread *stop-for-gc-pending*
-     #!+sb-thread *free-tls-index*
-     #!+sb-thread *tls-index-lock*
 
      *allocation-pointer*
      *binding-stack-pointer*
diff --git a/version.lisp-expr b/version.lisp-expr
index 99b1066..d7c84bb 100644
--- 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.42.33"
+"1.0.42.34"