test/wcc/data: grow the declarative compiler corpus to 1,224 fixtures
The r-prefixed waves absorb the runtime, reject, and byte-compare rows of the migrated native carriers; each fixture is one directory with one case.ww and a //ww:error, //ww:compile, //ww:run, or //ww:run-exit directive covering both frontends.
This commit is contained in:
19
test/wcc/data/r926_sret_reject_call_arg/case.ww
Normal file
19
test/wcc/data/r926_sret_reject_call_arg/case.ww
Normal file
@@ -0,0 +1,19 @@
|
||||
//ww:error "#38b: sret-class tagged call result as a >48B by-value arg unwired (#40-family follow-up)"
|
||||
package main;
|
||||
type oops = !str;
|
||||
type nomem = !void;
|
||||
type wide = struct { xs: []u8, ys: []u8, n: i64 };
|
||||
fn mk(b: []u8) (wide | oops | nomem) = { return wide { xs = b, ys = b, n = 1 }; };
|
||||
fn use(r: (wide | oops | nomem)) i64 = {
|
||||
match (r) {
|
||||
case let w: wide => return w.n;
|
||||
case let e: oops => return -1;
|
||||
case nomem => return -2;
|
||||
};
|
||||
return -3;
|
||||
};
|
||||
export fn main() i32 = {
|
||||
let buf: [4]u8 = [1u8, 2u8, 3u8, 4u8];
|
||||
if (use(mk(buf[0:4])) != 1) { return 1; };
|
||||
return 0;
|
||||
};
|
||||
Reference in New Issue
Block a user