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

fix gen_refcount tests

Browse source
This commit is contained in:
Brendan Hansknecht 2024-07-10 22:09:29 -07:00
parent ad76fa2a4e
commit a8bef30392
No known key found for this signature in database
GPG key ID: 0EA784685083E75B
3 changed files with 34 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

23
crates/compiler/test_gen/src/gen_refcount.rs
View file

@ -96,13 +96,34 @@ fn list_str_inc() {
),
RocList<RocList<RocStr>>,
&[
Live(6), // s
Live(3), // s
Live(2), // list
Live(1) // result
]
);
}
#[test]
#[cfg(feature = "gen-wasm")]
fn list_str_slice() {
assert_refcounts!(
indoc!(
r#"
s = Str.concat "A long enough string " "to be heap-allocated"
list = [s, s, s]
List.dropFirst list 1
"#
),
RocList<RocList<RocStr>>,
&[
// Still has 3 refcounts cause the slice holds onto the list.
// So nothing in the list is freed yet.
Live(3), // s
Live(1) // result
]
);
}
#[test]
#[cfg(feature = "gen-wasm")]
fn list_str_dealloc() {

9
crates/compiler/test_gen/src/helpers/wasm.rs
View file

@ -310,7 +310,14 @@ where
RefCount::Deallocated
} else {
// Dereference the RC pointer and decode its value from the negative number format
let rc_encoded = read_i32(&inst.memory, rc_ptr);
let mut rc_encoded = read_i32(&inst.memory, rc_ptr);
if rc_encoded > 0 {
// We happen to be reading a list that is refcounted.
// This is the size on heap.
// Shift over 4 to and load the real RC.
rc_encoded = read_i32(&inst.memory, rc_ptr + 4);
}
if rc_encoded == 0 {
RefCount::Constant
} else {

5
crates/compiler/test_gen/src/helpers/wasm_test_platform.c
View file

@ -53,9 +53,11 @@ size_t *alloc_ptr_to_rc_ptr(void *ptr, unsigned int alignment)
//--------------------------
size_t RC_LIST_INDICATOR = 1;
void *roc_alloc(size_t size, unsigned int alignment)
{
void *allocated = calloc(size, 1);
void *allocated = malloc(size);
if (rc_pointers)
{
@ -64,6 +66,7 @@ void *roc_alloc(size_t size, unsigned int alignment)
ASSERT(num_alloc <= rc_pointers_capacity, "Too many allocations %zd > %zd", num_alloc, rc_pointers_capacity);
size_t *rc_ptr = alloc_ptr_to_rc_ptr(allocated, alignment);
*rc_ptr = RC_LIST_INDICATOR;
rc_pointers->elements[rc_pointers->length] = rc_ptr;
rc_pointers->length++;
}