diff options
| author | Son HO | 2024-04-04 16:09:48 +0200 |
|---|---|---|
| committer | GitHub | 2024-04-04 16:09:48 +0200 |
| commit | 061d7f72bec27de46245afc82149271ca8c75627 (patch) | |
| tree | addd12dec0c1f5a564f9204fda77301771ff5e46 /compiler/Interpreter.ml | |
| parent | 3909a38f3f8c58c9f97d36777c52e02617ef70b4 (diff) | |
| parent | 77208249c717579d1014f27592566069b8cd0eb2 (diff) | |
Merge pull request #106 from AeneasVerif/escherichia/error_catching
Added Error and EError to expressions and propagated related changes
Diffstat (limited to '')
| -rw-r--r-- | compiler/Interpreter.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/Interpreter.ml b/compiler/Interpreter.ml index a65e1663..d0a54750 100644 --- a/compiler/Interpreter.ml +++ b/compiler/Interpreter.ml @@ -612,7 +612,8 @@ let evaluate_function_symbolic (synthesize : bool) (ctx : decls_ctx) (* Evaluate the function *) let symbolic = - eval_function_body config (Option.get fdef.body).body cf_finish ctx + try eval_function_body config (Option.get fdef.body).body cf_finish ctx + with CFailure (meta, msg) -> Some (Error (meta, msg)) in (* Return *) |