miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Quick commit adding br instruction

Browse Source
This commit is contained in:
Nathan Braswell
2021-07-24 00:39:45 -04:00
parent ca25f2ca2b
commit ece3844c88
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
comp_wasm.kp
View File

@@ -13,6 +13,8 @@
(i32.const 1338) (i32.const 1338)
drop drop
drop drop
(br 0)
drop
) )
(i32.const 11) (i32.const 11)
(local.get $tmp2) (local.get $tmp2)

4
wasm.kp
View File

@@ -88,6 +88,7 @@
) (cond (= op 'unreachable) [0x00] ) (cond (= op 'unreachable) [0x00]
(= op 'nop) [0x01] (= op 'nop) [0x01]
(= op 'block) (concat [0x02] (encode_blocktype (idx ins 1)) (flat_map recurse (idx ins 2)) [0x0B]) (= op 'block) (concat [0x02] (encode_blocktype (idx ins 1)) (flat_map recurse (idx ins 2)) [0x0B])
(= op 'br) (concat [0x0C] (encode_u_LEB128 (idx ins 1)))
;... ;...
(= op 'return) [0x0F] (= op 'return) [0x0F]
(= op 'call) (condat [0x10] (encode_u_LEB128 (idx ins 1))) (= op 'call) (condat [0x10] (encode_u_LEB128 (idx ins 1)))
@@ -204,9 +205,10 @@
i32.add (lambda (& flatten) (concat (flat_map (lambda (x) x) flatten) [['i32.add]])) i32.add (lambda (& flatten) (concat (flat_map (lambda (x) x) flatten) [['i32.add]]))
block (lambda (& inner) [['block [] (flat_map (lambda (x) (cond (array? x) x block (lambda (& inner) [['block [] (flat_map (lambda (x) (cond (array? x) x
true (x))) inner)]]) true (x))) inner)]])
br (lambda (const) [['br const]])
export (vau de (name t_v) (lambda (name_dict type function memory export code) export (vau de (name t_v) (lambda (name_dict type function memory export code)
[ name_dict type function memory (concat export [ [ name (idx t_v 0) (get-value name_dict (idx t_v 1)) ] ]) code ] [ name_dict type function memory (concat export [ [ name (idx t_v 0) (get-value name_dict (idx t_v 1)) ] ]) code ]
)) ))
) )
(provide wasm_to_binary module func drop i32.const local.get i32.add block export) (provide wasm_to_binary module func drop i32.const local.get i32.add block br export)
)) ))