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

fix in task local storage

Browse source
This commit is contained in:
Simon Cruanes 2024-02-07 23:06:50 -05:00
parent 3c8bb7d5e8
commit b32bf3ea3c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/core/task_local_storage.ml
View file

@ -44,8 +44,9 @@ let get (type a) ((module K) : a key) : a =
let set (type a) ((module K) : a key) (v : a) : unit = let set (type a) ((module K) : a key) (v : a) : unit =
let cur = get_cur_ () in let cur = get_cur_ () in
if K.offset >= Array.length !cur then resize_ cur K.offset; if K.offset >= Array.length !cur then resize_ cur (K.offset + 1);
!cur.(K.offset) <- K.V v !cur.(K.offset) <- K.V v;
()
let with_value key x f = let with_value key x f =
let old = get key in let old = get key in