Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo


Diff of /src/compiler/generic/objdef.lisp [f42374] .. [ced29b] Maximize Restore

  Switch to side-by-side view

--- a/src/compiler/generic/objdef.lisp
+++ b/src/compiler/generic/objdef.lisp
@@ -282,7 +282,7 @@
 (define-primitive-object (binding)
-  symbol)
+  symbol) ;; on sb-thread, this is actually a tls-index
 (define-primitive-object (unwind-block)
   (current-uwp :c-type #!-alpha "struct unwind_block *" #!+alpha "u32")
@@ -339,7 +339,9 @@
   (package :ref-trans symbol-package
            :set-trans %set-symbol-package
            :init :null)
-  #!+sb-thread (tls-index :ref-known (flushable) :ref-trans symbol-tls-index))
+  ;; 0 tls-index means no tls-index is allocated
+  #!+sb-thread
+  (tls-index :ref-known (flushable) :ref-trans symbol-tls-index))
 (define-primitive-object (complex-single-float
                           :lowtag other-pointer-lowtag