projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't consider an interpreted->compiled function change interesting
[sbcl.git]
/
src
/
compiler
/
generic
/
objdef.lisp
diff --git
a/src/compiler/generic/objdef.lisp
b/src/compiler/generic/objdef.lisp
index
c242a4d
..
ad0b2c9
100644
(file)
--- a/
src/compiler/generic/objdef.lisp
+++ b/
src/compiler/generic/objdef.lisp
@@
-282,7
+282,7
@@
(define-primitive-object (binding)
value
(define-primitive-object (binding)
value
- 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")
(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)
(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
(define-primitive-object (complex-single-float
:lowtag other-pointer-lowtag