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

another waypoint

Browse source
This commit is contained in:
Folkert 2021-11-06 19:27:16 +01:00
parent 5cd232816b
commit bd0f02c542
5 changed files with 84 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

18
compiler/gen_llvm/src/llvm/refcounting.rs
View file

@ -349,18 +349,30 @@ fn modify_refcount_struct_help<'a, 'ctx, 'env>(
for (i, field_layout) in layouts.iter().enumerate() {
if field_layout.contains_refcounted() {
let field_ptr = env
let raw_value = env
.builder
.build_extract_value(wrapper_struct, i as u32, "decrement_struct_field")
.unwrap();
let field_value = if field_layout.is_passed_by_reference() {
let field_type = basic_type_from_layout(env, field_layout);
let alloca = env
.builder
.build_alloca(field_type, "load_struct_tag_field_for_decrement");
env.builder.build_store(alloca, raw_value);
alloca.into()
} else {
raw_value
};
modify_refcount_layout_help(
env,
parent,
layout_ids,
mode.to_call_mode(fn_val),
when_recursive,
field_ptr,
field_value,
field_layout,
);
}
@ -1289,7 +1301,7 @@ fn build_rec_union_recursive_decrement<'a, 'ctx, 'env>(
.build_bitcast(
value_ptr,
wrapper_type.ptr_type(AddressSpace::Generic),
"opaque_to_correct",
"opaque_to_correct_recursive_decrement",
)
.into_pointer_value();