X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fcall.lisp;h=a8e09c650dd80e888685f56a0cc9c0948a1887d2;hb=bcd323c39d6f5f80020ba4a5d9eb8d348c6cc499;hp=d9fdc1ab4476569ba6016c4967fc1ea230376659;hpb=baf305daad8902018301fad1900369c0008fc745;p=sbcl.git

diff --git a/src/compiler/x86/call.lisp b/src/compiler/x86/call.lisp
index d9fdc1a..a8e09c6 100644
--- a/src/compiler/x86/call.lisp
+++ b/src/compiler/x86/call.lisp
@@ -1465,10 +1465,12 @@
   ;; register on -SB-THREAD.
   #!+sb-thread
   (progn
-    (with-tls-ea (EA :base :unused
+    #!+win32 (inst push eax-tn)
+    (with-tls-ea (EA :base #!+win32 eax-tn #!-win32 :unused
                      :disp-type :constant
                      :disp (* thread-stepping-slot n-word-bytes))
-      (inst cmp EA nil-value :maybe-fs)))
+      (inst cmp EA nil-value :maybe-fs))
+    #!+win32 (inst pop eax-tn))
   #!-sb-thread
   (inst cmp (make-ea-for-symbol-value sb!impl::*stepping*)
         nil-value))