language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-27 05:49:08 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Merge pull request #4976 from thehabbos007/list-concat

Browse source 
gen_dev: add `List.concat` and fix element width bug
This commit is contained in:
Folkert de Vries 2023-01-28 13:56:36 +01:00 • committed by GitHub
commit 6fc57f0a0c
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
6 changed files with 128 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

30
crates/compiler/gen_dev/src/lib.rs
View file

@ -21,6 +21,7 @@ use roc_mono::layout::{
Builtin, InLayout, Layout, LayoutId, LayoutIds, LayoutInterner, STLayoutInterner, TagIdIntType,
UnionLayout,
};
use roc_mono::list_element_layout;
mod generic64;
mod object_builder;
@ -706,7 +707,14 @@ trait Backend<'a> {
args.len(),
"ListWithCapacity: expected to have exactly one argument"
);
self.build_list_with_capacity(sym, args[0], arg_layouts[0], ret_layout)
let element_layout = list_element_layout!(self.interner(), *ret_layout);
self.build_list_with_capacity(
sym,
args[0],
arg_layouts[0],
element_layout,
ret_layout,
)
}
LowLevel::ListReserve => {
debug_assert_eq!(
@ -740,6 +748,15 @@ trait Backend<'a> {
);
self.build_list_replace_unsafe(sym, args, arg_layouts, ret_layout)
}
LowLevel::ListConcat => {
debug_assert_eq!(
2,
args.len(),
"ListConcat: expected to have exactly two arguments"
);
let element_layout = list_element_layout!(self.interner(), *ret_layout);
self.build_list_concat(sym, args, arg_layouts, element_layout, ret_layout)
}
LowLevel::StrConcat => self.build_fn_call(
sym,
bitcode::STR_CONCAT.to_string(),
@ -996,6 +1013,7 @@ trait Backend<'a> {
dst: &Symbol,
capacity: Symbol,
capacity_layout: InLayout<'a>,
element_layout: InLayout<'a>,
ret_layout: &InLayout<'a>,
);
@ -1035,6 +1053,16 @@ trait Backend<'a> {
ret_layout: &InLayout<'a>,
);
/// build_list_concat returns a new list containing the two argument lists concatenated.
fn build_list_concat(
&mut self,
dst: &Symbol,
args: &'a [Symbol],
arg_layouts: &[InLayout<'a>],
element_layout: InLayout<'a>,
ret_layout: &InLayout<'a>,
);
/// build_refcount_getptr loads the pointer to the reference count of src into dst.
fn build_ptr_cast(&mut self, dst: &Symbol, src: &Symbol);