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

WORDS: Use type

Browse source
This commit is contained in:
Remko Tronçon 2022-05-21 20:04:54 +02:00
parent 1a29e17a24
commit 96490e1915
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/waforth.wat
View file

@ -1898,13 +1898,9 @@
(local.set $entryLF (i32.load (i32.add (local.get $entryP) (i32.const 4))))
(if (i32.eqz (i32.and (local.get $entryLF) (i32.const 0x20 (; = F_HIDDEN ;))))
(then
(local.set $p (i32.add (local.get $entryP) (i32.const 5)))
(local.set $pe (i32.add (local.get $p)
(i32.and (local.get $entryLF) (i32.const 0x1F (; = LENGTH_MASK ;)))))
(loop $emitLoop
(call $shell_emit (i32.load8_u (local.get $p)))
(local.set $p (i32.add (local.get $p) (i32.const 1)))
(br_if $emitLoop (i32.lt_s (local.get $p) (local.get $pe))))))
(call $type
(i32.and (local.get $entryLF) (i32.const 0x1F (; = LENGTH_MASK ;)))
(i32.add (local.get $entryP) (i32.const 5)))))
(call $shell_emit (i32.const 0x20))
(local.set $entryP (i32.load (local.get $entryP)))
(br_if $loop (local.get $entryP)))