60 lines
1.7 KiB
C++
60 lines
1.7 KiB
C++
/** @file DVsmDefContFrame.cpp
|
|
*
|
|
* @author Roland Conybeare, Feb 2026
|
|
**/
|
|
|
|
#include "DVsmDefContFrame.hpp"
|
|
#include <xo/expression2/DefineExpr.hpp>
|
|
#include <xo/alloc2/Collector.hpp>
|
|
|
|
namespace xo {
|
|
namespace scm {
|
|
|
|
DVsmDefContFrame::DVsmDefContFrame(obj<AGCObject> parent,
|
|
VsmInstr cont,
|
|
DDefineExpr * def_expr)
|
|
: parent_{parent},
|
|
cont_{cont},
|
|
def_expr_{def_expr}
|
|
{}
|
|
|
|
DVsmDefContFrame *
|
|
DVsmDefContFrame::make(obj<AAllocator> mm,
|
|
obj<AGCObject> parent,
|
|
VsmInstr cont,
|
|
DDefineExpr * def_expr)
|
|
{
|
|
void * mem = mm.alloc_for<DVsmDefContFrame>();
|
|
|
|
return new (mem) DVsmDefContFrame(parent, cont, def_expr);
|
|
}
|
|
|
|
// gcobject facet
|
|
|
|
DVsmDefContFrame *
|
|
DVsmDefContFrame::gco_shallow_move(obj<AGCObjectVisitor> gc) noexcept
|
|
{
|
|
return gc.std_move_for<DVsmDefContFrame>(this);
|
|
}
|
|
|
|
void
|
|
DVsmDefContFrame::visit_gco_children(obj<AGCObjectVisitor> gc) noexcept
|
|
{
|
|
gc.visit_child(&parent_);
|
|
gc.visit_child(&def_expr_);
|
|
}
|
|
|
|
// printable facet
|
|
|
|
bool
|
|
DVsmDefContFrame::pretty(const ppindentinfo & ppii) const noexcept
|
|
{
|
|
return ppii.pps()->pretty_struct(ppii,
|
|
"DVsmDefContFrame",
|
|
refrtag("cont", cont_));
|
|
}
|
|
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
/* end DVsmDefContFrame.cpp */
|