diff options
| author | Son HO | 2023-12-23 01:46:58 +0100 |
|---|---|---|
| committer | GitHub | 2023-12-23 01:46:58 +0100 |
| commit | 15a7d7b7322a1cd0ebeb328fde214060e23fa8b4 (patch) | |
| tree | 6cce7d76969870f5bc18c5a7cd585e8873a1c0dc /compiler/InterpreterExpressions.ml | |
| parent | c3e0b90e422cbd902ee6d2b47073940c0017b7fb (diff) | |
| parent | 63ccbd914d5d44aa30dee38a6fcc019310ab640b (diff) | |
Merge pull request #64 from AeneasVerif/son/merge_back
Merge the forward/backward functions
Diffstat (limited to '')
| -rw-r--r-- | compiler/InterpreterExpressions.ml | 5 | ||||
| -rw-r--r-- | compiler/InterpreterExpressions.mli | 2 |
2 files changed, 3 insertions, 4 deletions
diff --git a/compiler/InterpreterExpressions.ml b/compiler/InterpreterExpressions.ml index 1b5b79dd..8536b4ab 100644 --- a/compiler/InterpreterExpressions.ml +++ b/compiler/InterpreterExpressions.ml @@ -32,8 +32,7 @@ let expand_primitively_copyable_at_place (config : config) fun cf ctx -> let v = read_place access p ctx in match - find_first_primitively_copyable_sv_with_borrows - ctx.type_context.type_infos v + find_first_primitively_copyable_sv_with_borrows ctx.type_ctx.type_infos v with | None -> cf ctx | Some sv -> @@ -351,7 +350,7 @@ let eval_operand_no_reorganize (config : config) (op : operand) assert ( Option.is_none (find_first_primitively_copyable_sv_with_borrows - ctx.type_context.type_infos v)); + ctx.type_ctx.type_infos v)); (* Actually perform the copy *) let allow_adt_copy = false in let ctx, v = copy_value allow_adt_copy config ctx v in diff --git a/compiler/InterpreterExpressions.mli b/compiler/InterpreterExpressions.mli index f8d979f4..b975371c 100644 --- a/compiler/InterpreterExpressions.mli +++ b/compiler/InterpreterExpressions.mli @@ -52,7 +52,7 @@ val eval_operands : Transmits the computed rvalue to the received continuation. - Note that this function fails on {!constructor:Aeneas.Expressions.rvalue.Discriminant}: discriminant + Note that this function fails on {!Aeneas.Expressions.rvalue.Discriminant}: discriminant reads should have been eliminated from the AST. *) val eval_rvalue_not_global : |