projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.16.34: Remove global STACK-ALLOCATE-VALUE-CELLS proclamation in make-host-2.lisp
[sbcl.git]
/
src
/
assembly
/
x86-64
/
alloc.lisp
diff --git
a/src/assembly/x86-64/alloc.lisp
b/src/assembly/x86-64/alloc.lisp
index
ba27b1b
..
68a8ce3
100644
(file)
--- a/
src/assembly/x86-64/alloc.lisp
+++ b/
src/assembly/x86-64/alloc.lisp
@@
-106,7
+106,7
@@
(inst jmp :ne release-tls-index-lock)
;; Allocate a new tls-index.
(load-symbol-value target *free-tls-index*)
(inst jmp :ne release-tls-index-lock)
;; Allocate a new tls-index.
(load-symbol-value target *free-tls-index*)
- (let ((error (generate-error-code nil tls-exhausted-error)))
+ (let ((error (generate-error-code nil 'tls-exhausted-error)))
(inst cmp target (fixnumize tls-size))
(inst jmp :ge error))
(inst add (make-ea-for-symbol-value *free-tls-index*)
(inst cmp target (fixnumize tls-size))
(inst jmp :ge error))
(inst add (make-ea-for-symbol-value *free-tls-index*)