X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fx86%2Falloc.lisp;h=e52052d51eb88feb14c993320dd5288c0f48a2f9;hb=4413876742e64de8a5925c98d1925ba9e5f75d8d;hp=d011d5d7b2e2825e0c8cc3c91d940c7414dff110;hpb=47153a94d97ab8923fb1fd22ef8f299bcda6e0b8;p=sbcl.git

diff --git a/src/assembly/x86/alloc.lisp b/src/assembly/x86/alloc.lisp
index d011d5d..e52052d 100644
--- a/src/assembly/x86/alloc.lisp
+++ b/src/assembly/x86/alloc.lisp
@@ -83,7 +83,7 @@
 (macrolet ((def (reg)
              (declare (ignorable reg))
              #!+sb-thread
-             (let* ((name (intern (format nil "ALLOCATE-TLS-INDEX-IN-~A" reg)))
+             (let* ((name (intern (format nil "ALLOC-TLS-INDEX-IN-~A" reg)))
                     (target-offset (intern (format nil "~A-OFFSET" reg)))
                     (other-offset (if (eql 'eax reg)
                                       'ecx-offset
@@ -113,7 +113,7 @@
                      (inst jmp :ne release-tls-index-lock)
                      ;; Allocate a new tls-index.
                      (load-symbol-value target *free-tls-index*)
-                     (inst add (make-ea-for-symbol-value *free-tls-index*) 4) ; fixnum + 1
+                     (inst add (make-ea-for-symbol-value *free-tls-index*) (fixnumize 1))
                      (storew target other symbol-tls-index-slot other-pointer-lowtag)
                      (emit-label release-tls-index-lock)
                      (store-symbol-value 0 *tls-index-lock*)