mirror of
https://github.com/fluencelabs/wasmer
synced 2024-12-13 14:25:32 +00:00
74875ed554
* Move wasmer-runtime to wasmer-runtime-core * Add the runtime library * Fix issue with macros using wasmer_runtime, fmt * Make default compiler dependency optional * Add instantiate and validate functions
205 lines
5.5 KiB
Plaintext
205 lines
5.5 KiB
Plaintext
;; Test `set_local` operator
|
|
|
|
(module
|
|
;; Typing
|
|
|
|
(func (export "type-local-i32") (local i32) (set_local 0 (i32.const 0)))
|
|
(func (export "type-local-i64") (local i64) (set_local 0 (i64.const 0)))
|
|
(func (export "type-local-f32") (local f32) (set_local 0 (f32.const 0)))
|
|
(func (export "type-local-f64") (local f64) (set_local 0 (f64.const 0)))
|
|
|
|
(func (export "type-param-i32") (param i32) (set_local 0 (i32.const 10)))
|
|
(func (export "type-param-i64") (param i64) (set_local 0 (i64.const 11)))
|
|
(func (export "type-param-f32") (param f32) (set_local 0 (f32.const 11.1)))
|
|
(func (export "type-param-f64") (param f64) (set_local 0 (f64.const 12.2)))
|
|
|
|
(func (export "type-mixed") (param i64 f32 f64 i32 i32) (local f32 i64 i64 f64)
|
|
(set_local 0 (i64.const 0))
|
|
(set_local 1 (f32.const 0))
|
|
(set_local 2 (f64.const 0))
|
|
(set_local 3 (i32.const 0))
|
|
(set_local 4 (i32.const 0))
|
|
(set_local 5 (f32.const 0))
|
|
(set_local 6 (i64.const 0))
|
|
(set_local 7 (i64.const 0))
|
|
(set_local 8 (f64.const 0))
|
|
)
|
|
|
|
;; Writing
|
|
|
|
(func (export "write") (param i64 f32 f64 i32 i32) (result i64)
|
|
(local f32 i64 i64 f64)
|
|
(set_local 1 (f32.const -0.3))
|
|
(set_local 3 (i32.const 40))
|
|
(set_local 4 (i32.const -7))
|
|
(set_local 5 (f32.const 5.5))
|
|
(set_local 6 (i64.const 6))
|
|
(set_local 8 (f64.const 8))
|
|
(i64.trunc_s/f64
|
|
(f64.add
|
|
(f64.convert_u/i64 (get_local 0))
|
|
(f64.add
|
|
(f64.promote/f32 (get_local 1))
|
|
(f64.add
|
|
(get_local 2)
|
|
(f64.add
|
|
(f64.convert_u/i32 (get_local 3))
|
|
(f64.add
|
|
(f64.convert_s/i32 (get_local 4))
|
|
(f64.add
|
|
(f64.promote/f32 (get_local 5))
|
|
(f64.add
|
|
(f64.convert_u/i64 (get_local 6))
|
|
(f64.add
|
|
(f64.convert_u/i64 (get_local 7))
|
|
(get_local 8)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(assert_return (invoke "type-local-i32"))
|
|
(assert_return (invoke "type-local-i64"))
|
|
(assert_return (invoke "type-local-f32"))
|
|
(assert_return (invoke "type-local-f64"))
|
|
|
|
(assert_return (invoke "type-param-i32" (i32.const 2)))
|
|
(assert_return (invoke "type-param-i64" (i64.const 3)))
|
|
(assert_return (invoke "type-param-f32" (f32.const 4.4)))
|
|
(assert_return (invoke "type-param-f64" (f64.const 5.5)))
|
|
|
|
(assert_return
|
|
(invoke "type-mixed"
|
|
(i64.const 1) (f32.const 2.2) (f64.const 3.3) (i32.const 4) (i32.const 5)
|
|
)
|
|
)
|
|
|
|
(assert_return
|
|
(invoke "write"
|
|
(i64.const 1) (f32.const 2) (f64.const 3.3) (i32.const 4) (i32.const 5)
|
|
)
|
|
(i64.const 56)
|
|
)
|
|
|
|
|
|
;; Invalid typing of access to locals
|
|
|
|
(assert_invalid
|
|
(module (func $type-local-num-vs-num (result i64) (local i32)
|
|
(set_local 0 (i32.const 0))
|
|
))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-local-num-vs-num (local f32)
|
|
(i32.eqz (set_local 0 (f32.const 0)))
|
|
))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-local-num-vs-num (local f64 i64)
|
|
(f64.neg (set_local 1 (i64.const 0)))
|
|
))
|
|
"type mismatch"
|
|
)
|
|
|
|
(assert_invalid
|
|
(module (func $type-local-arg-void-vs-num (local i32) (set_local 0 (nop))))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-local-arg-num-vs-num (local i32) (set_local 0 (f32.const 0))))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-local-arg-num-vs-num (local f32) (set_local 0 (f64.const 0))))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-local-arg-num-vs-num (local f64 i64) (set_local 1 (f64.const 0))))
|
|
"type mismatch"
|
|
)
|
|
|
|
|
|
;; Invalid typing of access to parameters
|
|
|
|
(assert_invalid
|
|
(module (func $type-param-num-vs-num (param i32) (result i64) (get_local 0)))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-param-num-vs-num (param f32) (i32.eqz (get_local 0))))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-param-num-vs-num (param f64 i64) (f64.neg (get_local 1))))
|
|
"type mismatch"
|
|
)
|
|
|
|
(assert_invalid
|
|
(module (func $type-param-arg-void-vs-num (param i32) (set_local 0 (nop))))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-param-arg-num-vs-num (param i32) (set_local 0 (f32.const 0))))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-param-arg-num-vs-num (param f32) (set_local 0 (f64.const 0))))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-param-arg-num-vs-num (param f64 i64) (set_local 1 (f64.const 0))))
|
|
"type mismatch"
|
|
)
|
|
|
|
|
|
;; Invalid local index
|
|
|
|
(assert_invalid
|
|
(module (func $unbound-local (local i32 i64) (get_local 3)))
|
|
"unknown local"
|
|
)
|
|
(assert_invalid
|
|
(module (func $large-local (local i32 i64) (get_local 14324343)))
|
|
"unknown local"
|
|
)
|
|
|
|
(assert_invalid
|
|
(module (func $unbound-param (param i32 i64) (get_local 2)))
|
|
"unknown local"
|
|
)
|
|
(assert_invalid
|
|
(module (func $large-param (local i32 i64) (get_local 714324343)))
|
|
"unknown local"
|
|
)
|
|
|
|
(assert_invalid
|
|
(module (func $unbound-mixed (param i32) (local i32 i64) (get_local 3)))
|
|
"unknown local"
|
|
)
|
|
(assert_invalid
|
|
(module (func $large-mixed (param i64) (local i32 i64) (get_local 214324343)))
|
|
"unknown local"
|
|
)
|
|
|
|
(assert_invalid
|
|
(module (func $type-mixed-arg-num-vs-num (param f32) (local i32) (set_local 1 (f32.const 0))))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-mixed-arg-num-vs-num (param i64 i32) (local f32) (set_local 1 (f32.const 0))))
|
|
"type mismatch"
|
|
)
|
|
(assert_invalid
|
|
(module (func $type-mixed-arg-num-vs-num (param i64) (local f64 i64) (set_local 1 (i64.const 0))))
|
|
"type mismatch"
|
|
)
|