blaise/vendor/qbe/test/env.ssa
Graeme Geldenhuys 25de8be212 Fix compilation errors; vendor QBE 1.2; end-to-end Hello World works
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.
2026-04-20 16:38:57 +01:00

22 lines
386 B
Plaintext

# sanity checks for env calls
function l $epar(env %e, l %i) {
@start
%x =l add %e, %i
ret %x
}
export function l $earg(l %a, l %b) {
@start
%r1 =l call $epar(env %a, l %b)
# okay to call a regular function
# with an env argument
%r2 =l call $labs(env 113, l %r1)
ret %r2
}
# >>> driver
# extern long earg(long, long);
# int main(void) { return !(earg(2, -44) == 42); }
# <<<