summaryrefslogtreecommitdiff
path: root/src/InterpreterStatements.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/InterpreterStatements.ml
parente6ee5e6fda235e71283c6cccecbfc631457cc949 (diff)
Update aproj to make AEndedProjLoans take an `aproj option` and add the
AIgnoredProjBorrows variant
Diffstat (limited to 'src/InterpreterStatements.ml')
-rw-r--r--src/InterpreterStatements.ml4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/InterpreterStatements.ml b/src/InterpreterStatements.ml
index 3eb7322b..d13dc515 100644
--- a/src/InterpreterStatements.ml
+++ b/src/InterpreterStatements.ml
@@ -883,7 +883,9 @@ and eval_function_call_symbolic_from_inst_sig (config : C.config)
let ret_sv_ty = inst_sg.A.output in
let ret_spc = mk_fresh_symbolic_value ret_sv_ty in
let ret_value = mk_typed_value_from_symbolic_value ret_spc in
- let ret_av regions = mk_aproj_loans_from_symbolic_value regions ret_spc in
+ let ret_av regions =
+ mk_aproj_loans_value_from_symbolic_value regions ret_spc
+ in
(* Evaluate the input operands *)
let ctx, args = eval_operands config ctx args in
let args_with_rtypes = List.combine args inst_sg.A.inputs in