Port to x86-64 versions of Windows

[sbcl.git] / src / compiler / x86-64 / macros.lisp

diff --git a/src/compiler/x86-64/macros.lisp b/src/compiler/x86-64/macros.lisp
index 98337e1..11a06fc 100644 (file)
--- a/src/compiler/x86-64/macros.lisp
+++ b/src/compiler/x86-64/macros.lisp
@@ -303,6 +303,9 @@
 
 #!+sb-thread
 (defmacro pseudo-atomic (&rest forms)
+  #!+win32
+  `(progn ,@forms (emit-safepoint))
+  #!-win32
   (with-unique-names (label)
     `(let ((,label (gen-label)))
        (inst mov (make-ea :qword