68 lines
1.8 KiB
C++
68 lines
1.8 KiB
C++
/** @file VsmFrame.cpp
|
|
*
|
|
* @author Roland Conybeare, Feb 2026
|
|
**/
|
|
|
|
#include "VsmFrame.hpp"
|
|
|
|
namespace xo {
|
|
using xo::facet::typeseq;
|
|
|
|
namespace scm {
|
|
|
|
VsmApplyFrame::VsmApplyFrame(VsmFrame * old_parent,
|
|
VsmInstr old_cont,
|
|
DArray * args)
|
|
: VsmFrame(old_parent, old_cont),
|
|
args_{args}
|
|
{}
|
|
|
|
VsmApplyFrame *
|
|
VsmApplyFrame::make(obj<AAllocator> mm,
|
|
VsmFrame * old_parent,
|
|
VsmInstr old_cont,
|
|
DArray * args)
|
|
{
|
|
VsmApplyFrame * result = nullptr;
|
|
|
|
void * mem = mm.alloc(typeseq::id<VsmApplyFrame>(),
|
|
sizeof(VsmApplyFrame));
|
|
|
|
result = new (mem) VsmApplyFrame(old_parent,
|
|
old_cont,
|
|
args);
|
|
|
|
assert(result);
|
|
|
|
return result;
|
|
}
|
|
|
|
// ----- VsmEvalArgsFrame -----
|
|
|
|
VsmEvalArgsFrame::VsmEvalArgsFrame(VsmApplyFrame * old_parent,
|
|
VsmInstr old_cont)
|
|
: VsmFrame(old_parent, old_cont)
|
|
{}
|
|
|
|
VsmEvalArgsFrame *
|
|
VsmEvalArgsFrame::make(obj<AAllocator> mm,
|
|
VsmApplyFrame * apply_frame,
|
|
VsmInstr cont)
|
|
{
|
|
VsmEvalArgsFrame * result = nullptr;
|
|
|
|
void * mem = mm.alloc(typeseq::id<VsmEvalArgsFrame>(),
|
|
sizeof(VsmEvalArgsFrame));
|
|
|
|
result = new (mem) VsmEvalArgsFrame(apply_frame, cont);
|
|
|
|
assert(result);
|
|
|
|
return result;
|
|
}
|
|
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
/* end VsmFrame.cpp */
|
|
|