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

Entire inner loop happens in phi2 node, rather than phi2 node happening inside loop

Browse source
This commit is contained in:
Chad Stearns 2020-08-08 00:44:15 -04:00
parent 0e15f75f3b
commit e47c847118
1 changed files with 51 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

65
compiler/gen/src/llvm/build.rs
View file

@ -1698,17 +1698,19 @@ fn list_join<'a, 'ctx, 'env>(
// Inner Loop // Inner Loop
{ {
let inner_list_len = load_list_len(builder, inner_list_wrapper); let inner_list_len = load_list_len(builder, inner_list_wrapper);
let inner_list_ptr =
load_list_ptr(builder, inner_list_wrapper, elem_ptr_type);
// inner_list_len > 0 // inner_list_len > 0
let inner_list_comparison = builder.build_int_compare( let inner_list_comparison = list_is_not_empty(builder, ctx, inner_list_len);
IntPredicate::UGT,
inner_list_len,
ctx.i64_type().const_int(0, false),
"greaterthanzero",
);
let build_empty = || {
BasicValueEnum::PointerValue(
builder
.build_load(dest_elem_ptr_alloca, "load_dest_elem_ptr")
.into_pointer_value(),
)
};
let build_non_empty = || {
let inner_index_name = "#inner_index"; let inner_index_name = "#inner_index";
let inner_index_alloca = let inner_index_alloca =
builder.build_alloca(ctx.i64_type(), inner_index_name); builder.build_alloca(ctx.i64_type(), inner_index_name);
@ -1732,17 +1734,10 @@ fn list_join<'a, 'ctx, 'env>(
builder.build_store(inner_index_alloca, next_inner_index); builder.build_store(inner_index_alloca, next_inner_index);
let build_empty = || {
BasicValueEnum::PointerValue(
builder
.build_load(dest_elem_ptr_alloca, "load_dest_elem_ptr")
// .into_int_value()
.into_pointer_value(),
)
};
let build_non_empty = || {
let src_elem_ptr = unsafe { let src_elem_ptr = unsafe {
let inner_list_ptr =
load_list_ptr(builder, inner_list_wrapper, elem_ptr_type);
builder.build_in_bounds_gep( builder.build_in_bounds_gep(
inner_list_ptr, inner_list_ptr,
&[curr_inner_index], &[curr_inner_index],
@ -1759,28 +1754,15 @@ fn list_join<'a, 'ctx, 'env>(
builder.build_store(curr_dest_elem_ptr, src_elem); builder.build_store(curr_dest_elem_ptr, src_elem);
BasicValueEnum::PointerValue(unsafe { let inc_dest_elem_ptr = BasicValueEnum::PointerValue(unsafe {
builder.build_in_bounds_gep( builder.build_in_bounds_gep(
curr_dest_elem_ptr, curr_dest_elem_ptr,
&[env.ptr_int().const_int(1 as u64, false)], &[env.ptr_int().const_int(1 as u64, false)],
"increment_dest_elem", "increment_dest_elem",
) )
}) });
};
let next_dest_elem_ptr = build_basic_phi2( builder.build_store(dest_elem_ptr_alloca, inc_dest_elem_ptr);
env,
parent,
inner_list_comparison,
build_non_empty,
build_empty,
BasicTypeEnum::PointerType(get_ptr_type(
&elem_type,
AddressSpace::Generic,
)),
);
builder.build_store(dest_elem_ptr_alloca, next_dest_elem_ptr);
let inner_loop_end_cond = builder.build_int_compare( let inner_loop_end_cond = builder.build_int_compare(
IntPredicate::ULT, IntPredicate::ULT,
@ -1798,6 +1780,21 @@ fn list_join<'a, 'ctx, 'env>(
after_inner_loop_bb, after_inner_loop_bb,
); );
builder.position_at_end(after_inner_loop_bb); builder.position_at_end(after_inner_loop_bb);
inc_dest_elem_ptr
};
build_basic_phi2(
env,
parent,
inner_list_comparison,
build_non_empty,
build_empty,
BasicTypeEnum::PointerType(get_ptr_type(
&elem_type,
AddressSpace::Generic,
)),
);
} }
// #index < outer_list_len // #index < outer_list_len