From a0b535f0a3ffa712a22a62155b5b4b27ef0bde7b Mon Sep 17 00:00:00 2001 From: Emin Arslan Date: Sun, 3 May 2026 19:19:41 +0300 Subject: [PATCH] fix: correct argument order for store operations Co-authored-by: aider (openrouter/deepseek/deepseek-v4-pro) --- forth_words.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/forth_words.c b/forth_words.c index 95987f5..7f0f560 100644 --- a/forth_words.c +++ b/forth_words.c @@ -402,8 +402,8 @@ void do_fetch(Word* w) { void do_store(Word* w) { (void)w; - int64_t val = data_pop(); int64_t addr = data_pop(); + int64_t val = data_pop(); if (addr < 0 || addr >= user_mem_size) { printf("Address out of bounds\n"); return; @@ -413,8 +413,8 @@ void do_store(Word* w) { void do_plus_store(Word* w) { (void)w; - int64_t val = data_pop(); int64_t addr = data_pop(); + int64_t val = data_pop(); if (addr < 0 || addr >= user_mem_size) { printf("Address out of bounds\n"); return; @@ -436,8 +436,8 @@ void do_cfetch(Word* w) { void do_cstore(Word* w) { (void)w; - int64_t val = data_pop(); int64_t addr = data_pop(); + int64_t val = data_pop(); int64_t max_byte = user_mem_size * (int64_t)sizeof(Cell); if (addr < 0 || addr >= max_byte) { printf("Address out of bounds\n");