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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
;; Test memory section structure
(module (memory i64 0 0))
(module (memory i64 0 1))
(module (memory i64 1 256))
(module (memory i64 0 65536))
(module (memory i64 (data)) (func (export "memsize") (result i64) (memory.size)))
(assert_return (invoke "memsize") (i64.const 0))
(module (memory i64 (data "")) (func (export "memsize") (result i64) (memory.size)))
(assert_return (invoke "memsize") (i64.const 0))
(module (memory i64 (data "x")) (func (export "memsize") (result i64) (memory.size)))
(assert_return (invoke "memsize") (i64.const 1))
(assert_invalid (module (data (i32.const 0))) "unknown memory")
(assert_invalid (module (data (i32.const 0) "")) "unknown memory")
(assert_invalid (module (data (i32.const 0) "x")) "unknown memory")
(assert_invalid
(module (func (drop (f32.load (i64.const 0)))))
"unknown memory"
)
(assert_invalid
(module (func (f32.store (i64.const 0) (f32.const 0))))
"unknown memory"
)
(assert_invalid
(module (func (drop (i32.load8_s (i64.const 0)))))
"unknown memory"
)
(assert_invalid
(module (func (i32.store8 (i64.const 0) (i32.const 0))))
"unknown memory"
)
(assert_invalid
(module (func (drop (memory.size))))
"unknown memory"
)
(assert_invalid
(module (func (drop (memory.grow (i64.const 0)))))
"unknown memory"
)
(assert_invalid
(module (memory i64 1 0))
"size minimum must not be greater than maximum"
)
(module
(memory i64 1)
(data (i64.const 0) "ABC\a7D") (data (i64.const 20) "WASM")
;; Data section
(func (export "data") (result i32)
(i32.and
(i32.and
(i32.and
(i32.eq (i32.load8_u (i64.const 0)) (i32.const 65))
(i32.eq (i32.load8_u (i64.const 3)) (i32.const 167))
)
(i32.and
(i32.eq (i32.load8_u (i64.const 6)) (i32.const 0))
(i32.eq (i32.load8_u (i64.const 19)) (i32.const 0))
)
)
(i32.and
(i32.and
(i32.eq (i32.load8_u (i64.const 20)) (i32.const 87))
(i32.eq (i32.load8_u (i64.const 23)) (i32.const 77))
)
(i32.and
(i32.eq (i32.load8_u (i64.const 24)) (i32.const 0))
(i32.eq (i32.load8_u (i64.const 1023)) (i32.const 0))
)
)
)
)
;; Memory cast
(func (export "cast") (result f64)
(i64.store (i64.const 8) (i64.const -12345))
(if
(f64.eq
(f64.load (i64.const 8))
(f64.reinterpret_i64 (i64.const -12345))
)
(then (return (f64.const 0)))
)
(i64.store align=1 (i64.const 9) (i64.const 0))
(i32.store16 align=1 (i64.const 15) (i32.const 16453))
(f64.load align=1 (i64.const 9))
)
;; Sign and zero extending memory loads
(func (export "i32_load8_s") (param $i i32) (result i32)
(i32.store8 (i64.const 8) (local.get $i))
(i32.load8_s (i64.const 8))
)
(func (export "i32_load8_u") (param $i i32) (result i32)
(i32.store8 (i64.const 8) (local.get $i))
(i32.load8_u (i64.const 8))
)
(func (export "i32_load16_s") (param $i i32) (result i32)
(i32.store16 (i64.const 8) (local.get $i))
(i32.load16_s (i64.const 8))
)
(func (export "i32_load16_u") (param $i i32) (result i32)
(i32.store16 (i64.const 8) (local.get $i))
(i32.load16_u (i64.const 8))
)
(func (export "i64_load8_s") (param $i i64) (result i64)
(i64.store8 (i64.const 8) (local.get $i))
(i64.load8_s (i64.const 8))
)
(func (export "i64_load8_u") (param $i i64) (result i64)
(i64.store8 (i64.const 8) (local.get $i))
(i64.load8_u (i64.const 8))
)
(func (export "i64_load16_s") (param $i i64) (result i64)
(i64.store16 (i64.const 8) (local.get $i))
(i64.load16_s (i64.const 8))
)
(func (export "i64_load16_u") (param $i i64) (result i64)
(i64.store16 (i64.const 8) (local.get $i))
(i64.load16_u (i64.const 8))
)
(func (export "i64_load32_s") (param $i i64) (result i64)
(i64.store32 (i64.const 8) (local.get $i))
(i64.load32_s (i64.const 8))
)
(func (export "i64_load32_u") (param $i i64) (result i64)
(i64.store32 (i64.const 8) (local.get $i))
(i64.load32_u (i64.const 8))
)
)
(assert_return (invoke "data") (i32.const 1))
(assert_return (invoke "cast") (f64.const 42.0))
(assert_return (invoke "i32_load8_s" (i32.const -1)) (i32.const -1))
(assert_return (invoke "i32_load8_u" (i32.const -1)) (i32.const 255))
(assert_return (invoke "i32_load16_s" (i32.const -1)) (i32.const -1))
(assert_return (invoke "i32_load16_u" (i32.const -1)) (i32.const 65535))
(assert_return (invoke "i32_load8_s" (i32.const 100)) (i32.const 100))
(assert_return (invoke "i32_load8_u" (i32.const 200)) (i32.const 200))
(assert_return (invoke "i32_load16_s" (i32.const 20000)) (i32.const 20000))
(assert_return (invoke "i32_load16_u" (i32.const 40000)) (i32.const 40000))
(assert_return (invoke "i32_load8_s" (i32.const 0xfedc6543)) (i32.const 0x43))
(assert_return (invoke "i32_load8_s" (i32.const 0x3456cdef)) (i32.const 0xffffffef))
(assert_return (invoke "i32_load8_u" (i32.const 0xfedc6543)) (i32.const 0x43))
(assert_return (invoke "i32_load8_u" (i32.const 0x3456cdef)) (i32.const 0xef))
(assert_return (invoke "i32_load16_s" (i32.const 0xfedc6543)) (i32.const 0x6543))
(assert_return (invoke "i32_load16_s" (i32.const 0x3456cdef)) (i32.const 0xffffcdef))
(assert_return (invoke "i32_load16_u" (i32.const 0xfedc6543)) (i32.const 0x6543))
(assert_return (invoke "i32_load16_u" (i32.const 0x3456cdef)) (i32.const 0xcdef))
(assert_return (invoke "i64_load8_s" (i64.const -1)) (i64.const -1))
(assert_return (invoke "i64_load8_u" (i64.const -1)) (i64.const 255))
(assert_return (invoke "i64_load16_s" (i64.const -1)) (i64.const -1))
(assert_return (invoke "i64_load16_u" (i64.const -1)) (i64.const 65535))
(assert_return (invoke "i64_load32_s" (i64.const -1)) (i64.const -1))
(assert_return (invoke "i64_load32_u" (i64.const -1)) (i64.const 4294967295))
(assert_return (invoke "i64_load8_s" (i64.const 100)) (i64.const 100))
(assert_return (invoke "i64_load8_u" (i64.const 200)) (i64.const 200))
(assert_return (invoke "i64_load16_s" (i64.const 20000)) (i64.const 20000))
(assert_return (invoke "i64_load16_u" (i64.const 40000)) (i64.const 40000))
(assert_return (invoke "i64_load32_s" (i64.const 20000)) (i64.const 20000))
(assert_return (invoke "i64_load32_u" (i64.const 40000)) (i64.const 40000))
(assert_return (invoke "i64_load8_s" (i64.const 0xfedcba9856346543)) (i64.const 0x43))
(assert_return (invoke "i64_load8_s" (i64.const 0x3456436598bacdef)) (i64.const 0xffffffffffffffef))
(assert_return (invoke "i64_load8_u" (i64.const 0xfedcba9856346543)) (i64.const 0x43))
(assert_return (invoke "i64_load8_u" (i64.const 0x3456436598bacdef)) (i64.const 0xef))
(assert_return (invoke "i64_load16_s" (i64.const 0xfedcba9856346543)) (i64.const 0x6543))
(assert_return (invoke "i64_load16_s" (i64.const 0x3456436598bacdef)) (i64.const 0xffffffffffffcdef))
(assert_return (invoke "i64_load16_u" (i64.const 0xfedcba9856346543)) (i64.const 0x6543))
(assert_return (invoke "i64_load16_u" (i64.const 0x3456436598bacdef)) (i64.const 0xcdef))
(assert_return (invoke "i64_load32_s" (i64.const 0xfedcba9856346543)) (i64.const 0x56346543))
(assert_return (invoke "i64_load32_s" (i64.const 0x3456436598bacdef)) (i64.const 0xffffffff98bacdef))
(assert_return (invoke "i64_load32_u" (i64.const 0xfedcba9856346543)) (i64.const 0x56346543))
(assert_return (invoke "i64_load32_u" (i64.const 0x3456436598bacdef)) (i64.const 0x98bacdef))
|
