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.
20 lines
413 B
Plaintext
20 lines
413 B
Plaintext
type :fps = { s, b, s }
|
|
|
|
export
|
|
function s $sum(:fps %p) {
|
|
@start
|
|
%f1 =s load %p
|
|
%p8 =l add 8, %p
|
|
%f2 =s load %p8
|
|
%s =s add %f1, %f2
|
|
ret %s
|
|
}
|
|
|
|
# >>> driver
|
|
# typedef struct { float f1; char b; float f2; } fps;
|
|
# extern float sum(fps);
|
|
# int main() { fps x = { 1.23, -1, 2.34 }; return !(sum(x) == 1.23f+2.34f); }
|
|
# /* Note the f suffixes above are important
|
|
# * otherwise C does double operations. */
|
|
# <<<
|