Hojun-Cho
3ee1906497
fold-2 chunk C3 (drew's Fam8-13 plan): 8 alias value-row C drivers, 205 rows
re-homed with zero loss -- 177 value -> 8 test/lang/alias_*_test.ww @test
row-tables; 16 reject -> runww //ww:error carriers (both stages reject);
3 cs!=ww value rows -> 2 *_runonly_test.ww (T1, byte-id-excluded, #60/#81);
9 irreducible asymmetric rows -> slim C pins, each ticket-cited and
mutation-proven non-vacuous:
- accept amplen1/2,ampcap2: cs runs / ww rejects 'unsupported address-of
shape' (#96)
- cgen_b5 g73_heapfill: cs!=ww .s + ww link-fails on self-contained alloc;
compile-smoke pin (#24)
- cgen_b6 fsarg2_bound: both reject, different msgs, each vs the correct
stage (#271/#165 cs vs #272/#276/#277 ww)
- emit_b7 slc/slcstr/slctag _2lvl + slc_plain_ctl: slice-literal static-init
divergence (#120/#29-kin, ken-d2-oracle)
4 fully-migrated drivers deleted, 4 slimmed-in-place to hold only the
irreducible pins. LANGBYTEID floor 74->82 (8 new byte-id @test files); test
count 388->384 (4 deleted; 4 slimmed kept). do-not-auto-batch files not in
Fam10.
23 lines
491 B
Plaintext
23 lines
491 B
Plaintext
//ww:error "sret-class call result unwired"
|
|
package main;
|
|
type e0 = !i64;
|
|
type big = struct { a: i64, b: i64, c: i64, d: i64, e: i64, f: i64, g: i64 };
|
|
type r0 = (big | e0);
|
|
type r = r0;
|
|
fn w() r = {
|
|
let s: big;
|
|
s.a = 1; s.b = 2; s.c = 3; s.d = 4; s.e = 5; s.f = 6; s.g = 77;
|
|
return s;
|
|
};
|
|
fn outer() (i64 | e0) = {
|
|
let v = w()?;
|
|
return v.g;
|
|
};
|
|
export fn main() i32 = {
|
|
match (outer()) {
|
|
case let n: i64 => { if (n != 77) { return 1; }; };
|
|
case e0 => { return 2; };
|
|
};
|
|
return 0;
|
|
};
|