Chez Scheme: fix a test for weak memory ordering

2020-12-06 06:42:21 -07:00 · 2020-12-06 06:42:21 -07:00 · a2a456cd2d
commit a2a456cd2d
parent 5cedca2183
1 changed files with 2 additions and 0 deletions
--- a/racket/src/ChezScheme/mats/thread.ms
+++ b/racket/src/ChezScheme/mats/thread.ms
@ -1438,7 +1438,9 @@
                  (if (odd? i)
                      (let loop () (unless (ftype-lock! A (y) a) (printf "waiting\n") (loop)))
                      (ftype-spin-lock! A (y) a))
+                  (memory-order-acquire)
                  (ftype-set! A (x) a ((if (odd? n) + -) (ftype-ref A (x) a) 1.0))
+                  (memory-order-release)
                  (ftype-unlock! A (y) a))))))
        (let loop ()
          (if (equal? (length ls) n)