From 24a61f3c99125c97ca79ea173c959d7bd89f1a48 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Fri, 17 Feb 2023 08:15:30 -0500
Subject: some cleanup

---
 state.cpp | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'state.cpp')

diff --git a/state.cpp b/state.cpp
index ae9c059..0fe0905 100644
--- a/state.cpp
+++ b/state.cpp
@@ -16,6 +16,7 @@
  * along with this program.  If not, see <https://www.gnu.org/licenses/>.
  */
 
+#include "corewords.hpp"
 #include "state.hpp"
 
 #include <iterator>
@@ -37,6 +38,17 @@ void State::compiling(bool yes)
     dict.write(Dictionary::Compiling, yes);
 }
 
+void State::execute(Addr addr)
+{
+    pushr(0);
+    ip = addr - sizeof(Cell);
+
+    do {
+        ip += sizeof(Cell);
+        CoreWords::run(dict.read(ip), *this);
+    } while (ip);
+}
+
 Cell State::beyondip() const
 {
     return dict.read(ip + sizeof(Cell));
-- 
cgit v1.2.3