diff options
Diffstat (limited to '')
| -rw-r--r-- | src/LlbcAstUtils.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/LlbcAstUtils.ml b/src/LlbcAstUtils.ml index 41d17bf4..84e8e00f 100644 --- a/src/LlbcAstUtils.ml +++ b/src/LlbcAstUtils.ml @@ -25,13 +25,13 @@ let fun_decl_has_loops (fd : fun_decl) : bool = let lookup_fun_sig (fun_id : fun_id) (fun_decls : fun_decl FunDeclId.Map.t) : fun_sig = match fun_id with - | Local id -> (FunDeclId.Map.find id fun_decls).signature + | Regular id -> (FunDeclId.Map.find id fun_decls).signature | Assumed aid -> Assumed.get_assumed_sig aid let lookup_fun_name (fun_id : fun_id) (fun_decls : fun_decl FunDeclId.Map.t) : Names.fun_name = match fun_id with - | Local id -> (FunDeclId.Map.find id fun_decls).name + | Regular id -> (FunDeclId.Map.find id fun_decls).name | Assumed aid -> Assumed.get_assumed_name aid (** Small utility: list the transitive parents of a region var group. |