simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-08 04:05:41 -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-12 11:33:09 -05:00
parent b32bf3ea3c
commit 41b73462dd
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/task_local_storage.ml
View file

@ -21,7 +21,7 @@ type ls_value += Dummy
(** Resize array of TLS values *) (** Resize array of TLS values *)
let[@inline never] resize_ (cur : ls_value array ref) n = let[@inline never] resize_ (cur : ls_value array ref) n =
let len = Array.length !cur in let len = Array.length !cur in
let new_ls = Array.make (max n (len * 2)) Dummy in let new_ls = Array.make (max n ((len * 2) + 2)) Dummy in
Array.blit !cur 0 new_ls 0 len; Array.blit !cur 0 new_ls 0 len;
cur := new_ls cur := new_ls