robur/git-kv
4
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

Refactor test/dune and add a failing test #2

Merged
reynir merged 12 commits from batch-test into main 2024-10-29 11:21:16 +00:00
Conversation 15 Commits 12 Files changed 8 +5 -1
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 9afb8e29e2 - Show all commits

6
src/git_kv.ml
View file

@ -679,7 +679,11 @@ module Make (Pclock : Mirage_clock.PCLOCK) = struct
| None -> | None ->
(* XXX(dinosaure): serialize [change_and_push]. If we do (* XXX(dinosaure): serialize [change_and_push]. If we do
[Lwt.both (change_and_push ..) (change_and_push ..)], they can not run [Lwt.both (change_and_push ..) (change_and_push ..)], they can not run
concurrently! The second will waiting the first to finish. *) concurrently! The second will waiting the first to finish.
(reynir): Furthermore, we need to create a new task and update
[change_and_push_waiter] before we wait on the existing
[change_and_push_waiter] task without any yield point in between to
ensure serializability. *)
let th, wk = Lwt.wait () in let th, wk = Lwt.wait () in
let th' = t.change_and_push_waiter in let th' = t.change_and_push_waiter in
t.change_and_push_waiter <- Some th; t.change_and_push_waiter <- Some th;