Hojun-Cho
83f5956df2
Every section banner dies (103 -> 0) across test/lang, the observer suites, the C carriers, and the five comment-heavy corpus fixtures; banner provenance (#N cites, carrier numbers, repair-cluster labels) folded into headers or adjacent WHY comments. Narration deleted; row provenance, ref cites, divergence pins, and layout contracts kept (fwd-ref decl-order guards and bootstrap-gate corpus rationale restored where the sweep over-cut). Comment-only proven: all 3742 wwbuild workdir .s byte-identical before/after; test-commit and test-byteid (161 lang + 1399 data, 0 pinned-divergent) green.
106 lines
3.1 KiB
Plaintext
106 lines
3.1 KiB
Plaintext
// Aggregate return-by-value from every ADDRESSABLE source
|
|
// shape (#272), migrated from test/wcc/949_aggret_source_run.c. The N_RETURN
|
|
// aggregate arms gated the source on N_IDENT || N_STRUCTLIT; every OTHER
|
|
// aggregate rvalue (array literal, struct/array field N_DOT, array element
|
|
// N_INDEX, deref *p) fell to the scalar-AX default = a silent truncation to the
|
|
// first 8 bytes, and both stages emitted byte-IDENTICAL wrong asm (#263 pure
|
|
// form — byte-id alone could NOT catch it). Each @test asserts every returned
|
|
// member as a primitive (a dropped word fails); T2 keeps the cs==ww net. Also
|
|
// covers the #272 commit-2 caller-half: receive into a GLOBAL ≤24B / >24B array.
|
|
|
|
package aggret_source_test;
|
|
|
|
type box_da = struct { a: [3]i64 };
|
|
type pair_sd = struct { a: i64, b: i64 };
|
|
type box_sd = struct { p: pair_sd };
|
|
type pair_sr = struct { a: i64, b: i64 };
|
|
|
|
let g2_idx: [2][3]i64 = [[1i64,2i64,3i64],[4i64,5i64,6i64]];
|
|
let g_recv: [3]i64 = [0i64, 0i64, 0i64];
|
|
let g_recv4: [4]i64 = [0i64,0i64,0i64,0i64];
|
|
|
|
fn mk_arrlit() [3]i64 = { return [1i64, 2i64, 3i64]; };
|
|
fn mk_da() [3]i64 = { let o: box_da = box_da { a = [10i64, 20i64, 30i64] }; return o.a; };
|
|
fn mk_idx() [3]i64 = { return g2_idx[1]; };
|
|
fn mk_deref(p: *[3]i64) [3]i64 = { return *p; };
|
|
fn mk_ident() [3]i64 = { let a: [3]i64 = [2i64, 4i64, 6i64]; return a; };
|
|
fn mk_deref4(p: *[4]i64) [4]i64 = { return *p; };
|
|
fn mk_sd() pair_sd = { let bx: box_sd = box_sd { p = pair_sd { a = 3i64, b = 4i64 } }; return bx.p; };
|
|
fn mk_sr(p: *pair_sr) pair_sr = { return *p; };
|
|
fn mk_grecv() [3]i64 = { return [4i64, 5i64, 6i64]; };
|
|
fn mk_grecv4(p: *[4]i64) [4]i64 = { return *p; };
|
|
|
|
@test fn arrlit() void = {
|
|
let r: [3]i64 = mk_arrlit();
|
|
assert(r[0] == 1i64);
|
|
assert(r[1] == 2i64);
|
|
assert(r[2] == 3i64);
|
|
};
|
|
|
|
@test fn dot_arrfield() void = {
|
|
let r: [3]i64 = mk_da();
|
|
assert(r[0] == 10i64);
|
|
assert(r[1] == 20i64);
|
|
assert(r[2] == 30i64);
|
|
};
|
|
|
|
@test fn index_elem() void = {
|
|
let r: [3]i64 = mk_idx();
|
|
assert(r[0] == 4i64);
|
|
assert(r[1] == 5i64);
|
|
assert(r[2] == 6i64);
|
|
};
|
|
|
|
@test fn deref() void = {
|
|
let a: [3]i64 = [7i64, 8i64, 9i64];
|
|
let r: [3]i64 = mk_deref(&a);
|
|
assert(r[0] == 7i64);
|
|
assert(r[1] == 8i64);
|
|
assert(r[2] == 9i64);
|
|
};
|
|
|
|
@test fn ident_ctl() void = {
|
|
let r: [3]i64 = mk_ident();
|
|
assert(r[0] == 2i64);
|
|
assert(r[1] == 4i64);
|
|
assert(r[2] == 6i64);
|
|
};
|
|
|
|
@test fn deref_sret() void = {
|
|
let a: [4]i64 = [1i64, 2i64, 3i64, 4i64];
|
|
let r: [4]i64 = mk_deref4(&a);
|
|
assert(r[0] == 1i64);
|
|
assert(r[1] == 2i64);
|
|
assert(r[2] == 3i64);
|
|
assert(r[3] == 4i64);
|
|
};
|
|
|
|
@test fn struct_dot() void = {
|
|
let r: pair_sd = mk_sd();
|
|
assert(r.a == 3i64);
|
|
assert(r.b == 4i64);
|
|
};
|
|
|
|
@test fn struct_deref() void = {
|
|
let x: pair_sr = pair_sr { a = 5i64, b = 9i64 };
|
|
let r: pair_sr = mk_sr(&x);
|
|
assert(r.a == 5i64);
|
|
assert(r.b == 9i64);
|
|
};
|
|
|
|
@test fn global_recv() void = {
|
|
g_recv = mk_grecv();
|
|
assert(g_recv[0] == 4i64);
|
|
assert(g_recv[1] == 5i64);
|
|
assert(g_recv[2] == 6i64);
|
|
};
|
|
|
|
@test fn global_recv_sret() void = {
|
|
let a: [4]i64 = [4i64, 5i64, 6i64, 7i64];
|
|
g_recv4 = mk_grecv4(&a);
|
|
assert(g_recv4[0] == 4i64);
|
|
assert(g_recv4[1] == 5i64);
|
|
assert(g_recv4[2] == 6i64);
|
|
assert(g_recv4[3] == 7i64);
|
|
};
|