diff options
Diffstat (limited to 'src/InterpreterStatements.ml')
-rw-r--r-- | src/InterpreterStatements.ml | 4 |
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 |