language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-28 14:24:45 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

impl

Browse source
This commit is contained in:
Eric Correia 2021-07-03 10:26:09 -04:00
parent bb0d1522f2
commit 6d566eaa64
1 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

17
compiler/gen_llvm/src/llvm/build.rs
View file

@ -977,8 +977,8 @@ pub fn build_exp_expr<'a, 'ctx, 'env>(
symbol, symbol,
.. ..
} => { } => {
let reset = load_symbol(scope, symbol); let reset = load_symbol(scope, symbol).into_pointer_value();
build_tag(env, scope, union_layout, *tag_id, arguments) build_tag(env, scope, union_layout, *tag_id, arguments, Some(reset))
} }
Tag { Tag {
@ -986,7 +986,7 @@ pub fn build_exp_expr<'a, 'ctx, 'env>(
tag_layout: union_layout, tag_layout: union_layout,
tag_id, tag_id,
.. ..
} => build_tag(env, scope, union_layout, *tag_id, arguments), } => build_tag(env, scope, union_layout, *tag_id, arguments, None),
Reset(symbol) => { Reset(symbol) => {
// 1. fetch refcount // 1. fetch refcount
@ -1198,6 +1198,7 @@ pub fn build_tag<'a, 'ctx, 'env>(
union_layout: &UnionLayout<'a>, union_layout: &UnionLayout<'a>,
tag_id: u8, tag_id: u8,
arguments: &[Symbol], arguments: &[Symbol],
reuse_allocation: Option<PointerValue<'ctx>>,
) -> BasicValueEnum<'ctx> { ) -> BasicValueEnum<'ctx> {
let tag_id_layout = union_layout.tag_id_layout(); let tag_id_layout = union_layout.tag_id_layout();
@ -1588,8 +1589,14 @@ pub fn build_tag<'a, 'ctx, 'env>(
} }
// Create the struct_type // Create the struct_type
let data_ptr = let data_ptr = match reuse_allocation {
reserve_with_refcount_union_as_block_of_memory(env, *union_layout, &[other_fields]); Some(ptr) => ptr,
None => reserve_with_refcount_union_as_block_of_memory(
env,
*union_layout,
&[other_fields],
),
};
let struct_type = ctx.struct_type(field_types.into_bump_slice(), false); let struct_type = ctx.struct_type(field_types.into_bump_slice(), false);
let struct_ptr = env let struct_ptr = env