summaryrefslogtreecommitdiff
path: root/src/LlbcAstUtils.ml
diff options
context:
space:
mode:
authorSon Ho2022-03-03 18:27:17 +0100
committerSon Ho2022-03-03 18:27:17 +0100
commit6001c7241e50af8d9e1cd05fa2c97372a2ac9778 (patch)
tree2be68e2997fd04ee3ae3c8aaff541abed44f956d /src/LlbcAstUtils.ml
parent0154696ae7124f57e17c6a2eea3bf4e684ed7a8f (diff)
In fun_id rename the variant Local to Regular
Diffstat (limited to 'src/LlbcAstUtils.ml')
-rw-r--r--src/LlbcAstUtils.ml4
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.