1.0.15.17: better threaded BIND & UNBIND for x86-64

[sbcl.git] / src / compiler / x86 / cell.lisp

diff --git a/src/compiler/x86/cell.lisp b/src/compiler/x86/cell.lisp
index bf2a1ac..08862bf 100644 (file)
--- a/src/compiler/x86/cell.lisp
+++ b/src/compiler/x86/cell.lisp
@@ -323,12 +323,12 @@
       (inst mov tls-index symbol)
       (inst call (make-fixup
                   (ecase (tn-offset tls-index)
-                    (#.eax-offset 'allocate-tls-index-in-eax)
-                    (#.ebx-offset 'allocate-tls-index-in-ebx)
-                    (#.ecx-offset 'allocate-tls-index-in-ecx)
-                    (#.edx-offset 'allocate-tls-index-in-edx)
-                    (#.edi-offset 'allocate-tls-index-in-edi)
-                    (#.esi-offset 'allocate-tls-index-in-esi))
+                    (#.eax-offset 'alloc-tls-index-in-eax)
+                    (#.ebx-offset 'alloc-tls-index-in-ebx)
+                    (#.ecx-offset 'alloc-tls-index-in-ecx)
+                    (#.edx-offset 'alloc-tls-index-in-edx)
+                    (#.edi-offset 'alloc-tls-index-in-edi)
+                    (#.esi-offset 'alloc-tls-index-in-esi))
                   :assembly-routine))
       (emit-label tls-index-valid)
       (inst fs-segment-prefix)