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

destruct record at high level

Browse source
This commit is contained in:
satotake 2021-11-13 05:12:18 +00:00 • committed by GitHub
parent 98d2c57edf
commit 2e073d57ea
5 changed files with 42 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -5212,12 +5212,16 @@ fn run_low_level<'a, 'ctx, 'env>(
}
ListSublist => {
// List.sublist : List elem, { start : Nat, len : Nat } -> List elem
debug_assert_eq!(args.len(), 2);
//
// As a low-level, record is destructed
// List.sublist : List elem, start : Nat, len : Nat -> List elem
debug_assert_eq!(args.len(), 3);
let (list, list_layout) = load_symbol_and_layout(scope, &args[0]);
let original_wrapper = list.into_struct_value();
let rec = load_symbol(scope, &args[1]);
let start = load_symbol(scope, &args[1]);
let len = load_symbol(scope, &args[2]);
match list_layout {
Layout::Builtin(Builtin::EmptyList) => empty_list(env),
@ -5225,7 +5229,8 @@ fn run_low_level<'a, 'ctx, 'env>(
env,
layout_ids,
original_wrapper,
rec.into_struct_value(),
start.into_int_value(),
len.into_int_value(),
element_layout,
),
_ => unreachable!("Invalid layout {:?} in List.sublist", list_layout),

11
compiler/gen_llvm/src/llvm/build_list.rs
View file

@ -343,7 +343,8 @@ pub fn list_sublist<'a, 'ctx, 'env>(
env: &Env<'a, 'ctx, 'env>,
layout_ids: &mut LayoutIds<'a>,
original_wrapper: StructValue<'ctx>,
len_and_start: StructValue<'ctx>,
start: IntValue<'ctx>,
len: IntValue<'ctx>,
element_layout: &Layout<'a>,
) -> BasicValueEnum<'ctx> {
let dec_element_fn = build_dec_wrapper(env, layout_ids, element_layout);
@ -353,12 +354,8 @@ pub fn list_sublist<'a, 'ctx, 'env>(
pass_list_cc(env, original_wrapper.into()),
env.alignment_intvalue(element_layout),
layout_width(env, element_layout),
complex_bitcast(
env.builder,
len_and_start.into(),
env.str_list_c_abi().into(),
"to_i128",
),
start.into(),
len.into(),
dec_element_fn.as_global_value().as_pointer_value().into(),
],
bitcode::LIST_SUBLIST,