X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fmacros.lisp;h=1905a7f449377f992cef6f7357c3cc1a7311c0d0;hb=9304704f68a18894fa8eb985b387465e5d25e1d5;hp=645c566cc093cba600394ffd82b4c4f2ce0848dd;hpb=427da7910cc5d8398f19def9a02f3fa13c798c25;p=sbcl.git

diff --git a/src/compiler/ppc/macros.lisp b/src/compiler/ppc/macros.lisp
index 645c566..1905a7f 100644
--- a/src/compiler/ppc/macros.lisp
+++ b/src/compiler/ppc/macros.lisp
@@ -354,6 +354,7 @@
          (inst twi :ne ,flag-tn 0))
        (inst ori alloc-tn alloc-tn pseudo-atomic-flag))
      ,@forms
+     (inst sync)
      (without-scheduling ()
        (inst subi alloc-tn alloc-tn pseudo-atomic-flag)
        ;; Now test to see if the pseudo-atomic interrupted bit is set.