diff options
author | Son HO | 2024-06-05 11:30:42 +0200 |
---|---|---|
committer | GitHub | 2024-06-05 11:30:42 +0200 |
commit | baa0771885546816461e063131162b94c6954d86 (patch) | |
tree | 2f8b8bd9d6ddef3e56d3c840690e94d9322a963a /compiler/InterpreterPaths.ml | |
parent | c708fc2556806abc95cd2ca173a94a5fb49d034d (diff) | |
parent | 967c1aa8bd47e76905baeda5b9d41167af664942 (diff) |
Merge pull request #227 from AeneasVerif/son/clean-synthesis
Remove the use of `Option` from the functions synthesizing the symbolic AST
Diffstat (limited to '')
-rw-r--r-- | compiler/InterpreterPaths.ml | 7 | ||||
-rw-r--r-- | compiler/InterpreterPaths.mli | 2 |
2 files changed, 6 insertions, 3 deletions
diff --git a/compiler/InterpreterPaths.ml b/compiler/InterpreterPaths.ml index b2de3b22..8a924a0a 100644 --- a/compiler/InterpreterPaths.ml +++ b/compiler/InterpreterPaths.ml @@ -525,7 +525,8 @@ let rec update_ctx_along_write_place (config : config) (span : Meta.span) comp cc (update_ctx_along_write_place config span access p ctx) (** Small utility used to break control-flow *) -exception UpdateCtx of (eval_ctx * (eval_result -> eval_result)) +exception + UpdateCtx of (eval_ctx * (SymbolicAst.expression -> SymbolicAst.expression)) let rec end_loans_at_place (config : config) (span : Meta.span) (access : access_kind) (p : place) : cm_fun = @@ -631,7 +632,9 @@ let drop_outer_loans_at_lplace (config : config) (span : Meta.span) (p : place) (ctx, cc) let prepare_lplace (config : config) (span : Meta.span) (p : place) - (ctx : eval_ctx) : typed_value * eval_ctx * (eval_result -> eval_result) = + (ctx : eval_ctx) : + typed_value * eval_ctx * (SymbolicAst.expression -> SymbolicAst.expression) + = log#ldebug (lazy ("prepare_lplace:" ^ "\n- p: " ^ place_to_string ctx p diff --git a/compiler/InterpreterPaths.mli b/compiler/InterpreterPaths.mli index 86f0dcc0..3377f612 100644 --- a/compiler/InterpreterPaths.mli +++ b/compiler/InterpreterPaths.mli @@ -104,4 +104,4 @@ val prepare_lplace : Meta.span -> place -> eval_ctx -> - typed_value * eval_ctx * (eval_result -> eval_result) + typed_value * eval_ctx * (SymbolicAst.expression -> SymbolicAst.expression) |