diff options
author | Son Ho | 2022-06-27 06:51:08 +0200 |
---|---|---|
committer | Son Ho | 2022-06-27 06:51:08 +0200 |
commit | 8c3dc80d255ba2000d35c0bcdf9dbe927215bb81 (patch) | |
tree | e9cb13746a230666d9a6bd258a0e94f1e9772191 /src/LlbcAstUtils.ml | |
parent | f24f1043e72cddad2b29b09b79649ffc5e1d7c42 (diff) |
Add `can_end` in `abs` and use it for the return abs when generating the
backward functions
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 = |