compat < 5.0

src/tef/dune

@@ -3,4 +3,7 @@
   (name trace_tef)
   (public_name trace-tef)
   (synopsis "Simple and lightweight tracing using TEF/Catapult format, in-process")
-  (libraries trace.core mtime mtime.clock.os atomic unix threads))
+  (libraries trace.core mtime mtime.clock.os atomic unix threads
+             (select relax_.ml from
+                     (base-domain -> relax_.real.ml)
+                     ( -> relax_.dummy.ml))))

src/tef/mpsc_queue.ml

@@ -18,7 +18,7 @@ module Backoff = struct
   let once (b : t) : t =
     let actual_b = b + Random.int 4 in
     for _i = 1 to actual_b do
-      Domain.cpu_relax ()
+      Relax_.cpu_relax ()
     done;
     min (b * 2) 256
 end

src/tef/relax_.dummy.ml

@@ -0,0 +1 @@
+let cpu_relax () = ()

src/tef/relax_.real.ml

@@ -0,0 +1 @@
+let cpu_relax = Domain.cpu_relax