81 lines
2.1 KiB
C++
81 lines
2.1 KiB
C++
/** @file DVsmEvalArgsFrame.cpp
|
|
*
|
|
* @author Roland Conybeare, Feb 2026
|
|
**/
|
|
|
|
#include "DVsmEvalArgsFrame.hpp"
|
|
#include <xo/indentlog/print/pretty.hpp>
|
|
|
|
namespace xo {
|
|
using xo::facet::typeseq;
|
|
using xo::print::ppindentinfo;
|
|
|
|
namespace scm {
|
|
|
|
// ----- VsmEvalArgsFrame -----
|
|
|
|
DVsmEvalArgsFrame::DVsmEvalArgsFrame(DVsmApplyFrame * parent,
|
|
VsmInstr cont,
|
|
const DApplyExpr * apply_expr)
|
|
: parent_{parent},
|
|
cont_{cont},
|
|
apply_expr_{apply_expr}
|
|
{}
|
|
|
|
DVsmEvalArgsFrame *
|
|
DVsmEvalArgsFrame::make(obj<AAllocator> mm,
|
|
DVsmApplyFrame * apply_frame,
|
|
VsmInstr cont,
|
|
const DApplyExpr * apply_expr)
|
|
{
|
|
DVsmEvalArgsFrame * result = nullptr;
|
|
|
|
void * mem = mm.alloc(typeseq::id<DVsmEvalArgsFrame>(),
|
|
sizeof(DVsmEvalArgsFrame));
|
|
|
|
result = new (mem) DVsmEvalArgsFrame(apply_frame, cont, apply_expr);
|
|
|
|
assert(result);
|
|
|
|
return result;
|
|
}
|
|
|
|
std::size_t
|
|
DVsmEvalArgsFrame::shallow_size() const noexcept
|
|
{
|
|
return sizeof(DVsmEvalArgsFrame);
|
|
}
|
|
|
|
DVsmEvalArgsFrame *
|
|
DVsmEvalArgsFrame::shallow_copy(obj<AAllocator> mm) const noexcept
|
|
{
|
|
DVsmEvalArgsFrame * copy = (DVsmEvalArgsFrame *)mm.alloc_copy((std::byte *)this);
|
|
|
|
if (copy)
|
|
*copy = *this;
|
|
|
|
return copy;
|
|
}
|
|
|
|
std::size_t
|
|
DVsmEvalArgsFrame::forward_children(obj<ACollector> gc) noexcept
|
|
{
|
|
(void)gc;
|
|
|
|
return this->shallow_size();
|
|
}
|
|
|
|
bool
|
|
DVsmEvalArgsFrame::pretty(const ppindentinfo & ppii) const
|
|
{
|
|
return ppii.pps()->pretty_struct
|
|
(ppii,
|
|
"DVsmEvalArgsFrame",
|
|
refrtag("cont", cont_),
|
|
refrtag("i_arg", i_arg_)
|
|
);
|
|
}
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
/* end VsmEvalArgsFrame.cpp */
|