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.
28 lines
353 B
Plaintext
28 lines
353 B
Plaintext
function $test() {
|
|
@start
|
|
%x =w copy 3
|
|
%n =w copy 2
|
|
@loop
|
|
%c =w ceqw %n, 10000
|
|
jnz %c, @end, @next
|
|
@next
|
|
%t =w copy 3
|
|
%x =w add %x, 2
|
|
@tloop
|
|
%s =w mul %t, %t
|
|
%c =w csgtw %s, %x
|
|
jnz %c, @prime, @test
|
|
@test
|
|
%r =w rem %x, %t
|
|
jnz %r, @tnext, @loop
|
|
@tnext
|
|
%t =w add %t, 2
|
|
jmp @tloop
|
|
@prime
|
|
%n =w add %n, 1
|
|
jmp @loop
|
|
@end
|
|
storew %x, $a
|
|
ret
|
|
}
|