From b0d5bc4b16bd0fa98515b21ea526514c43f4a943 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Fri, 14 Jan 2022 12:20:45 +0100
Subject: Fix compilation errors

---
 src/InterpreterBorrows.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/InterpreterBorrows.ml')

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
-- 
cgit v1.2.3