Brummel
f38bad8c2b
First iter of milestone 24 (Show + print rewire). Wires two new heap-Str-producing primitives parallel to hs.4's int_to_str / float_to_str: - runtime/str.c gains ailang_bool_to_str(bool) → heap-Str "true" / "false" and ailang_str_clone(const char *) → memcpy'd heap-Str copy. Both use the existing str_alloc slab helper. - builtins.rs + synth.rs install the two signatures lockstep with ret_mode: Own; str_clone carries param_modes: [Borrow]. - IR-header preamble gains two unconditional `declare ptr @...` lines; Emitter::lower_app gets two new arms; is_static_callee whitelist extends with the two names. - Five IR snapshots regenerate for the two new declares. - Pre-existing-drift fix: int_to_str row added to builtins.rs::list() (hs.4 installed env.globals entry but missed the list() row). Substantive deviation flagged by orchestrator (DONE_WITH_CONCERNS): builtin signatures registered in uniqueness.rs::infer_module and linearity.rs::check_module_with_visible (8 LOC × 2 files), symmetric to iter 23.4-prep's class-method registration in the same globals maps. Without this fix str_clone's param_modes: [Borrow] is invisible to the App-arg walker, src_heap walks as Position::Consume, the scope-close ailang_rc_dec is gated off, and the str_clone_cross_realisation_uniform_abi test's plan-literal `frees == 3` assertion does not hold. The fix is the substantively correct repair, not a design departure. 9 new tests: 2 builtins-install unit, 2 IR-shape unit pins, 5 E2E (2 RC-stats, 2 stdout-smoke for both Bool branches, 1 cross- realisation). 4 new .ail.json fixtures. Full cargo test --workspace: 513 passed, 0 failed. bench/compile_check.py: 24/24 stable. bench/cross_lang.py: 25/25 stable.
61 lines
1.5 KiB
LLVM
61 lines
1.5 KiB
LLVM
; AILang generated workspace; entry: sum
|
|
source_filename = "sum.ail"
|
|
target triple = "<NORMALIZED>"
|
|
|
|
@.str_sum_fmt_int_0 = private unnamed_addr constant [6 x i8] c"%lld\0A\00", align 1
|
|
|
|
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 i64 @llvm.fptosi.sat.i64.f64(double)
|
|
|
|
@ail_sum_sum_clos = private unnamed_addr constant { ptr, ptr } { ptr @ail_sum_sum_adapter, ptr null }
|
|
@ail_sum_main_clos = private unnamed_addr constant { ptr, ptr } { ptr @ail_sum_main_adapter, ptr null }
|
|
define i64 @ail_sum_sum(i64 %arg_n) {
|
|
entry:
|
|
%v1 = icmp eq i64 %arg_n, 0
|
|
br i1 %v1, label %then.2, label %else.2
|
|
then.2:
|
|
br label %join.2
|
|
else.2:
|
|
%v3 = sub i64 %arg_n, 1
|
|
%v4 = call i64 @ail_sum_sum(i64 %v3)
|
|
%v5 = add i64 %arg_n, %v4
|
|
br label %join.2
|
|
join.2:
|
|
%v6 = phi i64 [ 0, %then.2 ], [ %v5, %else.2 ]
|
|
ret i64 %v6
|
|
}
|
|
|
|
define i64 @ail_sum_sum_adapter(ptr %_env, i64 %a0) {
|
|
entry:
|
|
%r = call i64 @ail_sum_sum(i64 %a0)
|
|
ret i64 %r
|
|
}
|
|
|
|
define i8 @ail_sum_main() {
|
|
entry:
|
|
%v1 = call i64 @ail_sum_sum(i64 10)
|
|
call i32 (ptr, ...) @printf(ptr @.str_sum_fmt_int_0, i64 %v1)
|
|
ret i8 0
|
|
}
|
|
|
|
define i8 @ail_sum_main_adapter(ptr %_env) {
|
|
entry:
|
|
%r = call i8 @ail_sum_main()
|
|
ret i8 %r
|
|
}
|
|
|
|
|
|
define i32 @main() {
|
|
call i8 @ail_sum_main()
|
|
ret i32 0
|
|
}
|