language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-29 06:44:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

unwrap lambda sets for RC

Browse source
This commit is contained in:
Folkert 2023-07-28 17:21:30 +02:00
parent 81b4b3d22c
commit ce640fe65f
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
2 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
crates/compiler/gen_llvm/src/llvm/build.rs
View file

@ -2872,7 +2872,7 @@ pub(crate) fn build_exp_stmt<'a, 'ctx>(
DecRef(symbol) => { DecRef(symbol) => {
let (value, layout) = scope.load_symbol_and_layout(symbol); let (value, layout) = scope.load_symbol_and_layout(symbol);
match layout_interner.get_repr(layout) { match layout_interner.runtime_representation(layout) {
LayoutRepr::Builtin(Builtin::Str) => todo!(), LayoutRepr::Builtin(Builtin::Str) => todo!(),
LayoutRepr::Builtin(Builtin::List(element_layout)) => { LayoutRepr::Builtin(Builtin::List(element_layout)) => {
debug_assert!(value.is_struct_value()); debug_assert!(value.is_struct_value());
@ -2884,14 +2884,17 @@ pub(crate) fn build_exp_stmt<'a, 'ctx>(
other_layout if other_layout.is_refcounted(layout_interner) => { other_layout if other_layout.is_refcounted(layout_interner) => {
if value.is_pointer_value() { if value.is_pointer_value() {
let value_ptr = match other_layout { let clear_tag_id = match other_layout {
LayoutRepr::Union(union_layout) LayoutRepr::Union(union_layout) => {
if union_layout union_layout.stores_tag_id_in_pointer(env.target_info)
.stores_tag_id_in_pointer(env.target_info) =>
{
tag_pointer_clear_tag_id(env, value.into_pointer_value())
} }
_ => value.into_pointer_value(), _ => false,
};
let value_ptr = if clear_tag_id {
tag_pointer_clear_tag_id(env, value.into_pointer_value())
} else {
value.into_pointer_value()
}; };
let then_block = env.context.append_basic_block(parent, "then"); let then_block = env.context.append_basic_block(parent, "then");
@ -2944,7 +2947,7 @@ pub(crate) fn build_exp_stmt<'a, 'ctx>(
debug_assert!(value.is_pointer_value()); debug_assert!(value.is_pointer_value());
let value = value.into_pointer_value(); let value = value.into_pointer_value();
let clear_tag_id = match layout_interner.chase_recursive(layout) { let clear_tag_id = match layout_interner.runtime_representation(layout) {
LayoutRepr::Union(union) => union.stores_tag_id_in_pointer(env.target_info), LayoutRepr::Union(union) => union.stores_tag_id_in_pointer(env.target_info),
_ => false, _ => false,
}; };

2
crates/compiler/gen_llvm/src/llvm/lowlevel.rs
View file

@ -1354,7 +1354,7 @@ pub(crate) fn run_low_level<'a, 'ctx>(
"cast_to_i8_ptr", "cast_to_i8_ptr",
); );
let value_ptr = match layout_interner.get_repr(data_layout) { let value_ptr = match layout_interner.runtime_representation(data_layout) {
LayoutRepr::Union(union_layout) LayoutRepr::Union(union_layout)
if union_layout.stores_tag_id_in_pointer(env.target_info) => if union_layout.stores_tag_id_in_pointer(env.target_info) =>
{ {