Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2024-12-25 09:59:07 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

EXECUTE: Do a character load instead of full load

Browse source
This commit is contained in:
Remko Tronçon 2022-05-08 14:33:20 +02:00
parent 263b5a7f33
commit 75c6490dc5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/waforth.wat
View file

@ -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))