simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-10 13:14:05 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

compat 4.08

Browse source
This commit is contained in:
Simon Cruanes 2023-10-27 16:17:56 -04:00
parent bfcf7f774e
commit 052b70027a
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/thread_local_storage.real.ml
View file

@ -1,5 +1,7 @@
(* see: https://discuss.ocaml.org/t/a-hack-to-implement-efficient-tls-thread-local-storage/13264 *) (* see: https://discuss.ocaml.org/t/a-hack-to-implement-efficient-tls-thread-local-storage/13264 *)
module A = Atomic_
(* sanity check *) (* sanity check *)
let () = assert (Obj.field (Obj.repr (Thread.self ())) 1 = Obj.repr ()) let () = assert (Obj.field (Obj.repr (Thread.self ())) 1 = Obj.repr ())
@ -11,13 +13,13 @@ type 'a key = {
} }
(** Counter used to allocate new keys *) (** Counter used to allocate new keys *)
let counter = Atomic.make 0 let counter = A.make 0
(** Value used to detect a TLS slot that was not initialized yet *) (** Value used to detect a TLS slot that was not initialized yet *)
let[@inline] sentinel_value_for_uninit_tls_ () : Obj.t = Obj.repr counter let[@inline] sentinel_value_for_uninit_tls_ () : Obj.t = Obj.repr counter
let new_key compute : _ key = let new_key compute : _ key =
let index = Atomic.fetch_and_add counter 1 in let index = A.fetch_and_add counter 1 in
{ index; compute } { index; compute }
type thread_internal_state = { type thread_internal_state = {