25de8be212
Fix TProgram.Uses reserved-word clash (renamed to UsedUnits), nested brace-comment in uParser.pas, and missing uAST in Blaise.pas uses clause. Vendor QBE 1.2 source in vendor/qbe/ (built locally with make; binary excluded via .gitignore). End-to-end pipeline confirmed: Blaise compiles Hello World and Calc (6*7=42) to native x86_64 Linux binaries. 71/71 FPCUnit tests passing.
34 lines
574 B
Plaintext
34 lines
574 B
Plaintext
export
|
|
function w $main(w %argc, l %argv) {
|
|
@start
|
|
%fmt =l alloc8 8
|
|
storel 1663398693, %fmt # "%s%c"
|
|
%av0 =l add %argv, 8
|
|
%ac0 =w sub %argc, 1
|
|
@loop
|
|
%av =l phi @start %av0, @loop2 %av1
|
|
%ac =w phi @start %ac0, @loop2 %ac1
|
|
%c0 =w ceqw %ac, 0
|
|
jnz %c0, @end, @loop1
|
|
@loop1
|
|
%c1 =w ceqw %ac, 1
|
|
jnz %c1, @last, @nolast
|
|
@last
|
|
jmp @loop2
|
|
@nolast
|
|
jmp @loop2
|
|
@loop2
|
|
%sep =w phi @last 10, @nolast 32
|
|
%arg =l loadl %av
|
|
%r =w call $printf(l %fmt, ..., l %arg, w %sep)
|
|
%av1 =l add %av, 8
|
|
%ac1 =w sub %ac, 1
|
|
jmp @loop
|
|
@end
|
|
ret 0
|
|
}
|
|
|
|
# >>> output
|
|
# a b c
|
|
# <<<
|