(inst jmp :ne release-tls-index-lock)
;; Allocate a new tls-index.
(load-symbol-value target *free-tls-index*)
(let ((not-error (gen-label))
(error (generate-error-code nil 'tls-exhausted-error)))
(inst jmp :ne release-tls-index-lock)
;; Allocate a new tls-index.
(load-symbol-value target *free-tls-index*)
(let ((not-error (gen-label))
(error (generate-error-code nil 'tls-exhausted-error)))