Add a memory barrier inside pseudo-atomic on PPC.

Solves problems with allocation and multiple threads.

diff --git a/src/compiler/ppc/macros.lisp b/src/compiler/ppc/macros.lisp
index 645c566..1905a7f 100644 (file)
--- 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.