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/PureUtils.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/PureUtils.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/PureUtils.ml b/compiler/PureUtils.ml index 6f44bb74..1bef43b4 100644 --- a/compiler/PureUtils.ml +++ b/compiler/PureUtils.ml @@ -233,6 +233,9 @@ let rec let_group_requires_parentheses (meta : Meta.meta) (e : texpression) : | Loop _ -> (* Should have been eliminated *) craise __FILE__ __LINE__ meta "Unreachable" + | EError (meta, msg) -> + craise_opt_meta __FILE__ __LINE__ meta + msg (* TODO : check if true should'nt be returned instead ? *) let texpression_requires_parentheses meta e = match !Config.backend with |