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