language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-26 13:29:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Correct tag ID matching of nullable wrapped tags

Browse source
This commit is contained in:
Ayaz Hafiz 2023-05-24 12:42:15 -05:00
parent bbcd9c3a52
commit 5abf121efe
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
2 changed files with 38 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
crates/compiler/gen_llvm/src/llvm/compare.rs
View file

@ -1123,7 +1123,10 @@ fn build_tag_eq_help<'a, 'ctx>(
env.builder.build_return(Some(&answer));
}
NullableWrapped { other_tags, .. } => {
NullableWrapped {
other_tags,
nullable_id,
} => {
let ptr_equal = env.builder.build_int_compare(
IntPredicate::EQ,
env.builder
@ -1204,7 +1207,9 @@ fn build_tag_eq_help<'a, 'ctx>(
let tags = other_tags;
let mut cases = Vec::with_capacity_in(tags.len(), env.arena);
for (tag_id, field_layouts) in tags.iter().enumerate() {
for (i, field_layouts) in tags.iter().enumerate() {
let tag_id = if i >= (*nullable_id as _) { i + 1 } else { i };
let block = env.context.append_basic_block(parent, "tag_id_modify");
env.builder.position_at_end(block);