blob: d81bd433c23f85b3f9fefd52fd6aaac74a0ce336 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
(module
(event $e0 (attr 0) (param i32))
(event $e1 (attr 0) (param i32 f32))
(func $exnref_test (param $0 exnref) (result exnref)
(local.get $0)
)
(func $eh_test (local $exn exnref)
(try
(throw $e0 (i32.const 0))
(catch
;; Multi-value is not available yet, so block can't take a value from
;; stack. So this uses locals for now.
(local.set $exn (exnref.pop))
(drop
(block $l0 (result i32)
(rethrow
(br_on_exn $l0 $e0 (local.get $exn))
)
)
)
)
)
)
)
(assert_invalid
(module
(func $f0
(try
(nop)
(catch (i32.const 0))
)
)
)
"try's body type must match catch's body type"
)
(assert_invalid
(module
(func $f0
(try
(i32.const 0)
(catch (i32.const 0))
)
)
)
"try's type does not match try body's type"
)
(assert_invalid
(module
(event $e0 (attr 0) (param i32))
(func $f0
(throw $e0 (f32.const 0))
)
)
"event param types must match"
)
(assert_invalid
(module
(event $e0 (attr 0) (param i32 f32))
(func $f0
(throw $e0 (f32.const 0))
)
)
"event's param numbers must match"
)
(assert_invalid
(module
(func $f0
(rethrow (i32.const 0))
)
)
"rethrow's argument must be exnref type"
)
(assert_invalid
(module
(event $e0 (attr 0) (param i32))
(func $f0 (result i32)
(block $l0 (result i32)
(drop
(br_on_exn $l0 $e0 (i32.const 0))
)
(i32.const 0)
)
)
)
"br_on_exn's argument must be unreachable or exnref type"
)
(assert_invalid
(module
(event $e0 (attr 0) (param i32))
(func $f0 (result i32) (local $0 exnref)
(block $l0 (result i32)
(i32.eqz
(br_on_exn $l0 $e0 (local.get $0))
)
)
)
)
"i32.eqz input must be i32"
)
(assert_invalid
(module
(event $e0 (attr 0) (param i32))
(func $f0 (result f32) (local $0 exnref)
(block $l0 (result f32)
(drop
(br_on_exn $l0 $e0 (local.get $0))
)
(f32.const 0)
)
)
)
"block+breaks must have right type if breaks return a value"
)
|
