projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove a style-warning from sb-bsd-sockets.asd when #-sb-testing-contrib.
[sbcl.git]
/
src
/
compiler
/
x86
/
call.lisp
diff --git
a/src/compiler/x86/call.lisp
b/src/compiler/x86/call.lisp
index
d9fdc1a
..
a8e09c6
100644
(file)
--- a/
src/compiler/x86/call.lisp
+++ b/
src/compiler/x86/call.lisp
@@
-1465,10
+1465,12
@@
;; register on -SB-THREAD.
#!+sb-thread
(progn
;; 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))
: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))
#!-sb-thread
(inst cmp (make-ea-for-symbol-value sb!impl::*stepping*)
nil-value))