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

Merge branch 'trunk' of github.com:rtfeldman/roc into wasm-higher-order-calls

Browse source
This commit is contained in:
Brian Carroll 2022-04-07 09:03:34 +01:00
commit 2b74e55240
75 changed files with 1490 additions and 1102 deletions
Download patch file Download diff file Expand all files Collapse all files

25
compiler/mono/src/code_gen_help/refcount.rs
View file

@ -530,30 +530,31 @@ fn refcount_str<'a>(
) -> Stmt<'a> {
let string = Symbol::ARG_1;
let layout_isize = root.layout_isize;
let field_layouts = root.arena.alloc([LAYOUT_PTR, layout_isize, layout_isize]);
// Get the string length as a signed int
let len = root.create_symbol(ident_ids, "len");
let len_expr = Expr::StructAtIndex {
index: 1,
field_layouts: root.arena.alloc([LAYOUT_PTR, layout_isize]),
// Get the last word as a signed int
let last_word = root.create_symbol(ident_ids, "last_word");
let last_word_expr = Expr::StructAtIndex {
index: 2,
field_layouts,
structure: string,
};
let len_stmt = |next| Stmt::Let(len, len_expr, layout_isize, next);
let last_word_stmt = |next| Stmt::Let(last_word, last_word_expr, layout_isize, next);
// Zero
let zero = root.create_symbol(ident_ids, "zero");
let zero_expr = Expr::Literal(Literal::Int(0));
let zero_stmt = |next| Stmt::Let(zero, zero_expr, layout_isize, next);
// is_big_str = (len >= 0);
// Treat len as isize so that the small string flag is the same as the sign bit
// is_big_str = (last_word >= 0);
// Treat last word as isize so that the small string flag is the same as the sign bit
let is_big_str = root.create_symbol(ident_ids, "is_big_str");
let is_big_str_expr = Expr::Call(Call {
call_type: CallType::LowLevel {
op: LowLevel::NumGte,
update_mode: UpdateModeId::BACKEND_DUMMY,
},
arguments: root.arena.alloc([len, zero]),
arguments: root.arena.alloc([last_word, zero]),
});
let is_big_str_stmt = |next| Stmt::Let(is_big_str, is_big_str_expr, LAYOUT_BOOL, next);
@ -561,7 +562,7 @@ fn refcount_str<'a>(
let elements = root.create_symbol(ident_ids, "elements");
let elements_expr = Expr::StructAtIndex {
index: 0,
field_layouts: root.arena.alloc([LAYOUT_PTR, layout_isize]),
field_layouts,
structure: string,
};
let elements_stmt = |next| Stmt::Let(elements, elements_expr, layout_isize, next);
@ -608,7 +609,7 @@ fn refcount_str<'a>(
};
// Combine the statements in sequence
len_stmt(root.arena.alloc(
last_word_stmt(root.arena.alloc(
//
zero_stmt(root.arena.alloc(
//
@ -662,7 +663,7 @@ fn refcount_list<'a>(
let elements = root.create_symbol(ident_ids, "elements");
let elements_expr = Expr::StructAtIndex {
index: 0,
field_layouts: arena.alloc([box_layout, layout_isize]),
field_layouts: arena.alloc([box_layout, layout_isize, layout_isize]),
structure,
};
let elements_stmt = |next| Stmt::Let(elements, elements_expr, box_layout, next);