Brummel
6fdb45d2f2
Single iter shipping the post-milestone-24 follow-up named in
docs/specs/2026-05-14-retire-per-type-print-effects.md. After this
iter the only surviving direct-output effect-op is `io/print_str`;
all per-type print primitives are replaced by the polymorphic
`print` helper (prelude, iter 24.3).
Components:
- 92 examples/*.ail fixtures migrated (do io/print_<T> x) →
(app print x); 6 .prose.txt snapshots regenerated via `ail prose`.
- Four-site lockstep compiler deletion: crates/ailang-check/src/builtins.rs
(3 effect_ops.insert blocks + 3 list() rows + the
install_io_print_float_signature test + module + EffectOpSig
doc-comments); crates/ailang-codegen/src/lib.rs lower_app
(3 arms + lowers_io_print_float test); crates/ailang-codegen/src/synth.rs
builtin_effect_op_ret match-arm pattern. Dead `intern_string`
helper removed as a follow-up.
- Five incidental test-body migrations (ailang-check x2, ailang-core
spec_drift + design_schema_drift, ailang-surface/src/lex.rs,
ailang-prose/src/lib.rs round-trip test).
- Cat B test-harness patch: six IR-shape tests in
crates/ail/tests/e2e.rs gained a monomorphise_workspace call
before lower_workspace_with_alloc so they follow the same
pipeline as `ail build` (the home-rolled desugar+lift loop
stayed because mono's precondition is "already lifted"; mono
inserts after lift).
- Six doc-comment touch-ups (lex.rs module doc, parse.rs
diagnostic example, ail/src/main.rs x2, runtime/str.c %g anchor,
crates/ailang-core/specs/form_a.md surface-spec example).
- DESIGN.md seven-site sweep (Decision 11 example, Polymorphic
print past-tense, Heap-Str output sentence, effect-op
invocation comment, Float NaN paragraph re-anchored on
float_to_str, two "What is supported" lists).
- Three E2E test-comment polish + four IR-snapshot refresh + one
canonical-hash pin update (plan-unanticipated downstream
consequences of the corpus migration).
- bench/{check,compile_check,cross_lang}.py: all exit 0; no
ratification needed.
- Roadmap entry struck through; per-iter journal at
docs/journals/2026-05-14-iter-rpe.1.md.
Tests 564/0/3. cargo clippy and cargo doc: zero warnings.
Two upstream codegen bugs surfaced during the first BLOCKED
attempt and were fixed in separate iters before this retry:
- 1fb225e bugfix: mono cursor misalignment at poly-free-fn Var
with class-constrained Forall.
- feb9413 bugfix: print leak — propagate ret_mode through rigid
substitution + prelude Show.show ret_mode.
Known debt (carried forward for next /audit):
- Emitter.strings field is functionally dead post-iter (orphan
after intern_string removal); cycles over empty map harmlessly.
66 lines
2.5 KiB
Plaintext
66 lines
2.5 KiB
Plaintext
; Iter 18d.3 — move-aware pattern bindings: let-close emits an
|
|
; inlined per-field dec sequence that skips moved slots and dec's
|
|
; non-moved (wildcarded) pointer-typed slots.
|
|
;
|
|
; Fixture shape:
|
|
; - Pair carries two `IntList` fields (both pointer-typed).
|
|
; - main builds a Pair, pattern-matches it binding only the FIRST
|
|
; field, wildcarding the SECOND.
|
|
; - The matched binding `a` is consumed by `sum_list`. The
|
|
; wildcarded slot is logically retained by `p` (no binder owns
|
|
; it), so at p's let-close it must be dec'd.
|
|
;
|
|
; Expected IR shape under --alloc=rc at p's let-close:
|
|
; - NO `call void @drop_pat_extract_partial_drop_Pair(ptr <p>)`
|
|
; (the uniform drop fn is replaced by inline partial drop)
|
|
; - YES a `getelementptr ... ptr <p>, i64 16` + `load ptr` +
|
|
; `call void @drop_pat_extract_partial_drop_IntList(ptr <slot1_v>)`
|
|
; (slot 1 was NOT moved → emit per-field dec)
|
|
; - YES `call void @ailang_rc_dec(ptr <p>)` (outer cell)
|
|
; - NO load+dec for slot 0 (moved → skipped)
|
|
;
|
|
; Expected stdout: 6 (1 + 2 + 3 = 6, sum of the first list).
|
|
|
|
(module pat_extract_partial_drop
|
|
|
|
(data IntList
|
|
(doc "Recursive Int list — boxed.")
|
|
(ctor Nil)
|
|
(ctor Cons (con Int) (con IntList)))
|
|
|
|
(data Pair
|
|
(doc "Two IntLists side by side. Both fields are pointer-typed; the test exercises move-tracking against EACH slot independently.")
|
|
(ctor Pair (con IntList) (con IntList)))
|
|
|
|
(fn sum_list
|
|
(doc "Consume xs, sum its elements.")
|
|
(type
|
|
(fn-type
|
|
(params (con IntList))
|
|
(ret (con Int))))
|
|
(params xs)
|
|
(body
|
|
(match xs
|
|
(case (pat-ctor Nil) 0)
|
|
(case (pat-ctor Cons h t)
|
|
(app + h (app sum_list t))))))
|
|
|
|
(fn main
|
|
(doc "Build Pair([1,2,3], [4,5,6]); pattern-bind first slot only; sum first list. The wildcarded second slot's IntList lives only inside the Pair box; closing the Pair's let scope must dec it (non-moved) while skipping the moved first slot.")
|
|
(type (fn-type (params) (ret (con Unit)) (effects IO)))
|
|
(params)
|
|
(body
|
|
(let p
|
|
(term-ctor Pair Pair
|
|
(term-ctor IntList Cons 1
|
|
(term-ctor IntList Cons 2
|
|
(term-ctor IntList Cons 3
|
|
(term-ctor IntList Nil))))
|
|
(term-ctor IntList Cons 4
|
|
(term-ctor IntList Cons 5
|
|
(term-ctor IntList Cons 6
|
|
(term-ctor IntList Nil)))))
|
|
(match p
|
|
(case (pat-ctor Pair a _)
|
|
(app print (app sum_list a))))))))
|