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.
26 lines
375 B
Plaintext
26 lines
375 B
Plaintext
# euclide's algorithm in ssa
|
|
# it is a fairly interesting
|
|
# ssa program because of the
|
|
# swap of b and a
|
|
|
|
export
|
|
function $test() {
|
|
@start
|
|
|
|
@loop
|
|
%a =w phi @start 380, @loop %r
|
|
%b =w phi @start 747, @loop %a
|
|
%r =w rem %b, %a
|
|
jnz %r, @loop, @end
|
|
|
|
@end
|
|
storew %a, $a
|
|
ret
|
|
}
|
|
|
|
# >>> driver
|
|
# extern void test(void);
|
|
# int a;
|
|
# int main() { test(); return !(a == 1); }
|
|
# <<<
|