1 files changed, 87 insertions, 0 deletions
diff --git a/src/op/i64_store.c b/src/op/i64_store.c
new file mode 100644
index 0000000..fbae8b4
--- /dev/null
+++ b/src/op/i64_store.c
@@ -0,0 +1,87 @@
+/*
+* nanowasm, a tiny WebAssembly/Wasm interpreter
+* Copyright (C) 2023-2025  Xavier Del Campo Romero
+*
+* This Source Code Form is subject to the terms of the Mozilla Public
+* License, v. 2.0. If a copy of the MPL was not distributed with this
+* file, You can obtain one at https://mozilla.org/MPL/2.0/.
+*/
+
+#include <nanowasm/nw.h>
+#include <nw/linear.h>
+#include <nw/io.h>
+#include <nw/interp.h>
+#include <nw/stack.h>
+#include <nw/log.h>
+#include <nw/ops.h>
+#include <nw/routines.h>
+
+static enum nw_state store(struct nw_interp *const i)
+{
+    struct nw_i_sm_store *const s = &i->sm.store;
+    const enum nw_state n = nwp_linear_store(i, &s->io,
+        s->addr + s->imm.offset);
+
+    if (n)
+        return n;
+
+    nwp_interp_resume(i);
+    return NW_AGAIN;
+}
+
+static enum nw_state pop_addr(struct nw_interp *const i)
+{
+    struct nw_i_sm_store *const s = &i->sm.store;
+    const enum nw_state n = nwp_stack_pop(i, &s->io);
+
+    if (n)
+        return n;
+    else
+    {
+        struct nw_sm_io io = {0};
+
+        io.buf = &s->value.i64;
+        io.n = sizeof s->value.i64;
+        s->io = io;
+        i->next = store;
+    }
+
+    return NW_AGAIN;
+}
+
+static enum nw_state pop_value(struct nw_interp *const i)
+{
+    struct nw_i_sm_store *const s = &i->sm.store;
+    const enum nw_state n = nwp_stack_pop(i, &s->io);
+
+    if (n)
+        return n;
+    else
+    {
+        struct nw_sm_io io = {0};
+
+        nwp_leuint64(&s->value.v64, &s->value.i64);
+        io.buf = &s->addr;
+        io.n = sizeof s->addr;
+        s->io = io;
+        i->next = pop_addr;
+    }
+
+    return NW_AGAIN;
+}
+
+static void prepare(struct nw_interp *const i)
+{
+    struct nw_i_sm_store *const ps = &i->sm.store, s = {0};
+
+    s.imm = i->sm.imm.out;
+    s.io.buf = &ps->value.v64;
+    s.io.n = sizeof ps->value.v64;
+    *ps =s;
+    i->next = pop_value;
+}
+
+void nwp_op_i64_store(struct nw_interp *const i)
+{
+    nwp_mem_imm(i, prepare);
+}