language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-26 13:29:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

working wasm implementation (for one example)

Browse source
This commit is contained in:
Folkert 2023-06-21 00:55:58 +02:00
parent 880d2ef788
commit bb335469e0
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
2 changed files with 38 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

40
crates/compiler/gen_wasm/src/backend.rs
View file

@ -1084,7 +1084,14 @@ impl<'a, 'r> WasmBackend<'a, 'r> {
tag_id,
union_layout,
index,
} => self.expr_union_field_ptr_at_index(*structure, *tag_id, union_layout, *index, sym),
} => self.expr_union_field_ptr_at_index(
*structure,
*tag_id,
union_layout,
*index,
sym,
storage,
),
Expr::ExprBox { symbol: arg_sym } => self.expr_box(sym, *arg_sym, layout, storage),
@ -1885,6 +1892,7 @@ impl<'a, 'r> WasmBackend<'a, 'r> {
union_layout: &UnionLayout<'a>,
index: u64,
symbol: Symbol,
storage: &StoredValue,
) {
use UnionLayout::*;
@ -1934,18 +1942,28 @@ impl<'a, 'r> WasmBackend<'a, 'r> {
let stores_tag_id_in_pointer = union_layout.stores_tag_id_in_pointer(TARGET_INFO);
let from_addr_val = if stores_tag_id_in_pointer {
self.code_builder.get_local(tag_local_id);
self.code_builder.i32_const(-4); // 11111111...1100
self.code_builder.i32_and();
AddressValue::Loaded
} else {
AddressValue::NotLoaded(tag_local_id)
};
let from_offset = tag_offset + field_offset;
self.code_builder.i32_const(from_offset as i32);
self.code_builder.get_local(tag_local_id);
if stores_tag_id_in_pointer {
self.code_builder.i32_const(-4); // 11111111...1100
self.code_builder.i32_and();
}
self.code_builder.i32_const(from_offset as _);
self.code_builder.i32_add();
let symbol_local = match self.storage.ensure_value_has_local(
&mut self.code_builder,
symbol,
storage.clone(),
) {
StoredValue::Local { local_id, .. } => local_id,
_ => internal_error!("A heap pointer will always be an i32"),
};
self.code_builder.set_local(symbol_local);
}
/*******************************************************************