shoney.arickathil
631d277e0c
- 16 tasks complete: arena, object model, borrow word, containers, RC + budgeted cycle collector, wob_build, validating loader, interpreter core (dual dispatch), object opcodes, drop-map unwinding, builtins + DB_STUB + TRAP, ICALL, wovm CLI + just recipes - 13 test suites × 2 dispatch flavors (ASan+UBSan) + CLI smoke, all green - .wob v1 format pinned in src/wob.h + docs/plan/oop-vm/00-wob-format.md - wo-rt.c reference event-loop preserved for sub-project 2 This is Iteration 2 of the OOP milestone; compiler front (Iteration 3) is in progress on this branch. They meet at Iteration 4 (emitter+e2e).
103 lines
3.8 KiB
C
103 lines
3.8 KiB
C
/* test_rc — RC + drop plans: deterministic destruction.
|
|
*
|
|
* Testing trick used by every memory test from here on: classes get ~130
|
|
* fields so instances exceed the 1024-byte size-class ceiling and take the
|
|
* arena's malloc path — any missed free is a hard ASan leak report. */
|
|
#include "cont.h"
|
|
#include "gc.h"
|
|
#include "t.h"
|
|
|
|
#define BIG 130
|
|
|
|
/* class 0 "Node": field0 OWNED (child Node), field1 TEXT, rest scalars */
|
|
static uint8_t node_kinds[BIG];
|
|
/* class 1 "Shared" (@gc): all scalars */
|
|
static uint8_t shared_kinds[BIG];
|
|
/* class 2 "Holder": field0 GCREF, field1 MULTI (of TEXT), rest scalars */
|
|
static uint8_t holder_kinds[BIG];
|
|
|
|
static wo_classdesc CLASSES[3];
|
|
|
|
static void setup_classes(void) {
|
|
node_kinds[0] = WO_K_OWNED;
|
|
node_kinds[1] = WO_K_TEXT;
|
|
shared_kinds[0] = WO_K_SCALAR;
|
|
holder_kinds[0] = WO_K_GCREF;
|
|
holder_kinds[1] = WO_K_MULTI;
|
|
CLASSES[0] = (wo_classdesc){.name = 0, .flags = 0, .field_cnt = BIG, .kinds = node_kinds};
|
|
CLASSES[1] = (wo_classdesc){.name = 0, .flags = WO_CLASSF_GC, .field_cnt = BIG, .kinds = shared_kinds};
|
|
CLASSES[2] = (wo_classdesc){.name = 0, .flags = 0, .field_cnt = BIG, .kinds = holder_kinds};
|
|
}
|
|
|
|
/* Owned tree: parent -> child -> grandchild, each with an owned name text.
|
|
* One drop of the root must free all six allocations (ASan-proven). */
|
|
static void test_owned_tree_recursive_drop(void) {
|
|
wo_rt rt;
|
|
T_EQ(wo_rt_init(&rt, 1 << 16, CLASSES, 3), 0);
|
|
wo_hdr *grand = wo_obj_new(&rt, 0);
|
|
wo_fields(grand)[1] = (uint64_t)(uintptr_t)wo_str_new(&rt, "grand", 5);
|
|
wo_hdr *child = wo_obj_new(&rt, 0);
|
|
wo_fields(child)[0] = (uint64_t)(uintptr_t)grand;
|
|
wo_fields(child)[1] = (uint64_t)(uintptr_t)wo_str_new(&rt, "child", 5);
|
|
wo_hdr *root = wo_obj_new(&rt, 0);
|
|
wo_fields(root)[0] = (uint64_t)(uintptr_t)child;
|
|
wo_fields(root)[1] = (uint64_t)(uintptr_t)wo_str_new(&rt, "root", 4);
|
|
wo_drop_obj(&rt, root);
|
|
/* nothing to assert beyond "ASan stays silent" — that IS the test */
|
|
T_CHECK(1);
|
|
wo_rt_destroy(&rt);
|
|
}
|
|
|
|
/* A holder's gcref field decrements on drop; the final external decrement
|
|
* frees the @gc object. */
|
|
static void test_gcref_field_decrements(void) {
|
|
wo_rt rt;
|
|
T_EQ(wo_rt_init(&rt, 1 << 16, CLASSES, 3), 0);
|
|
wo_hdr *shared = wo_obj_new(&rt, 1); /* rc = 1 (creating ref) */
|
|
wo_rc_inc(shared); /* holder's reference */
|
|
T_EQ(shared->rc, 2);
|
|
wo_hdr *holder = wo_obj_new(&rt, 2);
|
|
wo_fields(holder)[0] = (uint64_t)(uintptr_t)shared;
|
|
wo_drop_obj(&rt, holder); /* drops holder, decrements shared to 1 */
|
|
T_EQ(shared->rc, 1);
|
|
wo_rc_dec(&rt, shared); /* final ref gone -> freed (ASan-proven) */
|
|
wo_rt_destroy(&rt);
|
|
}
|
|
|
|
/* Text and multi-of-text fields are freed with the holder. */
|
|
static void test_container_fields_freed_with_holder(void) {
|
|
wo_rt rt;
|
|
T_EQ(wo_rt_init(&rt, 1 << 16, CLASSES, 3), 0);
|
|
wo_multi *tags = wo_multi_new(&rt, WO_K_TEXT);
|
|
T_EQ(wo_multi_push(tags, (uint64_t)(uintptr_t)wo_str_new(&rt, "a", 1)), 0);
|
|
T_EQ(wo_multi_push(tags, (uint64_t)(uintptr_t)wo_str_new(&rt, "b", 1)), 0);
|
|
wo_hdr *holder = wo_obj_new(&rt, 2);
|
|
wo_fields(holder)[1] = (uint64_t)(uintptr_t)tags;
|
|
wo_drop_obj(&rt, holder); /* frees holder + multi + both strings */
|
|
T_CHECK(1);
|
|
wo_rt_destroy(&rt);
|
|
}
|
|
|
|
/* rc_inc/rc_dec pairing frees exactly at zero. */
|
|
static void test_rc_zero_frees(void) {
|
|
wo_rt rt;
|
|
T_EQ(wo_rt_init(&rt, 1 << 16, CLASSES, 3), 0);
|
|
wo_hdr *s = wo_obj_new(&rt, 1);
|
|
wo_rc_inc(s);
|
|
wo_rc_inc(s);
|
|
T_EQ(s->rc, 3);
|
|
wo_rc_dec(&rt, s);
|
|
wo_rc_dec(&rt, s);
|
|
T_EQ(s->rc, 1);
|
|
wo_rc_dec(&rt, s); /* freed here */
|
|
wo_rt_destroy(&rt);
|
|
}
|
|
|
|
int main(void) {
|
|
setup_classes();
|
|
test_owned_tree_recursive_drop();
|
|
test_gcref_field_decrements();
|
|
test_container_fields_freed_with_holder();
|
|
test_rc_zero_frees();
|
|
return t_report("test_rc");
|
|
}
|