simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-09 12:23:32 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

compat with older OCaml

Browse source
This commit is contained in:
Simon Cruanes 2025-12-11 15:49:52 -05:00
parent 0d34f9de4d
commit 9e1165918a
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/util/util_atomic.ml
View file

@ -13,5 +13,6 @@ let update_cas (type res) (self : 'a Atomic.t) (f : 'a -> res * 'a) : res =
Opentelemetry_domain.relax_loop !backoff; Opentelemetry_domain.relax_loop !backoff;
backoff := min 128 (2 * !backoff) backoff := min 128 (2 * !backoff)
done done;
assert false
with Ret r -> r with Ret r -> r