roland/xo-gc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xo-gc: utest: support assign_root

Browse source 
This is so we can generate garbage
This commit is contained in:
Roland Conybeare 2026-04-25 20:06:15 -04:00
commit e6540bd5fe
3 changed files with 46 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

21
utest/GcosTestutil.cpp
View file

@ -484,6 +484,27 @@ namespace ut {
xi2 = DInteger::box(alloc2, value);
}
break;
case Step::Cmd::assign_root:
{
is_alloc = false;
auto z1 = p_x1_v->at(cmd.arg1_ix_).alloc_z_;
auto tseq1 = p_x1_v->at(cmd.arg1_ix_).tseq_;
auto rhs1 = p_x1_v->at(cmd.arg1_ix_).gco_;
auto z2 = p_x2_v->at(cmd.arg1_ix_).alloc_z_;
auto tseq2 = p_x2_v->at(cmd.arg1_ix_).tseq_;
auto rhs2 = p_x2_v->at(cmd.arg1_ix_).gco_;
p_x1_v->at(cmd.arg0_ix_).alloc_z_ = z1;
p_x1_v->at(cmd.arg0_ix_).tseq_ = tseq1;
p_x1_v->at(cmd.arg0_ix_).gco_ = rhs1;
p_x2_v->at(cmd.arg0_ix_).alloc_z_ = z2;
p_x2_v->at(cmd.arg0_ix_).tseq_ = tseq2;
p_x2_v->at(cmd.arg0_ix_).gco_ = rhs2;
}
break;
case Step::Cmd::assign_head:
{
is_alloc = false;

14
utest/GcosTestutil.hpp
View file

@ -31,6 +31,8 @@ namespace ut {
make_bool,
/** allocate an integer **/
make_int,
/** assign a top-level value from one slot to another **/
assign_root,
/** modify the head of a list x1_v[arg0_ix_]; replace with x1_v[arg1_ix_] **/
assign_head,
@ -49,10 +51,16 @@ namespace ut {
* 0 -> false, 1 -> true
* when cmd_ is make_int:
* value of integer
* when cmd_ is assign_root:
* index of lhs value to replace
**/
uint32_t arg0_ix_;
/** arg1 object index (index into x1_v[]) **/
uint32_t arg1_ix_;
uint32_t arg0_ix_ = 0;
/** arg1 object index (index into x1_v[])
*
* when cmd_ is assign_root:
* index of rhs value to assign
**/
uint32_t arg1_ix_ = 0;
};
/** a phase comprises:

19
utest/MutationLogStore.test.cpp
View file

@ -265,22 +265,31 @@ namespace ut {
{Cmd::make_nil, 0, 0}, // [1]: #nil
{Cmd::make_cons, 0, 1}, // [2]: cons([0],[1]) -> cons(99,#nil)
// 1st gc
// phase 0 gc (1st gc)
// ----- phase 1 -----
{Cmd::make_int, 15, 0}, // [3]: 15
{Cmd::assign_head, 2, 3}, // set-car([2],[3]) -> set-car([2],15)
// 2nd gc. [1]..[2] promote to g1
// phase 1 gc (2nd gc)
// [1]..[2] promote to g1
// [3] in g0 so [2]->[3] requires mlog entry
// ----- phase 2 -----
{Cmd::make_int, 24, 0}, // [4]: 33
{Cmd::assign_head, 2, 4}, // set-car([2],[4]) -> set-car([2],33)
// phase 2 gc (3rd gc)
// ----- phase 3 -----
{Cmd::assign_root, 2, 0}, // [2] = [0] = 99
// o.g. [2] now garbage
// ----- phase 4 -----
// ----- end -----
{Cmd::sentinel, 0, 0},
};
@ -292,8 +301,8 @@ namespace ut {
{ 0, 3, {0} }, // phase 0 gc
{ 3, 5, {1} }, // phase 1 gc. set-car makes 1x xage ptr
{ 5, 7, {2} }, // phase 2 gc. now src in g1, dest [3] in g0
{ 7, 7, {1} }, // phase 3 gc. new dest [4] in g0
{ 7, 7, {0} }, // phase 4 gc. now dest in g1
{ 7, 8, {1} }, // phase 3 gc. new dest [4] in g0
{ 8, 8, {0} }, // phase 4 gc. now dest [4] in g1
{ -1, -1, {0} },
};
@ -331,7 +340,7 @@ namespace ut {
Testcase(2, 1, 16 * 1024, 8 * 128, T, seq_2, 128, T, c_fixed, 3, 0, 0, 0, 0, F),
Testcase(2, 2, 16 * 1024, 8 * 128, T, seq_3, 128, T, c_fixed, 4, 0, 0, 0, 0, F),
Testcase(2, 2, 16 * 1024, 8 * 128, T, seq_4, 128, T, c_fixed, 4, 0, 0, 0, 0, F),
Testcase(2, 2, 16 * 1024, 8 * 128, T, seq_5, 128, T, c_fixed, 4, 0, 0, 0, 0, F),
Testcase(2, 2, 16 * 1024, 8 * 128, T, seq_5, 128, T, c_fixed, 4, 0, 0, 0, 0, T),
};
# undef T