PSON decoder example using namespaced imports

This commit is contained in:
dcodeIO
2017-12-30 05:11:58 +01:00
parent c67f87a988
commit 2888ba14ad
41 changed files with 1283 additions and 336 deletions

View File

@ -1,42 +1,132 @@
(module
(type $iv (func (param i32)))
(type $v (func))
(global $do/n (mut i32) (i32.const 10))
(global $do/m (mut i32) (i32.const 0))
(global $do/o (mut i32) (i32.const 0))
(memory $0 1)
(export "loopDo" (func $do/loopDo))
(export "loopDoInDo" (func $do/loopDoInDo))
(export "memory" (memory $0))
(func $do/loopDo (; 0 ;) (type $iv) (param $0 i32)
(start $start)
(func $start (; 0 ;) (type $v)
(local $0 i32)
(loop $continue|0
(br_if $continue|0
(tee_local $0
(i32.sub
(get_local $0)
(i32.const 1)
)
)
)
)
)
(func $do/loopDoInDo (; 1 ;) (type $iv) (param $0 i32)
(loop $continue|0
(set_local $0
(set_global $do/n
(i32.sub
(get_local $0)
(get_global $do/n)
(i32.const 1)
)
)
(loop $continue|1
(br_if $continue|1
(tee_local $0
(i32.sub
(get_local $0)
(i32.const 1)
)
)
(set_global $do/m
(i32.add
(get_global $do/m)
(i32.const 1)
)
)
(br_if $continue|0
(get_global $do/n)
)
)
(if
(get_global $do/n)
(unreachable)
)
(if
(i32.ne
(get_global $do/m)
(i32.const 10)
)
(unreachable)
)
(set_global $do/n
(i32.const 10)
)
(loop $continue|1
(set_global $do/n
(i32.sub
(tee_local $0
(get_global $do/n)
)
(i32.const 1)
)
)
(br_if $continue|1
(get_local $0)
)
)
(if
(i32.ne
(get_global $do/n)
(i32.const -1)
)
(unreachable)
)
(set_global $do/n
(i32.const 10)
)
(set_global $do/m
(i32.const 0)
)
(loop $continue|2
(set_global $do/n
(i32.sub
(get_global $do/n)
(i32.const 1)
)
)
(set_global $do/m
(i32.add
(get_global $do/m)
(i32.const 1)
)
)
(loop $continue|3
(set_global $do/n
(i32.sub
(get_global $do/n)
(i32.const 1)
)
)
(set_global $do/o
(i32.add
(get_global $do/o)
(i32.const 1)
)
)
(br_if $continue|3
(get_global $do/n)
)
)
(if
(get_global $do/n)
(unreachable)
)
(if
(i32.ne
(get_global $do/o)
(i32.const 9)
)
(unreachable)
)
(br_if $continue|2
(get_global $do/n)
)
)
(if
(get_global $do/n)
(unreachable)
)
(if
(i32.ne
(get_global $do/m)
(i32.const 1)
)
(unreachable)
)
(if
(i32.ne
(get_global $do/o)
(i32.const 9)
)
(unreachable)
)
)
)