diff options
author | Son HO | 2024-05-27 09:39:39 +0200 |
---|---|---|
committer | GitHub | 2024-05-27 09:39:39 +0200 |
commit | aeff52b13b9b3068efcc4a805a9786bf2053d141 (patch) | |
tree | 229e6fc225bf8456a01985cd3b583e510acc3886 /compiler/SymbolicToPure.ml | |
parent | 3ff6d93822fe5b2e233d4b12b88b38839c8533c5 (diff) | |
parent | 4971b7edf4538144df735f9fa5327fe4d0e2e003 (diff) |
Merge branch 'main' into unsigned-max
Diffstat (limited to '')
-rw-r--r-- | compiler/SymbolicToPure.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/compiler/SymbolicToPure.ml b/compiler/SymbolicToPure.ml index 8dfe0abe..d6d2e018 100644 --- a/compiler/SymbolicToPure.ml +++ b/compiler/SymbolicToPure.ml @@ -2903,14 +2903,9 @@ and translate_ExpandAdt_one_branch (sv : V.symbolic_value) - if the ADT is an enumeration (which must have exactly one branch) - if we forbid using field projectors. *) - let is_rec_def = - T.TypeDeclId.Set.mem adt_id ctx.type_ctx.recursive_decls - in let use_let_with_cons = is_enum || !Config.dont_use_field_projectors - (* TODO: for now, we don't have field projectors over recursive ADTs in Lean. *) - || (!Config.backend = Lean && is_rec_def) (* Also, there is a special case when the ADT is to be extracted as a tuple, because it is a structure with unnamed fields. Some backends like Lean have projectors for tuples (like so: `x.3`), but others |