diff options
| author | Sidney Congard | 2022-06-30 14:54:15 +0200 |
|---|---|---|
| committer | Sidney Congard | 2022-06-30 14:54:15 +0200 |
| commit | fdbbb82ff89b1d5141ec63bc2385936da3de3616 (patch) | |
| tree | d48e3fa933280e8a275d2cfdab8f126e920e5f13 /src/LlbcAstUtils.ml | |
| parent | 47691de8fe3dc32a29663d4d8343eb415ce1d81e (diff) | |
| parent | 4f33892c81cdaf6aefaad9b7cef1456dcfead67c (diff) | |
Merge branch 'main' of github.com:Kachoc/aeneas into constants-v2
Complete the constants extraction by making all functions fail
Diffstat (limited to 'src/LlbcAstUtils.ml')
| -rw-r--r-- | src/LlbcAstUtils.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/LlbcAstUtils.ml b/src/LlbcAstUtils.ml index 84e8e00f..0e679fca 100644 --- a/src/LlbcAstUtils.ml +++ b/src/LlbcAstUtils.ml @@ -7,7 +7,6 @@ let statement_has_loops (st : statement) : bool = let obj = object inherit [_] iter_statement - method! visit_Loop _ _ = raise Found end in @@ -38,6 +37,8 @@ let lookup_fun_name (fun_id : fun_id) (fun_decls : fun_decl FunDeclId.Map.t) : We don't do that in an efficient manner, but it doesn't matter. TODO: rename to "list_ancestors_..." + + This list *doesn't* include the current region. *) let rec list_parent_region_groups (sg : fun_sig) (gid : T.RegionGroupId.id) : T.RegionGroupId.Set.t = |