xo-object2/src/object2/DBoolean.cpp
Roland Conybeare 4fdaa64085 xo-interpreter2 stack: + reason arg to visit_gco_children()
Helps streamline DX1Collector in xo-gc/.
Want both forward and verify entry points for the same
representation.
2026-04-10 01:10:03 -04:00

48 lines
1.1 KiB
C++

/** @file DBoolean.cpp
*
* @author Roland Conybeare, Jan 2026
**/
#include "DBoolean.hpp"
#include <xo/indentlog/print/pretty.hpp>
#include <xo/indentlog/scope.hpp>
namespace xo {
using xo::facet::typeseq;
using xo::print::ppdetail_atomic;
namespace scm {
DBoolean *
DBoolean::_box(obj<AAllocator> mm, bool x)
{
void * mem = mm.alloc(typeseq::id<DBoolean>(),
sizeof(DBoolean));
return new (mem) DBoolean(x);
}
bool
DBoolean::pretty(const ppindentinfo & ppii) const
{
return ppdetail_atomic<const char *>::print_pretty
(ppii,
(value_ ? "true" : "false"));
}
DBoolean *
DBoolean::gco_shallow_move(obj<AGCObjectVisitor> gc) noexcept
{
return gc.std_move_for(this);
}
void
DBoolean::visit_gco_children(VisitReason, obj<AGCObjectVisitor>) noexcept
{
// no-op. childless
}
} /*namespace scm*/
} /*namespace xo*/
/* end DBoolean.cpp */