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

write List.set in zig

Browse source
This commit is contained in:
Folkert 2021-05-22 22:13:54 +02:00
parent e16436bdd0
commit 25ec057b2b
5 changed files with 93 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

26
compiler/gen/src/llvm/build_list.rs
View file

@ -322,8 +322,32 @@ pub fn list_append<'a, 'ctx, 'env>(
)
}
/// List.set : List elem, Int, elem -> List elem
pub fn list_set<'a, 'ctx, 'env>(
env: &Env<'a, 'ctx, 'env>,
layout_ids: &mut LayoutIds<'a>,
list: BasicValueEnum<'ctx>,
index: IntValue<'ctx>,
element: BasicValueEnum<'ctx>,
element_layout: &'a Layout<'a>,
) -> BasicValueEnum<'ctx> {
let dec_element_fn = build_dec_wrapper(env, layout_ids, element_layout);
call_bitcode_fn_returns_list(
env,
&[
pass_list_as_i128(env, list),
alignment_intvalue(env, &element_layout),
index.into(),
pass_element_as_opaque(env, element),
layout_width(env, element_layout),
dec_element_fn.as_global_value().as_pointer_value().into(),
],
&bitcode::LIST_SET,
)
}
/// List.set : List elem, Int, elem -> List elem
pub fn list_set_old<'a, 'ctx, 'env>(
parent: FunctionValue<'ctx>,
args: &[(BasicValueEnum<'ctx>, &'a Layout<'a>)],
env: &Env<'a, 'ctx, 'env>,