mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-27 13:59:08 +00:00
move List.map* into roc
This commit is contained in:
Brendan Hansknecht
parent
7d8fbfbe85
commit
c734a27b59
16 changed files with 60 additions and 1445 deletions
|
|
@ -2331,17 +2331,6 @@ impl<
|
|||
.unwrap();
|
||||
|
||||
let caller_proc = match higher_order.op {
|
||||
HigherOrder::ListMap { .. }
|
||||
| HigherOrder::ListMap2 { .. }
|
||||
| HigherOrder::ListMap3 { .. }
|
||||
| HigherOrder::ListMap4 { .. } => CallerProc::new_list_map(
|
||||
self.env.arena,
|
||||
self.env.module_id,
|
||||
ident_ids,
|
||||
self.layout_interner,
|
||||
&higher_order.passed_function,
|
||||
higher_order.closure_env_layout,
|
||||
),
|
||||
HigherOrder::ListSortWith { .. } => CallerProc::new_compare(
|
||||
self.env.arena,
|
||||
self.env.module_id,
|
||||
|
|
@ -2395,396 +2384,6 @@ impl<
|
|||
let usize_ = Layout::U64;
|
||||
|
||||
match higher_order.op {
|
||||
HigherOrder::ListMap { xs } => {
|
||||
let old_element_layout = argument_layouts[0];
|
||||
let new_element_layout = higher_order.passed_function.return_layout;
|
||||
|
||||
let input_list_layout = LayoutRepr::Builtin(Builtin::List(old_element_layout));
|
||||
let input_list_in_layout = self
|
||||
.layout_interner
|
||||
.insert_direct_no_semantic(input_list_layout);
|
||||
|
||||
let alignment = self.debug_symbol("alignment");
|
||||
let old_element_width = self.debug_symbol("old_element_width");
|
||||
let new_element_width = self.debug_symbol("new_element_width");
|
||||
|
||||
self.load_layout_alignment(new_element_layout, alignment);
|
||||
|
||||
self.load_layout_stack_size(old_element_layout, old_element_width);
|
||||
self.load_layout_stack_size(new_element_layout, new_element_width);
|
||||
|
||||
self.build_fn_pointer(&caller, caller_string);
|
||||
|
||||
// we pass a null pointer when the data is not owned. the zig code must not call this!
|
||||
let data_is_owned = higher_order.closure_env_layout.is_some()
|
||||
&& higher_order.passed_function.owns_captured_environment;
|
||||
|
||||
self.load_literal(
|
||||
&Symbol::DEV_TMP2,
|
||||
&Layout::BOOL,
|
||||
&Literal::Bool(data_is_owned),
|
||||
);
|
||||
|
||||
// Load element_refcounted argument (bool).
|
||||
self.load_layout_refcounted(new_element_layout, Symbol::DEV_TMP3);
|
||||
|
||||
// list: RocList,
|
||||
// caller: Caller1,
|
||||
// data: Opaque,
|
||||
// inc_n_data: IncN,
|
||||
// data_is_owned: bool,
|
||||
// alignment: u32,
|
||||
// old_element_width: usize,
|
||||
// new_element_width: usize,
|
||||
// new_element_refcounted: bool,
|
||||
|
||||
let arguments = [
|
||||
xs,
|
||||
caller,
|
||||
data,
|
||||
inc_n_data,
|
||||
Symbol::DEV_TMP2,
|
||||
alignment,
|
||||
old_element_width,
|
||||
new_element_width,
|
||||
Symbol::DEV_TMP3,
|
||||
];
|
||||
|
||||
let layouts = [
|
||||
input_list_in_layout,
|
||||
ptr,
|
||||
ptr,
|
||||
ptr,
|
||||
Layout::BOOL,
|
||||
Layout::U32,
|
||||
usize_,
|
||||
usize_,
|
||||
Layout::BOOL,
|
||||
];
|
||||
|
||||
self.build_fn_call_stack_return(
|
||||
bitcode::LIST_MAP.to_string(),
|
||||
&arguments,
|
||||
&layouts,
|
||||
ret_layout,
|
||||
*dst,
|
||||
);
|
||||
|
||||
self.free_symbol(&Symbol::DEV_TMP);
|
||||
self.free_symbol(&Symbol::DEV_TMP2);
|
||||
self.free_symbol(&Symbol::DEV_TMP3);
|
||||
}
|
||||
HigherOrder::ListMap2 { xs, ys } => {
|
||||
let old_element_layout1 = argument_layouts[0];
|
||||
let old_element_layout2 = argument_layouts[1];
|
||||
let new_element_layout = higher_order.passed_function.return_layout;
|
||||
|
||||
let input_list_layout1 = LayoutRepr::Builtin(Builtin::List(old_element_layout1));
|
||||
let input_list_in_layout1 = self
|
||||
.layout_interner
|
||||
.insert_direct_no_semantic(input_list_layout1);
|
||||
|
||||
let input_list_layout2 = LayoutRepr::Builtin(Builtin::List(old_element_layout2));
|
||||
let input_list_in_layout2 = self
|
||||
.layout_interner
|
||||
.insert_direct_no_semantic(input_list_layout2);
|
||||
|
||||
let alignment = self.debug_symbol("alignment");
|
||||
let old_element_width1 = self.debug_symbol("old_element_width1");
|
||||
let old_element_width2 = self.debug_symbol("old_element_width2");
|
||||
let new_element_width = self.debug_symbol("new_element_width");
|
||||
|
||||
self.load_layout_alignment(new_element_layout, alignment);
|
||||
|
||||
self.load_layout_stack_size(old_element_layout1, old_element_width1);
|
||||
self.load_layout_stack_size(old_element_layout2, old_element_width2);
|
||||
|
||||
self.load_layout_stack_size(new_element_layout, new_element_width);
|
||||
|
||||
self.build_fn_pointer(&caller, caller_string);
|
||||
|
||||
// we pass a null pointer when the data is not owned. the zig code must not call this!
|
||||
let data_is_owned = higher_order.closure_env_layout.is_some()
|
||||
&& higher_order.passed_function.owns_captured_environment;
|
||||
|
||||
self.load_literal(
|
||||
&Symbol::DEV_TMP2,
|
||||
&Layout::BOOL,
|
||||
&Literal::Bool(data_is_owned),
|
||||
);
|
||||
|
||||
// Load element_refcounted argument (bool).
|
||||
self.load_layout_refcounted(new_element_layout, Symbol::DEV_TMP3);
|
||||
|
||||
// list1: RocList,
|
||||
// list2: RocList,
|
||||
// caller: Caller1,
|
||||
// data: Opaque,
|
||||
// inc_n_data: IncN,
|
||||
// data_is_owned: bool,
|
||||
// alignment: u32,
|
||||
// old_element_width1: usize,
|
||||
// old_element_width2: usize,
|
||||
// new_element_width: usize,
|
||||
// inc1: Inc
|
||||
// inc2: Inc
|
||||
// new_element_refcounted: bool,
|
||||
|
||||
let arguments = [
|
||||
xs,
|
||||
ys,
|
||||
caller,
|
||||
data,
|
||||
inc_n_data,
|
||||
Symbol::DEV_TMP2,
|
||||
alignment,
|
||||
old_element_width1,
|
||||
old_element_width2,
|
||||
new_element_width,
|
||||
Symbol::DEV_TMP3,
|
||||
];
|
||||
|
||||
let layouts = [
|
||||
input_list_in_layout1,
|
||||
input_list_in_layout2,
|
||||
ptr,
|
||||
ptr,
|
||||
ptr,
|
||||
Layout::BOOL,
|
||||
Layout::U32,
|
||||
usize_,
|
||||
usize_,
|
||||
usize_,
|
||||
Layout::BOOL, // new_element_refcounted
|
||||
];
|
||||
|
||||
self.build_fn_call_stack_return(
|
||||
bitcode::LIST_MAP2.to_string(),
|
||||
&arguments,
|
||||
&layouts,
|
||||
ret_layout,
|
||||
*dst,
|
||||
);
|
||||
|
||||
self.free_symbol(&Symbol::DEV_TMP);
|
||||
self.free_symbol(&Symbol::DEV_TMP2);
|
||||
self.free_symbol(&Symbol::DEV_TMP3);
|
||||
}
|
||||
HigherOrder::ListMap3 { xs, ys, zs } => {
|
||||
let old_element_layout1 = argument_layouts[0];
|
||||
let old_element_layout2 = argument_layouts[1];
|
||||
let old_element_layout3 = argument_layouts[2];
|
||||
let new_element_layout = higher_order.passed_function.return_layout;
|
||||
|
||||
let input_list_layout1 = LayoutRepr::Builtin(Builtin::List(old_element_layout1));
|
||||
let input_list_in_layout1 = self
|
||||
.layout_interner
|
||||
.insert_direct_no_semantic(input_list_layout1);
|
||||
|
||||
let input_list_layout2 = LayoutRepr::Builtin(Builtin::List(old_element_layout2));
|
||||
let input_list_in_layout2 = self
|
||||
.layout_interner
|
||||
.insert_direct_no_semantic(input_list_layout2);
|
||||
|
||||
let input_list_layout3 = LayoutRepr::Builtin(Builtin::List(old_element_layout3));
|
||||
let input_list_in_layout3 = self
|
||||
.layout_interner
|
||||
.insert_direct_no_semantic(input_list_layout3);
|
||||
|
||||
let alignment = self.debug_symbol("alignment");
|
||||
let old_element_width1 = self.debug_symbol("old_element_width1");
|
||||
let old_element_width2 = self.debug_symbol("old_element_width2");
|
||||
let old_element_width3 = self.debug_symbol("old_element_width3");
|
||||
let new_element_width = self.debug_symbol("new_element_width");
|
||||
|
||||
self.load_layout_alignment(new_element_layout, alignment);
|
||||
|
||||
self.load_layout_stack_size(old_element_layout1, old_element_width1);
|
||||
self.load_layout_stack_size(old_element_layout2, old_element_width2);
|
||||
self.load_layout_stack_size(old_element_layout3, old_element_width3);
|
||||
|
||||
self.load_layout_stack_size(new_element_layout, new_element_width);
|
||||
|
||||
self.build_fn_pointer(&caller, caller_string);
|
||||
|
||||
// we pass a null pointer when the data is not owned. the zig code must not call this!
|
||||
let data_is_owned = higher_order.closure_env_layout.is_some()
|
||||
&& higher_order.passed_function.owns_captured_environment;
|
||||
|
||||
self.load_literal(
|
||||
&Symbol::DEV_TMP2,
|
||||
&Layout::BOOL,
|
||||
&Literal::Bool(data_is_owned),
|
||||
);
|
||||
|
||||
// Load element_refcounted argument (bool).
|
||||
self.load_layout_refcounted(new_element_layout, Symbol::DEV_TMP3);
|
||||
|
||||
// list1: RocList,
|
||||
// list2: RocList,
|
||||
// caller: Caller1,
|
||||
// data: Opaque,
|
||||
// inc_n_data: IncN,
|
||||
// data_is_owned: bool,
|
||||
// alignment: u32,
|
||||
// old_element_width1: usize,
|
||||
// old_element_width2: usize,
|
||||
// new_element_width: usize,
|
||||
// inc1: Inc
|
||||
// inc2: Inc
|
||||
// inc3: Inc
|
||||
// new_element_refcounted: bool,
|
||||
|
||||
let arguments = [
|
||||
xs,
|
||||
ys,
|
||||
zs,
|
||||
caller,
|
||||
data,
|
||||
inc_n_data,
|
||||
Symbol::DEV_TMP2,
|
||||
alignment,
|
||||
old_element_width1,
|
||||
old_element_width2,
|
||||
old_element_width3,
|
||||
new_element_width,
|
||||
Symbol::DEV_TMP3,
|
||||
];
|
||||
|
||||
let layouts = [
|
||||
input_list_in_layout1,
|
||||
input_list_in_layout2,
|
||||
input_list_in_layout3,
|
||||
ptr,
|
||||
ptr,
|
||||
ptr,
|
||||
Layout::BOOL,
|
||||
Layout::U32,
|
||||
usize_, // old_element_width_1
|
||||
usize_, // old_element_width_2
|
||||
usize_, // old_element_width_3
|
||||
usize_, // new_element_width
|
||||
Layout::BOOL, // new_element_refcounted
|
||||
];
|
||||
|
||||
self.build_fn_call_stack_return(
|
||||
bitcode::LIST_MAP3.to_string(),
|
||||
&arguments,
|
||||
&layouts,
|
||||
ret_layout,
|
||||
*dst,
|
||||
);
|
||||
|
||||
self.free_symbol(&Symbol::DEV_TMP);
|
||||
self.free_symbol(&Symbol::DEV_TMP2);
|
||||
self.free_symbol(&Symbol::DEV_TMP3);
|
||||
}
|
||||
HigherOrder::ListMap4 { xs, ys, zs, ws } => {
|
||||
let old_element_layout1 = argument_layouts[0];
|
||||
let old_element_layout2 = argument_layouts[1];
|
||||
let old_element_layout3 = argument_layouts[2];
|
||||
let old_element_layout4 = argument_layouts[3];
|
||||
let new_element_layout = higher_order.passed_function.return_layout;
|
||||
|
||||
let input_list_layout1 = LayoutRepr::Builtin(Builtin::List(old_element_layout1));
|
||||
let input_list_in_layout1 = self
|
||||
.layout_interner
|
||||
.insert_direct_no_semantic(input_list_layout1);
|
||||
|
||||
let input_list_layout2 = LayoutRepr::Builtin(Builtin::List(old_element_layout2));
|
||||
let input_list_in_layout2 = self
|
||||
.layout_interner
|
||||
.insert_direct_no_semantic(input_list_layout2);
|
||||
|
||||
let input_list_layout3 = LayoutRepr::Builtin(Builtin::List(old_element_layout3));
|
||||
let input_list_in_layout3 = self
|
||||
.layout_interner
|
||||
.insert_direct_no_semantic(input_list_layout3);
|
||||
|
||||
let input_list_layout4 = LayoutRepr::Builtin(Builtin::List(old_element_layout4));
|
||||
let input_list_in_layout4 = self
|
||||
.layout_interner
|
||||
.insert_direct_no_semantic(input_list_layout4);
|
||||
|
||||
let alignment = self.debug_symbol("alignment");
|
||||
let old_element_width1 = self.debug_symbol("old_element_width1");
|
||||
let old_element_width2 = self.debug_symbol("old_element_width2");
|
||||
let old_element_width3 = self.debug_symbol("old_element_width3");
|
||||
let old_element_width4 = self.debug_symbol("old_element_width4");
|
||||
let new_element_width = self.debug_symbol("new_element_width");
|
||||
|
||||
self.load_layout_alignment(new_element_layout, alignment);
|
||||
|
||||
self.load_layout_stack_size(old_element_layout1, old_element_width1);
|
||||
self.load_layout_stack_size(old_element_layout2, old_element_width2);
|
||||
self.load_layout_stack_size(old_element_layout3, old_element_width3);
|
||||
self.load_layout_stack_size(old_element_layout4, old_element_width4);
|
||||
|
||||
self.load_layout_stack_size(new_element_layout, new_element_width);
|
||||
|
||||
self.build_fn_pointer(&caller, caller_string);
|
||||
|
||||
// we pass a null pointer when the data is not owned. the zig code must not call this!
|
||||
let data_is_owned = higher_order.closure_env_layout.is_some()
|
||||
&& higher_order.passed_function.owns_captured_environment;
|
||||
|
||||
self.load_literal(
|
||||
&Symbol::DEV_TMP2,
|
||||
&Layout::BOOL,
|
||||
&Literal::Bool(data_is_owned),
|
||||
);
|
||||
|
||||
// Load element_refcounted argument (bool).
|
||||
self.load_layout_refcounted(new_element_layout, Symbol::DEV_TMP3);
|
||||
|
||||
let arguments = [
|
||||
xs,
|
||||
ys,
|
||||
zs,
|
||||
ws,
|
||||
caller,
|
||||
data,
|
||||
inc_n_data,
|
||||
Symbol::DEV_TMP2,
|
||||
alignment,
|
||||
old_element_width1,
|
||||
old_element_width2,
|
||||
old_element_width3,
|
||||
old_element_width4,
|
||||
new_element_width,
|
||||
Symbol::DEV_TMP3,
|
||||
];
|
||||
|
||||
let layouts = [
|
||||
input_list_in_layout1,
|
||||
input_list_in_layout2,
|
||||
input_list_in_layout3,
|
||||
input_list_in_layout4,
|
||||
ptr,
|
||||
ptr,
|
||||
ptr,
|
||||
Layout::BOOL,
|
||||
Layout::U32,
|
||||
usize_, // old_element_width_1
|
||||
usize_, // old_element_width_2
|
||||
usize_, // old_element_width_3
|
||||
usize_, // old_element_width_4
|
||||
usize_, // new_element_width
|
||||
Layout::BOOL, // new_element_refcounted
|
||||
];
|
||||
|
||||
self.build_fn_call_stack_return(
|
||||
bitcode::LIST_MAP4.to_string(),
|
||||
&arguments,
|
||||
&layouts,
|
||||
ret_layout,
|
||||
*dst,
|
||||
);
|
||||
|
||||
self.free_symbol(&Symbol::DEV_TMP);
|
||||
self.free_symbol(&Symbol::DEV_TMP2);
|
||||
self.free_symbol(&Symbol::DEV_TMP3);
|
||||
}
|
||||
HigherOrder::ListSortWith { xs } => {
|
||||
let element_layout = argument_layouts[0];
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue