diff options
| author | Son HO | 2024-03-29 18:02:40 +0100 |
|---|---|---|
| committer | GitHub | 2024-03-29 18:02:40 +0100 |
| commit | f4a89caad1459f2f72295c5baa284fe1f9b4c39f (patch) | |
| tree | 70237cbc5ff7e0868c9b6918cae21f9bc8ba6272 /compiler/InterpreterLoopsMatchCtxs.mli | |
| parent | bfcec191f68a4cbfab14f5b92a8d6a46d6b02539 (diff) | |
| parent | 1a86cac476c1f5c0d64d5a12db267d3ac651561b (diff) | |
Merge pull request #95 from AeneasVerif/escherichia/errors
Escherichia/errors
Diffstat (limited to '')
| -rw-r--r-- | compiler/InterpreterLoopsMatchCtxs.mli | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/InterpreterLoopsMatchCtxs.mli b/compiler/InterpreterLoopsMatchCtxs.mli index d6f89ed6..a8002ad4 100644 --- a/compiler/InterpreterLoopsMatchCtxs.mli +++ b/compiler/InterpreterLoopsMatchCtxs.mli @@ -19,7 +19,7 @@ open InterpreterLoopsCore - [env] *) val compute_abs_borrows_loans_maps : - bool -> (abs -> bool) -> env -> abs_borrows_loans_maps + Meta.meta -> bool -> (abs -> bool) -> env -> abs_borrows_loans_maps (** Generic functor to implement matching functions between values, environments, etc. @@ -91,6 +91,7 @@ module MakeCheckEquivMatcher : functor (_ : MatchCheckEquivState) -> We return an optional ids map: [Some] if the match succeeded, [None] otherwise. *) val match_ctxs : + Meta.meta -> bool -> ids_sets -> (loan_id -> typed_value) -> @@ -135,7 +136,7 @@ val match_ctxs : - [ctx0] - [ctx1] *) -val ctxs_are_equivalent : ids_sets -> eval_ctx -> eval_ctx -> bool +val ctxs_are_equivalent : Meta.meta -> ids_sets -> eval_ctx -> eval_ctx -> bool (** Reorganize a target context so that we can match it with a source context (remember that the source context is generally the fixed point context, @@ -150,7 +151,7 @@ val ctxs_are_equivalent : ids_sets -> eval_ctx -> eval_ctx -> bool *) val prepare_match_ctx_with_target : - config -> LoopId.id -> ids_sets -> eval_ctx -> cm_fun + config -> Meta.meta -> LoopId.id -> ids_sets -> eval_ctx -> cm_fun (** Match a context with a target context. @@ -300,6 +301,7 @@ val prepare_match_ctx_with_target : *) val match_ctx_with_target : config -> + Meta.meta -> loop_id -> bool -> borrow_loan_corresp -> |