From: David Lichteblau <david@lichteblau.com>
Date: Wed, 26 Dec 2012 14:39:34 +0000 (+0100)
Subject: Fix attach_thread to allocate a TLS index for *gc-inhibit* if needed
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=bf40ae88bc289fd765a33861cc4bc0853ed483ba;p=sbcl.git

Fix attach_thread to allocate a TLS index for *gc-inhibit* if needed

Instead of occasionally setting a global value for this variable...

Thanks to Stas Boukarev for the bug report.
---

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index 46f8f7d..26f6de6 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -535,7 +535,7 @@ attach_os_thread(init_thread_data *scribble)
      * tempting to just perform such unsafe allocation though.  So let's
      * at least try to suppress GC before consing, and hope that it
      * works: */
-    SetSymbolValue(GC_INHIBIT, T, th);
+    bind_variable(GC_INHIBIT, T, th);
 
     uword_t stacksize
         = (uword_t) th->control_stack_end - (uword_t) th->control_stack_start;