shoney.arickathil
1ba035397d
- Modules: `use`/`pub`, directory-as-module, per-module symbol resolution (a
flat first-wins merge silently ran the wrong `pub fn` body), six reserved
stdlib namespaces typed UNKNOWN-BUT-RESERVED.
- Surface: `and`/`or` (own precedence tier, short-circuit, Bool-only), `${}`
interpolation desugared at parse time, `const`, break/continue with
drop-correct exits, do-while, inline-fn rejection.
- switch expr/stmt: required `default` over scalars/Text, arm unification,
EQ/EQS+JZ lowering, per-arm drop scopes with N-way JOIN-DROP; `default`
sorted last by a shared lowering order (textual order made arms dead).
- typedef records: structural, same shape = one class entry; `?name: T`
nullable-by-shape; emit_ctor fills omitted defaults; `type` as field name.
- Enum variants: all-bare unions = int ordinals; any-payload = one class
entry per variant, tag IS the header class_id (no header field, no format
bump); exhaustive switch without `default`; arity checked both directions.
- Payload escape modeled as move-out (pointer-kind fields only — a scalar
escape is a copy); caller reaps owned heap temps passed by borrow: two
unbounded LSan-blind leaks, 10.5 MB -> 1.5 MB flat over 300k iterations.
- Fixed en route, each with a RED repro: dead E209 builtin-arg check and
`int_to_text` missing from both types.ml builtin tables (both segfaulted
wovm), multi-file phantom double-report, emit_ctor's field temp clobbering
dst in tail position (pre-existing), warnings swallowed without an error.
- Two fenced VM builtins: `int_to_text` (13), `variant_tag` (14).
- 14+565 unit (was 14+401), corpus 71 (was 32) plain and under wovm_asan,
wovm-test + cli_smoke green. Log-watcher 307 -> 93 diagnostics (85 E101 /
4 E207 / 1 E208 / 3 W202); the 5 non-E101 residuals await Task 7 grammar.
35 lines
1.2 KiB
Text
35 lines
1.2 KiB
Text
-- haxe-parity Task 4: enum payload variants. `Status` mixes a bare
|
|
-- variant and a payload variant, so every `Status` value is a variant
|
|
-- object (a compiler-generated class entry per variant; the tag is the
|
|
-- object header's own class id -- docs/plan/oop-vm/00-wob-format.md's
|
|
-- variant convention). Construction is by variant name (`Pending`,
|
|
-- `Failed("boom")`); the switch is exhaustive (both variants covered,
|
|
-- no `default` needed -- WO-E208's union rule) and `case
|
|
-- Failed(reason):` binds the payload field in its arm.
|
|
type Status = Pending | Failed(reason: Text)
|
|
|
|
fn mk(n: Int) -> Status {
|
|
if n == 1 { return Failed("boom") }
|
|
return Pending
|
|
}
|
|
|
|
fn classify(st: Status) -> Text {
|
|
return switch st {
|
|
case Pending: "pending";
|
|
case Failed(reason): reason;
|
|
}
|
|
}
|
|
|
|
fn main() -> Int {
|
|
let a = mk(0)
|
|
let b = mk(1)
|
|
print(classify(a))
|
|
print(classify(b))
|
|
-- direct construction (not through a declared-return fn): the owner
|
|
-- pass must classify `d` Owned through the variant construction
|
|
-- itself, or this CONCAT-built payload leaks (ASan-proven RED when
|
|
-- that classification is stubbed out -- task report).
|
|
let d = Failed("direct " .. int_to_text(9))
|
|
print(classify(d))
|
|
return 0
|
|
}
|