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

fix how free is called

Browse source 
somehow the previous version compiles passes llvm verification, but hangs when free is actually called
This commit is contained in:
Folkert 2020-09-08 21:30:23 +02:00
parent 1b42831973
commit 1279999c6c
3 changed files with 10 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

4
compiler/gen/src/llvm/refcounting.rs
View file

@ -331,7 +331,6 @@ pub fn build_dec_list<'a, 'ctx, 'env>(
let call = env
.builder
.build_call(function, &[original_wrapper.into()], "decrement_union");
call.set_call_convention(FAST_CALL_CONV);
}
@ -414,8 +413,7 @@ fn build_dec_list_help<'a, 'ctx, 'env>(
{
builder.position_at_end(then_block);
if !env.leak {
let free = builder.build_free(refcount_ptr);
builder.insert_instruction(&free, None);
builder.build_free(refcount_ptr);
}
builder.build_unconditional_branch(cont_block);
}

9
compiler/gen/tests/gen_list.rs
View file

@ -592,6 +592,15 @@ mod gen_list {
);
}
#[test]
fn list_concat_two_bigger_non_empty_lists() {
assert_evals_to!(
"List.concat [ 1.1, 2.2 ] [ 3.3, 4.4, 5.5 ]",
&[1.1, 2.2, 3.3, 4.4, 5.5],
&'static [f64]
);
}
fn assert_concat_worked(num_elems1: i64, num_elems2: i64) {
let vec1: Vec<i64> = (0..num_elems1)
.map(|i| 12345 % (i + num_elems1 + num_elems2 + 1))