Lines Matching refs:oldroot
43 let test_coalesce oldroot currentroot optpath =
47 let oldnode = Store.Path.get_node oldroot path
53 check_parents_perms_identical oldroot currentroot path
68 let can_coalesce oldroot currentroot path =
70 try test_coalesce oldroot currentroot path with _ -> false
85 oldroot: Store.Node.t; RecordField
127 oldroot = Store.get_root store;
204 let commit_partial oldroot cstore store =
207 if can_coalesce oldroot (Store.get_root cstore) t.read_lowpath
208 && can_coalesce oldroot (Store.get_root cstore) t.write_lowpath then (
230 let try_commit oldroot cstore store =
231 if oldroot == Store.get_root cstore then (
232 (* move the new root to the current store, if the oldroot
241 commit_partial oldroot cstore store