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.
116 lines
3.3 KiB
LLVM
116 lines
3.3 KiB
LLVM
; AILang generated workspace; entry: list
|
|
source_filename = "list.ail"
|
|
target triple = "<NORMALIZED>"
|
|
|
|
declare i32 @printf(ptr, ...)
|
|
declare i32 @puts(ptr)
|
|
declare ptr @GC_malloc(i64)
|
|
declare i32 @strcmp(ptr, ptr)
|
|
declare zeroext i1 @ail_str_eq(ptr, ptr)
|
|
declare i32 @ail_str_compare(ptr, ptr)
|
|
declare ptr @ailang_int_to_str(i64)
|
|
declare ptr @ailang_float_to_str(double)
|
|
declare ptr @ailang_bool_to_str(i1)
|
|
declare ptr @ailang_str_clone(ptr)
|
|
declare ptr @ailang_str_concat(ptr, ptr)
|
|
declare i64 @llvm.fptosi.sat.i64.f64(double)
|
|
|
|
@ail_list_sum_list_clos = private unnamed_addr constant { ptr, ptr } { ptr @ail_list_sum_list_adapter, ptr null }
|
|
@ail_list_main_clos = private unnamed_addr constant { ptr, ptr } { ptr @ail_list_main_adapter, ptr null }
|
|
@ail_prelude_show__Int_clos = private unnamed_addr constant { ptr, ptr } { ptr @ail_prelude_show__Int_adapter, ptr null }
|
|
@ail_prelude_print__Int_clos = private unnamed_addr constant { ptr, ptr } { ptr @ail_prelude_print__Int_adapter, ptr null }
|
|
define i64 @ail_list_sum_list(ptr %arg_xs) {
|
|
entry:
|
|
%v1 = load i64, ptr %arg_xs, align 8
|
|
switch i64 %v1, label %mdefault.2 [
|
|
i64 0, label %marm.2.0
|
|
i64 1, label %marm.2.1
|
|
]
|
|
marm.2.0:
|
|
br label %mjoin.2
|
|
marm.2.1:
|
|
%v3 = getelementptr inbounds i8, ptr %arg_xs, i64 8
|
|
%v4 = load i64, ptr %v3, align 8
|
|
%v5 = getelementptr inbounds i8, ptr %arg_xs, i64 16
|
|
%v6 = load ptr, ptr %v5, align 8
|
|
%v7 = call i64 @ail_list_sum_list(ptr %v6)
|
|
%v8 = add i64 %v4, %v7
|
|
br label %mjoin.2
|
|
mdefault.2:
|
|
unreachable
|
|
mjoin.2:
|
|
%v9 = phi i64 [ 0, %marm.2.0 ], [ %v8, %marm.2.1 ]
|
|
ret i64 %v9
|
|
}
|
|
|
|
define i64 @ail_list_sum_list_adapter(ptr %_env, ptr %a0) {
|
|
entry:
|
|
%r = call i64 @ail_list_sum_list(ptr %a0)
|
|
ret i64 %r
|
|
}
|
|
|
|
define i8 @ail_list_main() {
|
|
entry:
|
|
%v1 = call ptr @GC_malloc(i64 8)
|
|
store i64 0, ptr %v1, align 8
|
|
%v2 = call ptr @GC_malloc(i64 24)
|
|
store i64 1, ptr %v2, align 8
|
|
%v3 = getelementptr inbounds i8, ptr %v2, i64 8
|
|
store i64 12, ptr %v3, align 8
|
|
%v4 = getelementptr inbounds i8, ptr %v2, i64 16
|
|
store ptr %v1, ptr %v4, align 8
|
|
%v5 = call ptr @GC_malloc(i64 24)
|
|
store i64 1, ptr %v5, align 8
|
|
%v6 = getelementptr inbounds i8, ptr %v5, i64 8
|
|
store i64 20, ptr %v6, align 8
|
|
%v7 = getelementptr inbounds i8, ptr %v5, i64 16
|
|
store ptr %v2, ptr %v7, align 8
|
|
%v8 = call ptr @GC_malloc(i64 24)
|
|
store i64 1, ptr %v8, align 8
|
|
%v9 = getelementptr inbounds i8, ptr %v8, i64 8
|
|
store i64 10, ptr %v9, align 8
|
|
%v10 = getelementptr inbounds i8, ptr %v8, i64 16
|
|
store ptr %v5, ptr %v10, align 8
|
|
%v11 = call i64 @ail_list_sum_list(ptr %v8)
|
|
%v12 = call i8 @ail_prelude_print__Int(i64 %v11)
|
|
ret i8 %v12
|
|
}
|
|
|
|
define i8 @ail_list_main_adapter(ptr %_env) {
|
|
entry:
|
|
%r = call i8 @ail_list_main()
|
|
ret i8 %r
|
|
}
|
|
|
|
define ptr @ail_prelude_show__Int(i64 %arg_x) {
|
|
entry:
|
|
%v1 = call ptr @ailang_int_to_str(i64 %arg_x)
|
|
ret ptr %v1
|
|
}
|
|
|
|
define ptr @ail_prelude_show__Int_adapter(ptr %_env, i64 %a0) {
|
|
entry:
|
|
%r = call ptr @ail_prelude_show__Int(i64 %a0)
|
|
ret ptr %r
|
|
}
|
|
|
|
define i8 @ail_prelude_print__Int(i64 %arg_x) {
|
|
entry:
|
|
%v1 = call ptr @ail_prelude_show__Int(i64 %arg_x)
|
|
%v2 = getelementptr inbounds i8, ptr %v1, i64 8
|
|
call i32 @puts(ptr %v2)
|
|
ret i8 0
|
|
}
|
|
|
|
define i8 @ail_prelude_print__Int_adapter(ptr %_env, i64 %a0) {
|
|
entry:
|
|
%r = call i8 @ail_prelude_print__Int(i64 %a0)
|
|
ret i8 %r
|
|
}
|
|
|
|
|
|
define i32 @main() {
|
|
call i8 @ail_list_main()
|
|
ret i32 0
|
|
}
|