38 lines
1,012 B
C++
38 lines
1,012 B
C++
/** @file VsmFrame.hpp
|
|
*
|
|
* @author Roland Conybeare, Feb 2026
|
|
**/
|
|
|
|
#pragma once
|
|
|
|
#include "VsmInstr.hpp"
|
|
#include <xo/procedure2/Procedure.hpp>
|
|
#include <xo/object2/DArray.hpp>
|
|
|
|
namespace xo {
|
|
namespace scm {
|
|
class VsmFrame {
|
|
public:
|
|
using AGCObject = xo::mm::AGCObject;
|
|
|
|
public:
|
|
VsmFrame(obj<AGCObject> parent,
|
|
VsmInstr cont) : parent_{parent}, cont_{cont} {}
|
|
|
|
//obj<AGCObject> parent() const noexcept { return parent_; }
|
|
VsmFrame * parent() const noexcept {
|
|
return reinterpret_cast<VsmFrame *>(parent_.data());
|
|
}
|
|
VsmInstr cont() const noexcept { return cont_; }
|
|
|
|
protected:
|
|
/** saved VSM stack; restore when this frame consumed **/
|
|
obj<AGCObject> parent_;
|
|
/** saved continuation; restore when this frame consumed **/
|
|
VsmInstr cont_;
|
|
};
|
|
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
/* end VsmFrame.hpp */
|