cdo/wipforth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Untabify WAT source

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-27 16:17:31 +00:00
parent 777531abc4
commit 938bd98ef6
1 changed files with 29 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
wipforth.wat
View File

@@ -345,7 +345,7 @@
call $pop
call $pop
i32.eq
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -353,7 +353,7 @@
call $pop
call $pop
i32.ne
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -363,7 +363,7 @@
call $pop
local.get $tmp
i32.lt_s
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -373,7 +373,7 @@
call $pop
local.get $tmp
i32.gt_s
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -383,7 +383,7 @@
call $pop
local.get $tmp
i32.le_s
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -393,14 +393,14 @@
call $pop
local.get $tmp
i32.ge_s
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
(func $zeq
call $pop
i32.eqz
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -408,7 +408,7 @@
call $pop
i32.const 0
i32.ne
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -416,7 +416,7 @@
call $pop
i32.const 0
i32.lt_s
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -424,7 +424,7 @@
call $pop
i32.const 0
i32.gt_s
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -432,7 +432,7 @@
call $pop
i32.const 0
i32.le_s
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -440,7 +440,7 @@
call $pop
i32.const 0
i32.ge_s
i32.const 0 i32.sub
i32.const 0 i32.sub
call $push
call $next)
@@ -640,25 +640,25 @@
;; Branching
(func $branch
global.get $ip
i32.load
global.get $ip
i32.add
global.set $ip
call $next)
global.get $ip
i32.load
global.get $ip
i32.add
global.set $ip
call $next)
(func $zbranch
call $pop
if (result i32)
i32.const 4
else
global.get $ip
i32.load
end
global.get $ip
i32.add
global.set $ip
call $next)
call $pop
if (result i32)
i32.const 4
else
global.get $ip
i32.load
end
global.get $ip
i32.add
global.set $ip
call $next)
;; The codewords function table must contain every codeword we want
;; to be able to run, as it's indices into this table that can be ran