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

feat(wasm): trying to add the rest of the elements to the list

Browse source
This commit is contained in:
rvcas 2021-12-16 22:14:15 -05:00
parent 40da207859
commit fc07070617
1 changed files with 35 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

38
compiler/gen_wasm/src/backend.rs
View file

@ -6,7 +6,7 @@ use roc_collections::all::MutMap;
use roc_module::low_level::LowLevel;
use roc_module::symbol::{Interns, Symbol};
use roc_mono::gen_refcount::{RefcountProcGenerator, REFCOUNT_MAX};
use roc_mono::ir::{CallType, Expr, JoinPointId, Literal, Proc, Stmt};
use roc_mono::ir::{CallType, Expr, JoinPointId, ListLiteralElement, Literal, Proc, Stmt};
use roc_mono::layout::{Builtin, Layout, LayoutIds, TagIdIntType, UnionLayout};
use roc_reporting::internal_error;
@ -636,18 +636,50 @@ impl<'a> WasmBackend<'a> {
let (local_id, offset) =
location.local_and_offset(self.storage.stack_frame_pointer);
let mut offset = offset;
let size = elem_layout.stack_size(PTR_SIZE) * (elems.len() as u32);
self.code_builder.get_local(local_id);
self.allocate_with_refcount(Some(size), *alignment_bytes, 1);
self.code_builder.i32_store(Align::Bytes4, offset);
offset += 4;
// length of the list
self.code_builder.get_local(local_id);
self.code_builder.i32_const(elems.len() as i32);
self.code_builder.i32_store(Align::Bytes4, offset + 4);
self.code_builder.i32_store(Align::Bytes4, offset);
for elem in elems.iter() {}
let mut write128 = |lower_bits, upper_bits| {
offset += 8;
self.code_builder.get_local(local_id);
self.code_builder.i64_const(lower_bits);
self.code_builder.i64_store(Align::Bytes8, offset);
offset += 8;
self.code_builder.get_local(local_id);
self.code_builder.i64_const(upper_bits);
self.code_builder.i64_store(Align::Bytes8, offset);
};
for elem in elems.iter() {
match elem {
ListLiteralElement::Literal(elem_lit) => match elem_lit {
Literal::Int(x) => {
let lower_bits = (*x & 0xffff_ffff_ffff_ffff) as i64;
let upper_bits = (*x >> 64) as i64;
write128(lower_bits, upper_bits);
}
rest => todo!("Handle List Literals: {:?}", rest),
},
ListLiteralElement::Symbol(elem_sym) => {
todo!("Handle List Symbols: {:?}", elem_sym)
}
}
}
} else {
internal_error!("Unexpected storage for {:?}", sym)
}