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

xo-alloc: mutation log tracking in working state + unit test

Browse source
This commit is contained in:
Roland Conybeare 2025-08-05 11:08:36 -05:00
commit 5d2fcf6498
25 changed files with 735 additions and 185 deletions
Download patch file Download diff file Expand all files Collapse all files

25
xo-object/src/object/List.cpp
View file

@ -4,13 +4,14 @@
**/
#include "List.hpp"
#include "xo/indentlog/scope.hpp"
#include <cassert>
#include <cstddef>
namespace xo {
namespace obj {
List::List(gp<Object> head, gp<List> tail)
: head_{head}, tail_{tail} {}
List::List(gp<Object> head, gp<List> rest)
: head_{head}, rest_{rest} {}
gp<List>
List::nil = new List(nullptr, nullptr);
@ -27,7 +28,7 @@ namespace xo {
gp<const List> l(this);
while (!l->is_nil()) {
++retval;
l = l->tail();
l = l->rest();
}
return retval;
@ -40,7 +41,7 @@ namespace xo {
while (i > 0) {
assert(!(rem->is_nil()));
rem = rem->tail();
rem = rem->rest();
--i;
}
@ -48,6 +49,18 @@ namespace xo {
}
void
List::assign_head(gp<Object> head)
{
Object::assign_member(this, &(this->head_), head);
}
void
List::assign_rest(gp<List> tail)
{
Object::assign_member(this, &(this->rest_), tail);
}
std::size_t
List::_shallow_size() const {
return sizeof(List);
@ -55,6 +68,8 @@ namespace xo {
Object *
List::_shallow_copy() const {
scope log(XO_DEBUG(Object::mm->debug_flag()));
assert(!(this->is_nil()));
Cpof cpof(this);
@ -65,7 +80,7 @@ namespace xo {
std::size_t
List::_forward_children() {
Object::_forward_inplace(head_);
Object::_forward_inplace(tail_);
Object::_forward_inplace(rest_);
return List::_shallow_size();
}
}