diff options
author | Son Ho | 2022-01-14 12:20:45 +0100 |
---|---|---|
committer | Son Ho | 2022-01-14 12:20:45 +0100 |
commit | b0d5bc4b16bd0fa98515b21ea526514c43f4a943 (patch) | |
tree | 122686b21a2a3e68ee98dee27cd0ba44aaf1feef /src/InterpreterBorrows.ml | |
parent | dfafe05012a46d58168f90fc34baa1bdd1f4b52e (diff) |
Fix compilation errors
Diffstat (limited to '')
-rw-r--r-- | src/InterpreterBorrows.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/InterpreterBorrows.ml b/src/InterpreterBorrows.ml index c4c090e3..029a2f1e 100644 --- a/src/InterpreterBorrows.ml +++ b/src/InterpreterBorrows.ml @@ -746,7 +746,7 @@ let give_back (config : C.config) (l : V.BorrowId.id) (bc : g_borrow_content) a reference whose region has already ended). *) let convert_avalue_to_value (av : V.typed_avalue) : V.typed_value = - mk_fresh_symbolic_typed_value av.V.sv_ty + mk_fresh_symbolic_typed_value av.V.ty (** End a borrow identified by its borrow id in a context @@ -1136,11 +1136,11 @@ and end_abstraction_borrows (config : C.config) (abs_id : V.AbstractionId.id) | FoundAProjBorrows (sv, proj_ty) -> (* Replace the proj_borrows - there should be exactly one *) let ctx = - update_intersecting_aproj_borrows_non_shared regions sv + update_intersecting_aproj_borrows_non_shared abs.regions sv V.AEndedProjBorrows ctx in (* Give back a fresh symbolic value *) - let nsv = mk_fresh_symbolic_typed_value proj_ty in + let nsv = mk_fresh_symbolic_value proj_ty in let ctx = give_back_symbolic_value config sv nsv ctx in (* Reexplore *) end_abstraction_borrows config abs_id ctx |