From 75c6490dc56fbc739eb0c65515e338072dcfe654 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Remko=20Tron=C3=A7on?= <remko@el-tramo.be>
Date: Sun, 8 May 2022 14:33:20 +0200
Subject: [PATCH] EXECUTE: Do a character load instead of full load

---
 src/waforth.wat | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/waforth.wat b/src/waforth.wat
index 6a326bd..35cf92e 100644
--- a/src/waforth.wat
+++ b/src/waforth.wat
@@ -1042,7 +1042,7 @@
     (local $body i32)
     (local.get $tos)
     (local.set $body (call $body (local.tee $xt (call $pop))))
-    (if (param i32) (result i32) (i32.and (i32.load (i32.add (local.get $xt) (i32.const 4)))
+    (if (param i32) (result i32) (i32.and (i32.load8_u (i32.add (local.get $xt) (i32.const 4)))
                   (i32.const 0x40 (; = F_DATA ;)))
       (then
         (call_indirect (type $dataWord) (i32.add (local.get $body) (i32.const 4))