diff options
author | Son Ho | 2022-03-03 18:27:17 +0100 |
---|---|---|
committer | Son Ho | 2022-03-03 18:27:17 +0100 |
commit | 6001c7241e50af8d9e1cd05fa2c97372a2ac9778 (patch) | |
tree | 2be68e2997fd04ee3ae3c8aaff541abed44f956d /src/SymbolicToPure.ml | |
parent | 0154696ae7124f57e17c6a2eea3bf4e684ed7a8f (diff) |
In fun_id rename the variant Local to Regular
Diffstat (limited to 'src/SymbolicToPure.ml')
-rw-r--r-- | src/SymbolicToPure.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/SymbolicToPure.ml b/src/SymbolicToPure.ml index dbf09e57..fe500480 100644 --- a/src/SymbolicToPure.ml +++ b/src/SymbolicToPure.ml @@ -184,7 +184,7 @@ let bs_ctx_lookup_llbc_fun_decl (id : FunDeclId.id) (ctx : bs_ctx) : A.fun_decl (* TODO: move *) let bs_ctx_lookup_local_function_sig (def_id : FunDeclId.id) (back_id : T.RegionGroupId.id option) (ctx : bs_ctx) : fun_sig = - let id = (A.Local def_id, back_id) in + let id = (A.Regular def_id, back_id) in (RegularFunIdMap.find id ctx.fun_context.fun_sigs).sg let bs_ctx_register_forward_call (call_id : V.FunCallId.id) (forward : S.call) @@ -942,7 +942,7 @@ let get_abs_ancestors (ctx : bs_ctx) (abs : V.abs) : S.call * V.abs list = *) let fun_is_monadic (fun_id : A.fun_id) : bool = match fun_id with - | A.Local _ -> true + | A.Regular _ -> true | A.Assumed aid -> Assumed.assumed_is_monadic aid let rec translate_expression (config : config) (e : S.expression) (ctx : bs_ctx) |