Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2025-01-31 19:57:43 +01:00
Code Issues Projects Releases Packages Wiki Activity

simplify compiled control flow instructions

Browse source
This commit is contained in:
Remko Tronçon 2022-04-17 15:47:06 +02:00
parent ef01a303ca
commit 9c647ef565
1 changed files with 8 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/waforth.wat
View file

@ -1931,14 +1931,8 @@
(func $compileIf
(call $compilePop)
(call $emitConst (i32.const 0))
;; ne
(i32.store8 (global.get $cp) (i32.const 0x47))
(global.set $cp (i32.add (global.get $cp) (i32.const 1)))
;; if (empty block)
(call $emitNotEqual)
(call $emitIf)
(global.set $branchNesting (i32.add (global.get $branchNesting) (i32.const 1))))
(func $compileThen
@ -2016,27 +2010,22 @@
(call $emitBr (i32.add (global.get $branchNesting) (i32.const 1))))
(func $compileBegin
(call $emitBlock)
(call $emitLoop)
(global.set $branchNesting (i32.add (global.get $branchNesting) (i32.const 2))))
(func $compileWhile
(call $compilePop)
(call $emitEqualsZero)
(call $emitBrIf (i32.const 1)))
(call $compileIf))
(func $compileRepeat
(call $emitBr (i32.const 0))
(call $emitBr (i32.const 1)) ;; Jump across while to repeat
(call $emitEnd)
(call $emitEnd)
(global.set $branchNesting (i32.sub (global.get $branchNesting) (i32.const 2))))
(global.set $branchNesting (i32.sub (global.get $branchNesting) (i32.const 1))))
(func $compileUntil
(call $compilePop)
(call $emitEqualsZero)
(call $emitBrIf (i32.const 0))
(call $emitBr (i32.const 1))
(call $emitEnd)
(call $emitEnd)
(global.set $branchNesting (i32.sub (global.get $branchNesting) (i32.const 2))))
@ -2133,6 +2122,10 @@
(i32.store8 (global.get $cp) (i32.const 0x45))
(global.set $cp (i32.add (global.get $cp) (i32.const 1))))
(func $emitNotEqual
(i32.store8 (global.get $cp) (i32.const 0x47))
(global.set $cp (i32.add (global.get $cp) (i32.const 1))))
(func $emitGreaterEqualSigned
(i32.store8 (global.get $cp) (i32.const 0x4e))
(global.set $cp (i32.add (global.get $cp) (i32.const 1))))