mirror of
https://github.com/fluencelabs/wasmer
synced 2024-12-14 14:45:40 +00:00
442 lines
15 KiB
Plaintext
442 lines
15 KiB
Plaintext
|
;; Test `loop` opcode
|
||
|
|
||
|
(module
|
||
|
(memory 1)
|
||
|
|
||
|
(func $dummy)
|
||
|
|
||
|
(func (export "empty")
|
||
|
(loop)
|
||
|
(loop $l)
|
||
|
)
|
||
|
|
||
|
(func (export "singular") (result i32)
|
||
|
(loop (nop))
|
||
|
(loop (result i32) (i32.const 7))
|
||
|
)
|
||
|
|
||
|
(func (export "multi") (result i32)
|
||
|
(loop (call $dummy) (call $dummy) (call $dummy) (call $dummy))
|
||
|
(loop (result i32) (call $dummy) (call $dummy) (call $dummy) (i32.const 8))
|
||
|
)
|
||
|
|
||
|
(func (export "nested") (result i32)
|
||
|
(loop (result i32)
|
||
|
(loop (call $dummy) (block) (nop))
|
||
|
(loop (result i32) (call $dummy) (i32.const 9))
|
||
|
)
|
||
|
)
|
||
|
|
||
|
(func (export "deep") (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(loop (result i32) (block (result i32)
|
||
|
(call $dummy) (i32.const 150)
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
))
|
||
|
)
|
||
|
|
||
|
(func (export "as-select-first") (result i32)
|
||
|
(select (loop (result i32) (i32.const 1)) (i32.const 2) (i32.const 3))
|
||
|
)
|
||
|
(func (export "as-select-mid") (result i32)
|
||
|
(select (i32.const 2) (loop (result i32) (i32.const 1)) (i32.const 3))
|
||
|
)
|
||
|
(func (export "as-select-last") (result i32)
|
||
|
(select (i32.const 2) (i32.const 3) (loop (result i32) (i32.const 1)))
|
||
|
)
|
||
|
|
||
|
(func (export "as-if-condition")
|
||
|
(loop (result i32) (i32.const 1)) (if (then (call $dummy)))
|
||
|
)
|
||
|
(func (export "as-if-then") (result i32)
|
||
|
(if (result i32) (i32.const 1) (then (loop (result i32) (i32.const 1))) (else (i32.const 2)))
|
||
|
)
|
||
|
(func (export "as-if-else") (result i32)
|
||
|
(if (result i32) (i32.const 1) (then (i32.const 2)) (else (loop (result i32) (i32.const 1))))
|
||
|
)
|
||
|
|
||
|
(func (export "as-br_if-first") (result i32)
|
||
|
(block (result i32) (br_if 0 (loop (result i32) (i32.const 1)) (i32.const 2)))
|
||
|
)
|
||
|
(func (export "as-br_if-last") (result i32)
|
||
|
(block (result i32) (br_if 0 (i32.const 2) (loop (result i32) (i32.const 1))))
|
||
|
)
|
||
|
|
||
|
(func (export "as-br_table-first") (result i32)
|
||
|
(block (result i32) (loop (result i32) (i32.const 1)) (i32.const 2) (br_table 0 0))
|
||
|
)
|
||
|
(func (export "as-br_table-last") (result i32)
|
||
|
(block (result i32) (i32.const 2) (loop (result i32) (i32.const 1)) (br_table 0 0))
|
||
|
)
|
||
|
|
||
|
(func $func (param i32 i32) (result i32) (get_local 0))
|
||
|
(type $check (func (param i32 i32) (result i32)))
|
||
|
(table anyfunc (elem $func))
|
||
|
(func (export "as-call_indirect-first") (result i32)
|
||
|
(block (result i32)
|
||
|
(call_indirect (type $check)
|
||
|
(loop (result i32) (i32.const 1)) (i32.const 2) (i32.const 0)
|
||
|
)
|
||
|
)
|
||
|
)
|
||
|
(func (export "as-call_indirect-mid") (result i32)
|
||
|
(block (result i32)
|
||
|
(call_indirect (type $check)
|
||
|
(i32.const 2) (loop (result i32) (i32.const 1)) (i32.const 0)
|
||
|
)
|
||
|
)
|
||
|
)
|
||
|
(func (export "as-call_indirect-last") (result i32)
|
||
|
(block (result i32)
|
||
|
(call_indirect (type $check)
|
||
|
(i32.const 1) (i32.const 2) (loop (result i32) (i32.const 0))
|
||
|
)
|
||
|
)
|
||
|
)
|
||
|
|
||
|
(func (export "as-store-first")
|
||
|
(loop (result i32) (i32.const 1)) (i32.const 1) (i32.store)
|
||
|
)
|
||
|
(func (export "as-store-last")
|
||
|
(i32.const 10) (loop (result i32) (i32.const 1)) (i32.store)
|
||
|
)
|
||
|
|
||
|
(func (export "as-memory.grow-value") (result i32)
|
||
|
(memory.grow (loop (result i32) (i32.const 1)))
|
||
|
)
|
||
|
|
||
|
(func $f (param i32) (result i32) (get_local 0))
|
||
|
|
||
|
(func (export "as-call-value") (result i32)
|
||
|
(call $f (loop (result i32) (i32.const 1)))
|
||
|
)
|
||
|
(func (export "as-return-value") (result i32)
|
||
|
(loop (result i32) (i32.const 1)) (return)
|
||
|
)
|
||
|
(func (export "as-drop-operand")
|
||
|
(drop (loop (result i32) (i32.const 1)))
|
||
|
)
|
||
|
(func (export "as-br-value") (result i32)
|
||
|
(block (result i32) (br 0 (loop (result i32) (i32.const 1))))
|
||
|
)
|
||
|
(func (export "as-set_local-value") (result i32)
|
||
|
(local i32) (set_local 0 (loop (result i32) (i32.const 1))) (get_local 0)
|
||
|
)
|
||
|
(func (export "as-tee_local-value") (result i32)
|
||
|
(local i32) (tee_local 0 (loop (result i32) (i32.const 1)))
|
||
|
)
|
||
|
(global $a (mut i32) (i32.const 0))
|
||
|
(func (export "as-set_global-value") (result i32)
|
||
|
(set_global $a (loop (result i32) (i32.const 1)))
|
||
|
(get_global $a)
|
||
|
)
|
||
|
(func (export "as-load-operand") (result i32)
|
||
|
(i32.load (loop (result i32) (i32.const 1)))
|
||
|
)
|
||
|
|
||
|
(func (export "as-unary-operand") (result i32)
|
||
|
(i32.ctz (loop (result i32) (call $dummy) (i32.const 13)))
|
||
|
)
|
||
|
(func (export "as-binary-operand") (result i32)
|
||
|
(i32.mul
|
||
|
(loop (result i32) (call $dummy) (i32.const 3))
|
||
|
(loop (result i32) (call $dummy) (i32.const 4))
|
||
|
)
|
||
|
)
|
||
|
(func (export "as-test-operand") (result i32)
|
||
|
(i32.eqz (loop (result i32) (call $dummy) (i32.const 13)))
|
||
|
)
|
||
|
(func (export "as-compare-operand") (result i32)
|
||
|
(f32.gt
|
||
|
(loop (result f32) (call $dummy) (f32.const 3))
|
||
|
(loop (result f32) (call $dummy) (f32.const 3))
|
||
|
)
|
||
|
)
|
||
|
|
||
|
(func (export "break-bare") (result i32)
|
||
|
(block (loop (br 1) (br 0) (unreachable)))
|
||
|
(block (loop (br_if 1 (i32.const 1)) (unreachable)))
|
||
|
(block (loop (br_table 1 (i32.const 0)) (unreachable)))
|
||
|
(block (loop (br_table 1 1 1 (i32.const 1)) (unreachable)))
|
||
|
(i32.const 19)
|
||
|
)
|
||
|
(func (export "break-value") (result i32)
|
||
|
(block (result i32)
|
||
|
(loop (result i32) (br 1 (i32.const 18)) (br 0) (i32.const 19))
|
||
|
)
|
||
|
)
|
||
|
(func (export "break-repeated") (result i32)
|
||
|
(block (result i32)
|
||
|
(loop (result i32)
|
||
|
(br 1 (i32.const 18))
|
||
|
(br 1 (i32.const 19))
|
||
|
(drop (br_if 1 (i32.const 20) (i32.const 0)))
|
||
|
(drop (br_if 1 (i32.const 20) (i32.const 1)))
|
||
|
(br 1 (i32.const 21))
|
||
|
(br_table 1 (i32.const 22) (i32.const 0))
|
||
|
(br_table 1 1 1 (i32.const 23) (i32.const 1))
|
||
|
(i32.const 21)
|
||
|
)
|
||
|
)
|
||
|
)
|
||
|
(func (export "break-inner") (result i32)
|
||
|
(local i32)
|
||
|
(set_local 0 (i32.const 0))
|
||
|
(set_local 0 (i32.add (get_local 0) (block (result i32) (loop (result i32) (block (result i32) (br 2 (i32.const 0x1)))))))
|
||
|
(set_local 0 (i32.add (get_local 0) (block (result i32) (loop (result i32) (loop (result i32) (br 2 (i32.const 0x2)))))))
|
||
|
(set_local 0 (i32.add (get_local 0) (block (result i32) (loop (result i32) (block (result i32) (loop (result i32) (br 1 (i32.const 0x4))))))))
|
||
|
(set_local 0 (i32.add (get_local 0) (block (result i32) (loop (result i32) (i32.ctz (br 1 (i32.const 0x8)))))))
|
||
|
(set_local 0 (i32.add (get_local 0) (block (result i32) (loop (result i32) (i32.ctz (loop (result i32) (br 2 (i32.const 0x10))))))))
|
||
|
(get_local 0)
|
||
|
)
|
||
|
(func (export "cont-inner") (result i32)
|
||
|
(local i32)
|
||
|
(set_local 0 (i32.const 0))
|
||
|
(set_local 0 (i32.add (get_local 0) (loop (result i32) (loop (result i32) (br 1)))))
|
||
|
(set_local 0 (i32.add (get_local 0) (loop (result i32) (i32.ctz (br 0)))))
|
||
|
(set_local 0 (i32.add (get_local 0) (loop (result i32) (i32.ctz (loop (result i32) (br 1))))))
|
||
|
(get_local 0)
|
||
|
)
|
||
|
|
||
|
(func $fx (export "effects") (result i32)
|
||
|
(local i32)
|
||
|
(block
|
||
|
(loop
|
||
|
(set_local 0 (i32.const 1))
|
||
|
(set_local 0 (i32.mul (get_local 0) (i32.const 3)))
|
||
|
(set_local 0 (i32.sub (get_local 0) (i32.const 5)))
|
||
|
(set_local 0 (i32.mul (get_local 0) (i32.const 7)))
|
||
|
(br 1)
|
||
|
(set_local 0 (i32.mul (get_local 0) (i32.const 100)))
|
||
|
)
|
||
|
)
|
||
|
(i32.eq (get_local 0) (i32.const -14))
|
||
|
)
|
||
|
|
||
|
(func (export "while") (param i64) (result i64)
|
||
|
(local i64)
|
||
|
(set_local 1 (i64.const 1))
|
||
|
(block
|
||
|
(loop
|
||
|
(br_if 1 (i64.eqz (get_local 0)))
|
||
|
(set_local 1 (i64.mul (get_local 0) (get_local 1)))
|
||
|
(set_local 0 (i64.sub (get_local 0) (i64.const 1)))
|
||
|
(br 0)
|
||
|
)
|
||
|
)
|
||
|
(get_local 1)
|
||
|
)
|
||
|
|
||
|
(func (export "for") (param i64) (result i64)
|
||
|
(local i64 i64)
|
||
|
(set_local 1 (i64.const 1))
|
||
|
(set_local 2 (i64.const 2))
|
||
|
(block
|
||
|
(loop
|
||
|
(br_if 1 (i64.gt_u (get_local 2) (get_local 0)))
|
||
|
(set_local 1 (i64.mul (get_local 1) (get_local 2)))
|
||
|
(set_local 2 (i64.add (get_local 2) (i64.const 1)))
|
||
|
(br 0)
|
||
|
)
|
||
|
)
|
||
|
(get_local 1)
|
||
|
)
|
||
|
|
||
|
(func (export "nesting") (param f32 f32) (result f32)
|
||
|
(local f32 f32)
|
||
|
(block
|
||
|
(loop
|
||
|
(br_if 1 (f32.eq (get_local 0) (f32.const 0)))
|
||
|
(set_local 2 (get_local 1))
|
||
|
(block
|
||
|
(loop
|
||
|
(br_if 1 (f32.eq (get_local 2) (f32.const 0)))
|
||
|
(br_if 3 (f32.lt (get_local 2) (f32.const 0)))
|
||
|
(set_local 3 (f32.add (get_local 3) (get_local 2)))
|
||
|
(set_local 2 (f32.sub (get_local 2) (f32.const 2)))
|
||
|
(br 0)
|
||
|
)
|
||
|
)
|
||
|
(set_local 3 (f32.div (get_local 3) (get_local 0)))
|
||
|
(set_local 0 (f32.sub (get_local 0) (f32.const 1)))
|
||
|
(br 0)
|
||
|
)
|
||
|
)
|
||
|
(get_local 3)
|
||
|
)
|
||
|
)
|
||
|
|
||
|
(assert_return (invoke "empty"))
|
||
|
(assert_return (invoke "singular") (i32.const 7))
|
||
|
(assert_return (invoke "multi") (i32.const 8))
|
||
|
(assert_return (invoke "nested") (i32.const 9))
|
||
|
(assert_return (invoke "deep") (i32.const 150))
|
||
|
|
||
|
(assert_return (invoke "as-select-first") (i32.const 1))
|
||
|
(assert_return (invoke "as-select-mid") (i32.const 2))
|
||
|
(assert_return (invoke "as-select-last") (i32.const 2))
|
||
|
|
||
|
(assert_return (invoke "as-if-condition"))
|
||
|
(assert_return (invoke "as-if-then") (i32.const 1))
|
||
|
(assert_return (invoke "as-if-else") (i32.const 2))
|
||
|
|
||
|
(assert_return (invoke "as-br_if-first") (i32.const 1))
|
||
|
(assert_return (invoke "as-br_if-last") (i32.const 2))
|
||
|
|
||
|
(assert_return (invoke "as-br_table-first") (i32.const 1))
|
||
|
(assert_return (invoke "as-br_table-last") (i32.const 2))
|
||
|
|
||
|
(assert_return (invoke "as-call_indirect-first") (i32.const 1))
|
||
|
(assert_return (invoke "as-call_indirect-mid") (i32.const 2))
|
||
|
(assert_return (invoke "as-call_indirect-last") (i32.const 1))
|
||
|
|
||
|
(assert_return (invoke "as-store-first"))
|
||
|
(assert_return (invoke "as-store-last"))
|
||
|
|
||
|
(assert_return (invoke "as-memory.grow-value") (i32.const 1))
|
||
|
(assert_return (invoke "as-call-value") (i32.const 1))
|
||
|
(assert_return (invoke "as-return-value") (i32.const 1))
|
||
|
(assert_return (invoke "as-drop-operand"))
|
||
|
(assert_return (invoke "as-br-value") (i32.const 1))
|
||
|
(assert_return (invoke "as-set_local-value") (i32.const 1))
|
||
|
(assert_return (invoke "as-tee_local-value") (i32.const 1))
|
||
|
(assert_return (invoke "as-set_global-value") (i32.const 1))
|
||
|
(assert_return (invoke "as-load-operand") (i32.const 1))
|
||
|
|
||
|
(assert_return (invoke "as-unary-operand") (i32.const 0))
|
||
|
(assert_return (invoke "as-binary-operand") (i32.const 12))
|
||
|
(assert_return (invoke "as-test-operand") (i32.const 0))
|
||
|
(assert_return (invoke "as-compare-operand") (i32.const 0))
|
||
|
|
||
|
(assert_return (invoke "break-bare") (i32.const 19))
|
||
|
(assert_return (invoke "break-value") (i32.const 18))
|
||
|
(assert_return (invoke "break-repeated") (i32.const 18))
|
||
|
(assert_return (invoke "break-inner") (i32.const 0x1f))
|
||
|
|
||
|
(assert_return (invoke "effects") (i32.const 1))
|
||
|
|
||
|
(assert_return (invoke "while" (i64.const 0)) (i64.const 1))
|
||
|
(assert_return (invoke "while" (i64.const 1)) (i64.const 1))
|
||
|
(assert_return (invoke "while" (i64.const 2)) (i64.const 2))
|
||
|
(assert_return (invoke "while" (i64.const 3)) (i64.const 6))
|
||
|
(assert_return (invoke "while" (i64.const 5)) (i64.const 120))
|
||
|
(assert_return (invoke "while" (i64.const 20)) (i64.const 2432902008176640000))
|
||
|
|
||
|
(assert_return (invoke "for" (i64.const 0)) (i64.const 1))
|
||
|
(assert_return (invoke "for" (i64.const 1)) (i64.const 1))
|
||
|
(assert_return (invoke "for" (i64.const 2)) (i64.const 2))
|
||
|
(assert_return (invoke "for" (i64.const 3)) (i64.const 6))
|
||
|
(assert_return (invoke "for" (i64.const 5)) (i64.const 120))
|
||
|
(assert_return (invoke "for" (i64.const 20)) (i64.const 2432902008176640000))
|
||
|
|
||
|
(assert_return (invoke "nesting" (f32.const 0) (f32.const 7)) (f32.const 0))
|
||
|
(assert_return (invoke "nesting" (f32.const 7) (f32.const 0)) (f32.const 0))
|
||
|
(assert_return (invoke "nesting" (f32.const 1) (f32.const 1)) (f32.const 1))
|
||
|
(assert_return (invoke "nesting" (f32.const 1) (f32.const 2)) (f32.const 2))
|
||
|
(assert_return (invoke "nesting" (f32.const 1) (f32.const 3)) (f32.const 4))
|
||
|
(assert_return (invoke "nesting" (f32.const 1) (f32.const 4)) (f32.const 6))
|
||
|
(assert_return (invoke "nesting" (f32.const 1) (f32.const 100)) (f32.const 2550))
|
||
|
(assert_return (invoke "nesting" (f32.const 1) (f32.const 101)) (f32.const 2601))
|
||
|
(assert_return (invoke "nesting" (f32.const 2) (f32.const 1)) (f32.const 1))
|
||
|
(assert_return (invoke "nesting" (f32.const 3) (f32.const 1)) (f32.const 1))
|
||
|
(assert_return (invoke "nesting" (f32.const 10) (f32.const 1)) (f32.const 1))
|
||
|
(assert_return (invoke "nesting" (f32.const 2) (f32.const 2)) (f32.const 3))
|
||
|
(assert_return (invoke "nesting" (f32.const 2) (f32.const 3)) (f32.const 4))
|
||
|
(assert_return (invoke "nesting" (f32.const 7) (f32.const 4)) (f32.const 10.3095235825))
|
||
|
(assert_return (invoke "nesting" (f32.const 7) (f32.const 100)) (f32.const 4381.54785156))
|
||
|
(assert_return (invoke "nesting" (f32.const 7) (f32.const 101)) (f32.const 2601))
|
||
|
|
||
|
(assert_invalid
|
||
|
(module (func $type-empty-i32 (result i32) (loop)))
|
||
|
"type mismatch"
|
||
|
)
|
||
|
(assert_invalid
|
||
|
(module (func $type-empty-i64 (result i64) (loop)))
|
||
|
"type mismatch"
|
||
|
)
|
||
|
(assert_invalid
|
||
|
(module (func $type-empty-f32 (result f32) (loop)))
|
||
|
"type mismatch"
|
||
|
)
|
||
|
(assert_invalid
|
||
|
(module (func $type-empty-f64 (result f64) (loop)))
|
||
|
"type mismatch"
|
||
|
)
|
||
|
|
||
|
(assert_invalid
|
||
|
(module (func $type-value-num-vs-void
|
||
|
(loop (i32.const 1))
|
||
|
))
|
||
|
"type mismatch"
|
||
|
)
|
||
|
(assert_invalid
|
||
|
(module (func $type-value-empty-vs-num (result i32)
|
||
|
(loop (result i32))
|
||
|
))
|
||
|
"type mismatch"
|
||
|
)
|
||
|
(assert_invalid
|
||
|
(module (func $type-value-void-vs-num (result i32)
|
||
|
(loop (result i32) (nop))
|
||
|
))
|
||
|
"type mismatch"
|
||
|
)
|
||
|
(assert_invalid
|
||
|
(module (func $type-value-num-vs-num (result i32)
|
||
|
(loop (result i32) (f32.const 0))
|
||
|
))
|
||
|
"type mismatch"
|
||
|
)
|
||
|
(assert_invalid
|
||
|
(module (func $type-value-unreached-select (result i32)
|
||
|
(loop (result i64) (select (unreachable) (unreachable) (unreachable)))
|
||
|
))
|
||
|
"type mismatch"
|
||
|
)
|
||
|
|
||
|
|
||
|
(assert_malformed
|
||
|
(module quote "(func loop end $l)")
|
||
|
"mismatching label"
|
||
|
)
|
||
|
(assert_malformed
|
||
|
(module quote "(func loop $a end $l)")
|
||
|
"mismatching label"
|
||
|
)
|