|
3 | 3 | (type $pair (descriptor $pair.desc (struct (field i32 i64))))
|
4 | 4 | (type $pair.desc (describes $pair (struct)))
|
5 | 5 | )
|
6 |
| - (func $struct.new (result (ref (exact $pair))) |
7 |
| - (local $desc (ref null (exact $pair.desc))) |
| 6 | + (func $struct.new (param $desc (ref null (exact $pair.desc))) (result (ref (exact $pair))) |
8 | 7 | (struct.new $pair
|
9 |
| - (i32.const 0) |
10 |
| - (i64.const 1) |
| 8 | + (i32.const 1) |
| 9 | + (i64.const 2) |
11 | 10 | (local.get $desc)
|
12 | 11 | )
|
13 | 12 | )
|
14 |
| - (func $struct.new_default (result (ref (exact $pair))) |
15 |
| - (local $desc (ref null (exact $pair.desc))) |
| 13 | + (func (export "check-new") (result i32) |
| 14 | + (local $pair (ref null $pair)) |
| 15 | + (local.set $pair (call $struct.new (struct.new $pair.desc))) |
| 16 | + (i32.and |
| 17 | + (i32.eq (struct.get $pair 0 (local.get $pair)) (i32.const 1)) |
| 18 | + (i64.eq (struct.get $pair 1 (local.get $pair)) (i64.const 2)) |
| 19 | + ) |
| 20 | + ) |
| 21 | + (func (export "new-null-desc") |
| 22 | + (drop (call $struct.new (ref.null none))) |
| 23 | + ) |
| 24 | + (func $struct.new_default (param $desc (ref null (exact $pair.desc))) (result (ref (exact $pair))) |
16 | 25 | (struct.new_default $pair
|
17 | 26 | (local.get $desc)
|
18 | 27 | )
|
19 | 28 | )
|
| 29 | + (func (export "check-new-default") (result i32) |
| 30 | + (local $pair (ref null $pair)) |
| 31 | + (local.set $pair (call $struct.new_default (struct.new $pair.desc))) |
| 32 | + (i32.and |
| 33 | + (i32.eq (struct.get $pair 0 (local.get $pair)) (i32.const 0)) |
| 34 | + (i64.eq (struct.get $pair 1 (local.get $pair)) (i64.const 0)) |
| 35 | + ) |
| 36 | + ) |
| 37 | + (func (export "new-default-null-desc") |
| 38 | + (drop (call $struct.new_default (ref.null none))) |
| 39 | + ) |
20 | 40 | )
|
21 | 41 |
|
| 42 | +(assert_return (invoke "check-new") (i32.const 1)) |
| 43 | +(assert_return (invoke "check-new-default") (i32.const 1)) |
| 44 | +(assert_trap (invoke "new-null-desc") "null descriptor") |
| 45 | +(assert_trap (invoke "new-default-null-desc") "null descriptor") |
| 46 | + |
22 | 47 | (assert_invalid
|
23 | 48 | (module
|
24 | 49 | (rec
|
|
0 commit comments