language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-30 07:14:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

WIP List.map + RC'd closure troubles

Browse source
This commit is contained in:
Folkert 2021-05-17 19:31:52 +02:00
parent 2b72f9e733
commit 8dddf952a8
5 changed files with 121 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

26
compiler/builtins/bitcode/src/list.zig
View file

@ -175,18 +175,34 @@ pub fn listReverse(list: RocList, alignment: usize, element_width: usize) callco
}
}
pub fn listMap(list: RocList, transform: Opaque, caller: Caller1, alignment: usize, old_element_width: usize, new_element_width: usize) callconv(.C) RocList {
pub const RocFunctionCall1 = extern struct {
caller: Caller1,
data: Opaque,
inc_n_data: IncN,
data_is_owned: bool,
};
pub fn listMap(
list: RocList,
call: RocFunctionCall1,
alignment: usize,
old_element_width: usize,
new_element_width: usize,
) callconv(.C) RocList {
if (list.bytes) |source_ptr| {
const size = list.len();
var i: usize = 0;
const output = RocList.allocate(std.heap.c_allocator, alignment, size, new_element_width);
const target_ptr = output.bytes orelse unreachable;
while (i < size) : (i += 1) {
caller(transform, source_ptr + (i * old_element_width), target_ptr + (i * new_element_width));
}
// if (call.data_is_owned) {
// }
// utils.decref(std.heap.c_allocator, alignment, list.bytes, size * old_element_width);
call.inc_n_data(call.data, size);
while (i < size) : (i += 1) {
call.caller(call.data, source_ptr + (i * old_element_width), target_ptr + (i * new_element_width));
}
return output;
} else {