xo-interpreter2: + DVsmRcx. runtime context for vsm

src/interpreter2/CMakeLists.txt

@@ -25,10 +25,9 @@ set(SELF_SRCS
     IPrintable_DLocalEnv.cpp
     DLocalEnv.cpp
 
+    DVsmRcx.cpp
+
     VsmInstr.cpp
-
-
-    #IExpression_Any.cpp
     )
 
 xo_add_shared_library4(${SELF_LIB} ${PROJECT_NAME}Targets ${PROJECT_VERSION} 1 ${SELF_SRCS})

src/interpreter2/DVsmRcx.cpp

@@ -0,0 +1,25 @@
+/** @file DVsmRcx.cpp
+ *
+ *  @author Roland Conybeare, Feb 2026
+ **/
+
+#include "DVsmRcx.hpp"
+#include "VirtualSchematikaMachine.hpp"
+
+namespace xo {
+    using xo::mm::AAllocator;
+
+    namespace scm {
+
+        DVsmRcx::DVsmRcx(VirtualSchematikaMachine * vsm) : vsm_{vsm} {}
+
+        obj<AAllocator>
+        DVsmRcx::allocator() const noexcept
+        {
+            return vsm_->allocator();
+        }
+
+    } /*namespace scm*/
+} /*namespace xo*/
+
+/* end DVsmRcx.cpp */

src/interpreter2/VirtualSchematikaMachine.cpp

@@ -24,6 +24,7 @@ namespace xo {
     using xo::print::ppstate_standalone;
     using xo::mm::AGCObject;
     //using xo::mm::MemorySizeInfo;  // not used yet
+    using xo::mm::AAllocator;
     using xo::mm::DX1Collector;
     using xo::facet::FacetRegistry;
     using std::cout;
@@ -42,6 +43,12 @@ namespace xo {
             // TODO: allocate global_env
         }
 
+        obj<AAllocator>
+        VirtualSchematikaMachine::allocator() const noexcept
+        {
+            return mm_.to_op();
+        }
+
         void
         VirtualSchematikaMachine::visit_pools(const MemorySizeVisitor & visitor) const
         {