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.
33 lines
633 B
Plaintext
33 lines
633 B
Plaintext
# skip arm64 arm64_apple rv64
|
|
# a hack example,
|
|
# we use a dark type to get
|
|
# a pointer to the stack.
|
|
|
|
type :magic = align 1 { 0 }
|
|
|
|
data $ret = { l 0 }
|
|
|
|
export
|
|
function $test(:magic %p) {
|
|
@start
|
|
%av =w loadw $a
|
|
%a1 =w add 1, %av
|
|
storew %a1, $a # increment $a
|
|
%r1 =l loadl $ret # fetch from $ret
|
|
%p1 =l add %p, -8
|
|
%r2 =l loadl %p1 # get the return address
|
|
storel %r2, $ret # store it in $ret
|
|
%c =w ceql %r1, %r2
|
|
jnz %c, @fin, @cal
|
|
@cal
|
|
%i =w call $test() # no argument given, intentionally!
|
|
@fin
|
|
ret
|
|
}
|
|
|
|
# >>> driver
|
|
# extern void test(void);
|
|
# int a = 2;
|
|
# int main() { test(); return !(a == 5); }
|
|
# <<<
|