summaryrefslogtreecommitdiff
path: root/src/Interpreter.ml
diff options
context:
space:
mode:
authorSon Ho2022-01-14 11:56:28 +0100
committerSon Ho2022-01-14 11:56:28 +0100
commit5b9e24c7ddcd53bc5c1a71a6efb6eecff757e151 (patch)
tree55c66f8d64928a3bb7fd141b3e8cfacbe9708f44 /src/Interpreter.ml
parente6ee5e6fda235e71283c6cccecbfc631457cc949 (diff)
Update aproj to make AEndedProjLoans take an `aproj option` and add the
AIgnoredProjBorrows variant
Diffstat (limited to '')
-rw-r--r--src/Interpreter.ml4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Interpreter.ml b/src/Interpreter.ml
index d85c4bf8..ae5376f9 100644
--- a/src/Interpreter.ml
+++ b/src/Interpreter.ml
@@ -78,7 +78,9 @@ module Test = struct
let insert_abs (ctx : C.eval_ctx) (abs : V.abs) : C.eval_ctx =
(* Project over the values - we use *loan* projectors, as explained above *)
let avalues =
- List.map (mk_aproj_loans_from_symbolic_value abs.regions) input_svs
+ List.map
+ (mk_aproj_loans_value_from_symbolic_value abs.regions)
+ input_svs
in
(* Insert the avalues in the abstraction *)
let abs = { abs with avalues } in