diff options
author | Guillaume Boisseau | 2024-06-24 14:27:11 +0200 |
---|---|---|
committer | GitHub | 2024-06-24 14:27:11 +0200 |
commit | e2e2e17c71ed389cd97b81f35d2bdcfad5c9c59c (patch) | |
tree | 141566558cff2e1e496e32691be1dc843fc58da8 /compiler/Extract.ml | |
parent | 25e294f859d7899ee45e44f21d710b33d610942e (diff) | |
parent | 16aa66aabffeaaebc03c264b89387f010750dac3 (diff) |
Merge pull request #258 from Nadrieril/bump-charon
Diffstat (limited to '')
-rw-r--r-- | compiler/Extract.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/Extract.ml b/compiler/Extract.ml index 6c6b7f0e..1fbce7fd 100644 --- a/compiler/Extract.ml +++ b/compiler/Extract.ml @@ -1258,7 +1258,7 @@ let extract_template_fstar_decreases_clause (ctx : extraction_ctx) F.pp_print_break fmt 0 0; (* Print a comment to link the extracted type to its original rust definition *) (let name = - if !extract_external_name_patterns && not def.is_local then + if !extract_external_name_patterns && not def.item_meta.is_local then Some def.llbc_name else None in @@ -1433,7 +1433,7 @@ let extract_fun_comment (ctx : extraction_ctx) (fmt : F.formatter) [ comment_pre ^ loop_comment ] in let name = - if !extract_external_name_patterns && not def.is_local then + if !extract_external_name_patterns && not def.item_meta.is_local then Some def.llbc_name else None in @@ -1924,7 +1924,7 @@ let extract_global_decl_aux (ctx : extraction_ctx) (fmt : F.formatter) (* Add a break then the name of the corresponding LLBC declaration *) F.pp_print_break fmt 0 0; let name = - if !extract_external_name_patterns && not global.is_local then + if !extract_external_name_patterns && not global.item_meta.is_local then Some global.llbc_name else None in @@ -2389,7 +2389,7 @@ let extract_trait_decl (ctx : extraction_ctx) (fmt : F.formatter) F.pp_print_break fmt 0 0; (* Print a comment to link the extracted type to its original rust definition *) (let name = - if !extract_external_name_patterns && not decl.is_local then + if !extract_external_name_patterns && not decl.item_meta.is_local then Some decl.llbc_name else None in @@ -2703,7 +2703,7 @@ let extract_trait_impl (ctx : extraction_ctx) (fmt : F.formatter) F.pp_print_break fmt 0 0; (* Print a comment to link the extracted type to its original rust definition *) (let name, generics = - if !extract_external_name_patterns && not impl.is_local then + if !extract_external_name_patterns && not impl.item_meta.is_local then let decl_id = impl.impl_trait.trait_decl_id in let trait_decl = TraitDeclId.Map.find decl_id ctx.trans_trait_decls in let decl_ref = impl.llbc_impl_trait in |