diff options
| author | Son Ho | 2023-10-24 17:34:17 +0200 |
|---|---|---|
| committer | Son Ho | 2023-10-24 17:34:17 +0200 |
| commit | c3c7ca132b0dc0c4ea9205876932decda63baca1 (patch) | |
| tree | 9b4842202b9f3cb06ae43e6619154e36a5ba01c3 /compiler/Extract.ml | |
| parent | c27c3052ec3f9a093b06a41f56b3a361cb65e950 (diff) | |
| parent | f11d5186b467df318f7c09eedf8b5629c165b453 (diff) | |
Merge branch 'son_traits_arrow' into protz_numeric
Diffstat (limited to '')
| -rw-r--r-- | compiler/Extract.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/Extract.ml b/compiler/Extract.ml index b842aea1..e24cae16 100644 --- a/compiler/Extract.ml +++ b/compiler/Extract.ml @@ -2699,7 +2699,7 @@ and extract_function_call (ctx : extraction_ctx) (fmt : F.formatter) (* Provided method: we see it as a regular function call, and use the function name *) let fun_id = - FromLlbc (FunId (A.Regular method_id.id), lp_id, rg_id) + FromLlbc (FunId (Regular method_id.id), lp_id, rg_id) in let fun_name = ctx_get_function with_opaque_pre fun_id ctx in F.pp_print_string fmt fun_name; @@ -3522,7 +3522,7 @@ let extract_fun_comment (ctx : extraction_ctx) (fmt : F.formatter) (def : fun_decl) : unit = let { keep_fwd; num_backs } = PureUtils.RegularFunIdMap.find - (Pure.FunId (A.Regular def.def_id), def.loop_id, def.back_id) + (Pure.FunId (Regular def.def_id), def.loop_id, def.back_id) ctx.fun_name_info in let comment_pre = "[" ^ Print.fun_name_to_string def.basename ^ "]: " in |