]>
Commit | Line | Data |
---|---|---|
abe05a73 XL |
1 | (module |
2 | (type (func)) ;; 0: void -> void | |
3 | (type $S (func)) ;; 1: void -> void | |
4 | (type (func (param))) ;; 2: void -> void | |
5 | (type (func (result i32))) ;; 3: void -> i32 | |
6 | (type (func (param) (result i32))) ;; 4: void -> i32 | |
7 | (type $T (func (param i32) (result i32))) ;; 5: i32 -> i32 | |
8 | (type $U (func (param i32))) ;; 6: i32 -> void | |
9 | ||
10 | (func $print (import "spectest" "print") (type 6)) | |
11 | ||
12 | (func (type 0)) | |
13 | (func (type $S)) | |
14 | ||
15 | (func (export "one") (type 4) (i32.const 13)) | |
16 | (func (export "two") (type $T) (i32.add (get_local 0) (i32.const 1))) | |
17 | ||
18 | ;; Both signature and parameters are allowed (and required to match) | |
19 | ;; since this allows the naming of parameters. | |
20 | (func (export "three") (type $T) (param $a i32) (result i32) | |
21 | (i32.sub (get_local 0) (i32.const 2)) | |
22 | ) | |
23 | ||
24 | (func (export "four") (type $U) (call $print (get_local 0))) | |
25 | ) | |
26 | (assert_return (invoke "one") (i32.const 13)) | |
27 | (assert_return (invoke "two" (i32.const 13)) (i32.const 14)) | |
28 | (assert_return (invoke "three" (i32.const 13)) (i32.const 11)) | |
29 | (invoke "four" (i32.const 83)) | |
30 | ||
31 | (assert_invalid (module (elem (i32.const 0))) "unknown table") | |
32 | (assert_invalid (module (elem (i32.const 0) 0) (func)) "unknown table") | |
33 | ||
34 | (assert_invalid | |
35 | (module (table 1 anyfunc) (elem (i64.const 0))) | |
36 | "type mismatch" | |
37 | ) | |
38 | (assert_invalid | |
39 | (module (table 1 anyfunc) (elem (i32.ctz (i32.const 0)))) | |
40 | "constant expression required" | |
41 | ) | |
42 | (assert_invalid | |
43 | (module (table 1 anyfunc) (elem (nop))) | |
44 | "constant expression required" | |
45 | ) | |
46 | ||
47 | (assert_invalid (module (func (type 42))) "unknown type") | |
48 | (assert_invalid (module (import "spectest" "print" (func (type 43)))) "unknown type") | |
49 | ||
50 | (module | |
51 | (type $T (func (param) (result i32))) | |
52 | (type $U (func (param) (result i32))) | |
53 | (table anyfunc (elem $t1 $t2 $t3 $u1 $u2 $t1 $t3)) | |
54 | ||
55 | (func $t1 (type $T) (i32.const 1)) | |
56 | (func $t2 (type $T) (i32.const 2)) | |
57 | (func $t3 (type $T) (i32.const 3)) | |
58 | (func $u1 (type $U) (i32.const 4)) | |
59 | (func $u2 (type $U) (i32.const 5)) | |
60 | ||
61 | (func (export "callt") (param $i i32) (result i32) | |
62 | (call_indirect (type $T) (get_local $i)) | |
63 | ) | |
64 | ||
65 | (func (export "callu") (param $i i32) (result i32) | |
66 | (call_indirect (type $U) (get_local $i)) | |
67 | ) | |
68 | ) | |
69 | ||
70 | (assert_return (invoke "callt" (i32.const 0)) (i32.const 1)) | |
71 | (assert_return (invoke "callt" (i32.const 1)) (i32.const 2)) | |
72 | (assert_return (invoke "callt" (i32.const 2)) (i32.const 3)) | |
73 | (assert_return (invoke "callt" (i32.const 3)) (i32.const 4)) | |
74 | (assert_return (invoke "callt" (i32.const 4)) (i32.const 5)) | |
75 | (assert_return (invoke "callt" (i32.const 5)) (i32.const 1)) | |
76 | (assert_return (invoke "callt" (i32.const 6)) (i32.const 3)) | |
77 | (assert_trap (invoke "callt" (i32.const 7)) "undefined element") | |
78 | (assert_trap (invoke "callt" (i32.const 100)) "undefined element") | |
79 | (assert_trap (invoke "callt" (i32.const -1)) "undefined element") | |
80 | ||
81 | (assert_return (invoke "callu" (i32.const 0)) (i32.const 1)) | |
82 | (assert_return (invoke "callu" (i32.const 1)) (i32.const 2)) | |
83 | (assert_return (invoke "callu" (i32.const 2)) (i32.const 3)) | |
84 | (assert_return (invoke "callu" (i32.const 3)) (i32.const 4)) | |
85 | (assert_return (invoke "callu" (i32.const 4)) (i32.const 5)) | |
86 | (assert_return (invoke "callu" (i32.const 5)) (i32.const 1)) | |
87 | (assert_return (invoke "callu" (i32.const 6)) (i32.const 3)) | |
88 | (assert_trap (invoke "callu" (i32.const 7)) "undefined element") | |
89 | (assert_trap (invoke "callu" (i32.const 100)) "undefined element") | |
90 | (assert_trap (invoke "callu" (i32.const -1)) "undefined element") | |
91 | ||
92 | (module | |
93 | (type $T (func (result i32))) | |
94 | (table anyfunc (elem 0 1)) | |
95 | ||
96 | (func $t1 (type $T) (i32.const 1)) | |
97 | (func $t2 (type $T) (i32.const 2)) | |
98 | ||
99 | (func (export "callt") (param $i i32) (result i32) | |
100 | (call_indirect (type $T) (get_local $i)) | |
101 | ) | |
102 | ) | |
103 | ||
104 | (assert_return (invoke "callt" (i32.const 0)) (i32.const 1)) | |
105 | (assert_return (invoke "callt" (i32.const 1)) (i32.const 2)) |