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.
35 lines
574 B
Plaintext
35 lines
574 B
Plaintext
# find the maximum value
|
|
# in a nul-terminated array
|
|
# of unsigned bytes
|
|
#
|
|
# the output is stored in $a
|
|
|
|
data $arr = { b 10, b -60, b 10, b 100, b 200, b 0 }
|
|
|
|
export
|
|
function $test() {
|
|
@start
|
|
@loop
|
|
%max =w phi @start -1, @new %byt, @old %max
|
|
%loc =l phi @start $arr, @new %loc1, @old %loc1
|
|
%byt =w loadub %loc
|
|
%loc1 =l add 1, %loc
|
|
jnz %byt, @iter, @end
|
|
@iter
|
|
%cmp =w cslew %max, %byt
|
|
jnz %cmp, @new, @old
|
|
@new
|
|
jmp @loop
|
|
@old
|
|
jmp @loop
|
|
@end
|
|
storew %max, $a
|
|
ret
|
|
}
|
|
|
|
# >>> driver
|
|
# extern void test(void);
|
|
# int a;
|
|
# int main() { test(); return !(a == 200); }
|
|
# <<<
|