Final?

Author: polytypic

bench/bench_atomic.ml

@@ -52,7 +52,7 @@ let run_one (type a) ~budgetf ?(n_iter = 500 * Util.iter_factor) (op : a op) =
               Atomic.get (Sys.opaque_identity loc)
               land Atomic.get (Sys.opaque_identity loc)
             in
-            loop (i - 8 + a - b + c - d)
+            loop (i - 8 + (a - b) + (c - d))
           end
         in
         loop n_iter

bench/bench_ref.ml

@@ -68,7 +68,7 @@ let run_one (type a) ~budgetf ?(n_iter = 500 * Util.iter_factor) (op : a op) =
               Ref.get (Sys.opaque_identity loc)
               land Ref.get (Sys.opaque_identity loc)
             in
-            loop (i - 8 + a - b + c - d)
+            loop (i - 8 + (a - b) + (c - d))
           end
         in
         loop n_iter