63 lines
2 KiB
C++
63 lines
2 KiB
C++
/** @file DVsmApplyClosureFrame.hpp
|
|
*
|
|
* @author Roland Conybeare, Feb 2026
|
|
**/
|
|
|
|
#pragma once
|
|
|
|
#include "VsmInstr.hpp"
|
|
#include "DLocalEnv.hpp"
|
|
#include <xo/expression2/DApplyExpr.hpp>
|
|
|
|
namespace xo {
|
|
namespace scm {
|
|
|
|
/** Frame to preserve VSM registers:
|
|
* (stack_, parent_, cont_)
|
|
* while applying a closure.
|
|
**/
|
|
class DVsmApplyClosureFrame {
|
|
public:
|
|
using ACollector = xo::mm::ACollector;
|
|
using AGCObject = xo::mm::AGCObject;
|
|
using AGCObjectVisitor = xo::mm::AGCObjectVisitor;
|
|
using AAllocator = xo::mm::AAllocator;
|
|
using ppindentinfo = xo::print::ppindentinfo;
|
|
|
|
public:
|
|
DVsmApplyClosureFrame(obj<AGCObject> stack,
|
|
VsmInstr cont,
|
|
DLocalEnv * env);
|
|
|
|
/** create instance, using memory from @p mm **/
|
|
static DVsmApplyClosureFrame * make(obj<AAllocator> mm,
|
|
obj<AGCObject> parent,
|
|
VsmInstr cont,
|
|
DLocalEnv * env);
|
|
|
|
obj<AGCObject> parent() const { return stack_; }
|
|
VsmInstr cont() const { return cont_; }
|
|
DLocalEnv * local_env() const { return local_env_; }
|
|
|
|
/** gcobject facet **/
|
|
std::size_t shallow_size() const noexcept;
|
|
DVsmApplyClosureFrame * gco_shallow_move(obj<AGCObjectVisitor> gc) noexcept;
|
|
void visit_gco_children(obj<AGCObjectVisitor> gc) noexcept;
|
|
|
|
/** pretty-printing support **/
|
|
bool pretty(const ppindentinfo & ppii) const;
|
|
|
|
protected:
|
|
/** saved VSM stack_ register **/
|
|
obj<AGCObject> stack_;
|
|
/** saved VSM cont_ register **/
|
|
VsmInstr cont_;
|
|
/** saved VSM local_env_ register **/
|
|
DLocalEnv * local_env_ = nullptr;
|
|
};
|
|
|
|
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
/* end DVsmApplyClosureFrame.hpp */
|